<% ' Comersus Shopping Cart ' Comersus Open Technologies ' United States ' Software License can be found at License.txt ' http://www.comersus.com ' Details: advanced search form page %> <% on error resume next dim mySQL, connTemp, rsTemp, rsTemp2 ' 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") pListBestSellers = getSettingKey("pListBestSellers") pNewsLetter = getSettingKey("pNewsLetter") pPriceList = getSettingKey("pPriceList") pStoreNews = getSettingKey("pStoreNews") pOneStepCheckout = getSettingKey("pOneStepCheckout") pAffiliatesStoreFront = getSettingKey("pAffiliatesStoreFront") pAllowNewCustomer = getSettingKey("pAllowNewCustomer") pShowNews = getSettingKey("pShowNews") pRssFeedServer = getSettingKey("pRssFeedServer") pIdCustomer = getSessionVariable("idCustomer",0) pIdCustomerType = getSessionVariable("idCustomerType",1) %>

<%=getMsg(105,"Ad Search")%>

<%=getMsg(87,"Categ")%>	<% ' get leaf categories from db mySQL="SELECT idCategory, categoryDesc, idParentCategory FROM categories WHERE idCategory>1" call getFromDatabase(mySQL, rstemp2, "advancedSearchForm") if rstemp2.eof then response.redirect "comersus_supportError.asp?error="& Server.Urlencode("No defined categories") end if %> <%=getMsg(94,"All")%> <% do while not rstemp2.eof mySQL="SELECT A.idCategory FROM categories A, categories B WHERE A.idCategory=B.idParentCategory and A.idCategory ="& rstemp2("idCategory") call getFromDatabase(mySQL, rstemp, "advancedSearchForm") if rstemp.eof then%> <%=rstemp2("categoryDesc")%> <%end if rstemp2.movenext loop %>
<%=getMsg(88,"Supl")%>	<% mySQL="SELECT idSupplier, supplierName FROM suppliers" call getFromDatabase(mySQL, rstemp, "advancedSearchForm") if rstemp.eof then response.redirect "comersus_admin_supporterror.asp?error="& Server.Urlencode("No suppliers defined") end if %> <%=getMsg(94,"All")%> <% do while not rstemp.eof %> <%=rstemp("supplierName")%> <% rstemp.movenext loop %>
<%=getMsg(89,"Pri")%>
<%=getMsg(92,"w/stock")%>
<%=getMsg(93,"Kword")%>
">

<%call closeDb()%>