<%option explicit%> <% '************************************************* ' VP-ASP Version 6.50 ' August 17, 2005 ' catalogid, categoryid '*************************************************** ShopCheckadmin "shopa_addproduct.asp" dim returnurl, categoryid, catalogid, dbc, rs categoryid=request("categoryid") catalogid=request("catalogid") returnurl="shopa_addproduct.asp?which=" & catalogid if not isnumeric(categoryid) then categoryid="" end if if not isnumeric(catalogid) then catalogid="" end if if catalogid<>"" and categoryid<>"" then shopopendatabasep dbc sql="select ccategory from products where catalogid=" & catalogid set rs=dbc.execute(sql) if not rs.eof then if cint(rs("ccategory")) = cint(categoryid) then if ucase(xdatabasetype) = "MYSQL" OR (instr(lcase(xdatabasetype), "mysql")>0) then 'VP-ASP 6.08 - Swap ORDER BY and LIMIT / VP-ASP 6.09 - Change NOT to != sql="SELECT intcategoryid from prodcategories WHERE (intcatalogid = " & catalogid & ") AND (intcategoryid != " & categoryid & ") ORDER BY id desc LIMIT 0,1" else sql="SELECT TOP 1 intcategoryid from prodcategories WHERE (intcatalogid = " & catalogid & ") AND (NOT intcategoryid = " & categoryid & ") ORDER BY id desc" end if set rs=dbc.execute(sql) if not rs.eof then sql="update products set ccategory= " & rs("intcategoryid") & " where catalogid=" & catalogid dbc.execute(sql) else setsess "delError", getlang("Langmaincategory") & " " & getlang("langcustrequired") & "
" responseredirect returnurl end if end if end if closerecordset rs sql="delete from prodcategories where intcatalogid=" & catalogid & " and intcategoryid=" & categoryid dbc.execute(sql) end if shopclosedatabase dbc responseredirect returnurl %>