<% ' Comersus 4.2x Sophisticated Cart ' Developed by Rodrigo S. Alhadeff ' Dic-2002 ' Open Source 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 pDefaultLanguage = getSettingKey("pDefaultLanguage") pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode") pCurrencySign = getSettingKey("pCurrencySign") pDecimalSign = getSettingKey("pDecimalSign") pCompany = getSettingKey("pCompany") pCompanyLogo = getSettingKey("pCompanyLogo") pAuctions = getSettingKey("pAuctions") pListBestSellers = getSettingKey("pListBestSellers") pNewsLetter = getSettingKey("pNewsLetter") pPriceList = getSettingKey("pPriceList") pStoreNews = getSettingKey("pStoreNews") pOneStepCheckout = getSettingKey("pOneStepCheckout") %> <% validateForm "advancedSearchExec.asp" %>

<%=dictLanguage.Item(Session("language")&"_optadvancedsearchform_1")%>

<% validateError %>

<%=dictLanguage.Item(Session("language")&"_optadvancedsearchform_2")%>	<% pLanguage = getSessionVariable("language",pDefaultLanguage) ' get leaf categories from db if pLanguage<>pDefaultLanguage then mySQL="SELECT DISTINCT idCategory, categoryDesc FROM categories_languages, languages WHERE idCategory>1" else mySQL="SELECT idCategory, categoryDesc, idParentCategory FROM categories WHERE idCategory>1" end if call getFromDatabase(mySQL, rstemp2, "advancedSearchForm") if rstemp2.eof then response.redirect "supportError.asp?error="& Server.Urlencode("No defined categories in advancedsearchform") end if %>
<%=dictLanguage.Item(Session("language")&"_optadvancedsearchform_3")%>	<% mySQL="SELECT idSupplier, supplierName FROM suppliers" call getFromDatabase(mySQL, rstemp, "advancedSearchForm") if rstemp.eof then response.redirect "admin_supporterror.asp?error="& Server.Urlencode("No suppliers defined in optadvancedsearchform") end if %>
<%=dictLanguage.Item(Session("language")&"_optadvancedsearchform_5")%>	<%=dictLanguage.Item(Session("language")&"_optadvancedsearchform_6")%> <%=pCurrencySign%> <%validate "priceFrom", "number"%> <%textbox "priceFrom", "0", 6, "textbox"%> <%=dictLanguage.Item(Session("language")&"_optadvancedsearchform_7")%> <%=pCurrencySign%> <%validate "priceUntil", "number"%> <%textbox "priceUntil", "99999", 6, "textbox"%>
<%=dictLanguage.Item(Session("language")&"_optadvancedsearchform_8")%>
<%=dictLanguage.Item(Session("language")&"_optadvancedsearchform_9")%>	<%validate "keyWord", "required"%> <%textbox "keyWord", "", 40, "textbox"%>
">