<%
' 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
' get all categories
mySQL="SELECT idCategory, categoryDesc, idParentCategory, displayOrder FROM categories ORDER BY categoryDesc"
call getFromDatabase (mySql, rsTemp, "comersus_backoffice_addCategoryForm.asp")
if rstemp.eof then
response.redirect "comersus_backoffice_supportError.asp?error="& Server.Urlencode("Error in addcategoryform: you need at least one root category")
end if
arrCategoriesIndex=0
' get categories with no items inside (there you can insert other categories)
dim arrCategories(1000,2)
do while not rstemp.eof
if itHasNoItemsInside(rstemp("idCategory")) then
arrCategories(arrCategoriesIndex,0) = rstemp("idCategory")
arrCategories(arrCategoriesIndex,1) = rstemp("categoryDesc")
arrCategoriesIndex = arrCategoriesIndex+1
end if
rstemp.moveNext
loop
%>
Add category
<%call closeDb()%>