<%
' Comersus Shopping Cart
' Comersus Open Technologies
' United States
' Software License can be found at License.txt
' http://www.comersus.com
' Details: get root categories
%>
<%
pShowCategories = getSettingKey("pShowCategories")
if pShowCategories="-1" then
%>
CATEGORIES
<%
pIdCategoryStart=getCategoryStart(pIdStore)
' get categories
mySQL="SELECT idCategory, categoryDesc FROM categories WHERE idParentCategory=" &pIdCategoryStart& " AND active=-1 AND idCategory<>1 ORDER BY categoryDesc"
call getFromDatabase (mySql, rsTempRoot, "getRootCategories")
do while not rsTempRoot.eof%>
<%
rsTempRoot.movenext
loop
%>
<%
end if%>