<%option explicit%>
<!-- #include file="shop$db.asp" -->
<%
'*************************************************
' VP-ASP Version 6.5
' August 19, 2005
' catalogid, categoryid, oldcatalogid
'***************************************************
ShopCheckadmin "shopa_editdisplay.asp"
dim returnurl, categoryid, catalogid, dbc,oldcatalogid,rs
catalogid=request("catalogid")
if not isnumeric(catalogid) then
   catalogid=""
end if
oldcatalogid=request("oldcatalogid")
if not isnumeric(oldcatalogid) then
   oldcatalogid=""
end if
returnurl="shopa_addproduct.asp?which=" & catalogid
if catalogid="" or  oldcatalogid="" then
   responseredirect returnurl
end if
Updatecategories
Sub Updatecategories
	' get all categories for old product
	shopopendatabasep dbc
	sql="select intcategoryid from prodcategories where intcatalogid=" & oldcatalogid
	set rs=dbc.execute(sql)
	if not rs.eof  then
	' delete categories for this product
	   sql="delete from prodcategories where intcatalogid=" & catalogid 
	   dbc.execute(sql)
	end if
	do while not rs.eof
		categoryid=rs("intcategoryid")                  ' get category from prodcategories
		sql="insert into prodcategories (intcategoryid,intcatalogid) values (" & categoryid & "," & catalogid & ")"
	  '  debugwrite sql
		dbc.execute(sql)
		rs.movenext
	loop
	closerecordset rs
	Updatemaincategory
	shopclosedatabase dbc
	responseredirect returnurl
end sub
sub updatemaincategory
dim subcategoryid,subsql
sql="select ccategory,subcategoryid from products where catalogid=" & oldcatalogid
set rs=dbc.execute(sql)
if not rs.eof then
   categoryid=rs("ccategory")
   subcategoryid=rs("subcategoryid")
else
   ccategory=""
end if
closerecordset rs
if isnumeric(categoryid) then
   sql="update products set ccategory=" & categoryid
   if isnumeric(subcategoryid) then
      subsql="subcategoryid=" & subcategoryid
   else
      subsql="subcategoryid=NULL"
   end if
   sql=sql & "," & subsql
   sql=sql & " where catalogid=" & catalogid
   dbc.execute(sql)
  ' debugwrite sql
end if           
end sub
%>