<% ' Comersus BackOffice Lite ' e-commerce ASP Open Source ' Comersus Open Technologies LC ' 2005 ' http://www.comersus.com %> <% on error resume next dim mySQL, conntemp, rstemp ' get settings pDefaultLanguage = getSettingKey("pDefaultLanguage") pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode") pCurrencySign = getSettingKey("pCurrencySign") pDecimalSign = getSettingKey("pDecimalSign") pCompany = getSettingKey("pCompany") pStoreLocation = getSettingKey("pStoreLocation") pKey = getUserInput(request("key"),20) pKey = replace(pKey,"'","") if (trim(pKey)="") then response.redirect "comersus_backoffice_message.asp?message="& Server.Urlencode("Please enter search criteria") end if mySQL = "SELECT * FROM products WHERE details LIKE '%" &pKey& "%' OR description LIKE '%" &pKey& "%'" call getFromDatabase(mySQL, rstemp, "comersus_backoffice_searchItemExec.asp") if rstemp.eof then response.redirect "comersus_backoffice_message.asp?message="& Server.Urlencode("There are no items under your search") end if %>
Product selection

Search key: <%=pKey%>

<% ' set Count equal to zero Count = 0 Do While Not rstemp.EOF And Count < rstemp.PageSize pIdProduct = rstemp("idProduct") pDescription = rstemp("description") pPrice = rstemp("price") pCost = rstemp("cost") pDetails = rstemp("details") pListPrice = rstemp("listPrice") pSku = rstemp("sku") pActive = rstemp("active") pHotDeal = rstemp("hotDeal") pShowInHome = rstemp("showInHome") %> <% count = count + 1 rstemp.MoveNext loop %>

SKU	Description	Price	Cost	Active	Clearance	In Home	Actions
<%=pSku%>	<%=pDescription%>	<%=pCurrencySign & money(pPrice)%>	<%=pCurrencySign & money(pCost)%>	<% if pActive="-1" then response.write "Yes" else response.write "No" end if %>	<% if pHotDeal="-1" then response.write "Yes" else response.write "No" end if %>	<% if pShowInHome="-1" then response.write "Yes" else response.write "No" end if %>	Edit Delete

Full BackOffice included with Power Pack Medium and Premium includes pagination (Page x of y...)