<% ' Comersus Sophisticated Cart ' Comersus Open Technologies LC ' 2005 ' Open Source License can be found at documentation/readme.txt ' http://www.comersus.com ' Details: list all items inside a category %> <% on error resume next dim mySQL, conntemp, rstemp, pIdCategory, pIdProduct, pDescription, pPrice ' get settings pDefaultLanguage = getSettingKey("pDefaultLanguage") pCompany = getSettingKey("pCompany") pStoreLocation = getSettingKey("pStoreLocation") pCurrencySign = getSettingKey("pCurrencySign") pDecimalSign = getSettingKey("pDecimalSign") pIdCategory = getUserInput(request.QueryString("idCategory"),12) ' get items in that category mySQL="SELECT * FROM products, categories_products WHERE categories_products.idCategory=" &pIdCategory& " AND products.idProduct=categories_products.idProduct AND listhidden=0 AND active=-1 ORDER BY description" call getFromDatabase (mySql, rsTemp, "WapListProductsByCategory") if rstemp.eof then call redirectWap("comersus_wapMessage.asp?message="&Server.UrlEncode("No categories defined")) end If pCategoryDesc = rstemp("categoryDesc")%>

Category: <%=pCategoryDesc%> <%do while not rstemp.eof%>
<%=rstemp("description")%> <% if pCurrencySign="$" then response.write "$$" & money(rstemp("price")) else response.write pCurrencySign & money(rstemp("price")) end if rstemp.MoveNext loop %>

<% set conntemp = nothing set rstemp = nothing call closeDb() %>