<% ' Comersus Shopping Cart ' Comersus Open Technologies ' United States ' Software License can be found at License.txt ' http://www.comersus.com ' Details: list active root categories %> <% dim mySQL, connTemp, rsTemp, pIdCategory, pCategoryDesc, pIdAffiliate, pDefaultLanguage, pStoreFrontDemoMode, pCurrencySign, pDecimalSign, pCompany, pAuctions, pListBestSellers, pNewsLetter, pPriceList, pStoreNews, pAffiliatesStoreFront, pCategoriesAlphOrder, pAllowNewCustomer, pHeaderKeywords, pCustomerName, pHeaderCartItems, pHeaderCartSubtotal, pMoneyDontRound, pImageCategory call saveCookie() on error resume next ' set affiliate pIdAffiliate=getUserInput(request.querystring("idAffiliate"),4) if isNumeric(pIdAffiliate)then session("idAffiliate")= pIdAffiliate end if ' get settings pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode") pCurrencySign = getSettingKey("pCurrencySign") pDecimalSign = getSettingKey("pDecimalSign") pCompany = getSettingKey("pCompany") pCompanySlogan = getSettingKey("pCompanySlogan") pAboutUsLink = getSettingKey("pAboutUsLink") pStoreLocation = getSettingKey("pStoreLocation") pHeaderKeywords = getSettingKey("pHeaderKeywords") pAuctions = getSettingKey("pAuctions") pSuppliersList = getSettingKey("pSuppliersList") pNewsLetter = getSettingKey("pNewsLetter") pAffiliatesStoreFront = getSettingKey("pAffiliatesStoreFront") pAllowNewCustomer = getSettingKey("pAllowNewCustomer") pRssFeedServer = getSettingKey("pRssFeedServer") pCategoriesAlphOrder = getSettingKey("pCategoriesAlphOrder") pShowNews = getSettingKey("pShowNews") ' session pIdCustomer = getSessionVariable("idCustomer",0) pIdCustomerType = getSessionVariable("idCustomerType",1) pIdCategoryRoot = getCategoryStart(pIdStore) ' all root categories from category start mySQL="SELECT idCategory, categoryDesc, imageCategory FROM categories WHERE active=-1 AND idParentCategory=" & pIdCategoryRoot & " AND idCategory<>" &pIdCategoryRoot call getFromDatabase (mySql, rsTemp, "listCategoriesAndProducts") if rstemp.eof then response.redirect "comersus_message.asp?message="&Server.Urlencode(getMsg(7,"No ctg")) end if call customerTracking("comersus_listCategories.asp", request.querystring) %>
<%=getMsg(12,"Categories")%>

<% pColumnCounter=1 do while not rstemp.eof pIdCategory =rstemp("idCategory") pCategoryDesc =rstemp("categoryDesc") pImageCategory =rstemp("imageCategory") %> <%if pColumnCounter=1 then%> <%end if%> <%if pColumnCounter=3 then%> <%end if%> <% pColumnCounter = pColumnCounter+1 if pColumnCounter=4 then pColumnCounter=1 end if rstemp.movenext loop ' adjust table if pColumnCounter=2 then response.write "" end if if pColumnCounter=3 then response.write "" end if %>

<%if pImageCategory<>"" then%> <%end if%> <%=pCategoryDesc%>

<%call closeDb()%>