<%
' Comersus BackOffice Lite
' e-commerce ASP Open Source
' Comersus Open Technologies LC
' 2005
' http://www.comersus.com
%>
<%
on error resume next
dim mySQL, conntemp, rstemp, rsTemp1
pIdCategory = getUserInput(request.querystring("idCategory"),12)
if trim(pIdCategory)="" then
response.redirect "comersus_backoffice_message.asp?message="& Server.Urlencode("Enter category ID")
end if
' get data of the category to modify
mySQL="SELECT * FROM categories WHERE idCategory=" &pIdCategory
call getFromDatabase(mySQL, rstemp, "comersus_backoffice_modifycategoryform.asp")
pCategoryDesc = rstemp("categoryDesc")
pIdParentCategory = rstemp("idParentCategory")
' get all parent categories (not assigned to one product)
mySQL="SELECT idCategory, categoryDesc FROM categories WHERE idCategory<>" &pIdCategory
call getFromDatabase(mySQL, rstemp, "comersus_backoffice_modifycategoryform.asp")
if rstemp.eof then
response.redirect "comersus_backoffice_message.asp?message="& Server.Urlencode("Cannot get parent categories")
end If
%>
Edit category