<%
' Comersus Shopping Cart
' Comersus Open Technologies
' United States
' Software License can be found at License.txt
' http://www.comersus.com
' Details: advanced search exec process
%>
<%
on error resume next
dim connTemp, rsTemp2, f, pCounter
' get settings
pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode")
pCurrencySign = getSettingKey("pCurrencySign")
pDecimalSign = getSettingKey("pDecimalSign")
pCompany = getSettingKey("pCompany")
pCompanyLogo = getSettingKey("pCompanyLogo")
pAllowNewCustomer = getSettingKey("pAllowNewCustomer")
pCompareProducts = getSettingKey("pCompareProducts")
pIdCustomerType = getSessionVariable("idCustomerType",1)
const pNumPerPage = 6
dim curPage
pCurPage = getUserInput(request("curPage"),10)
if request.queryString("curPage") = "" then
pCurPage = 1
end if
pStrSearch = formatForDb(getUserInput(request("keyWord"),100))
pClearance = getUserInput(request("clearance"),2)
pIdCategory = getUserInput(request("idCategory"),4)
pIdSupplier = getUserInput(request("idSupplier"),4)
pWithStock = getUserInput(request("withStock"),2)
pIdCustomer = getSessionVariable("idCustomer",0)
pIdCustomerType = getSessionVariable("idCustomerType",0)
call customerTracking("comersus_advancedSearchExec.asp", request.form)
' get items
mySql = "SELECT DISTINCT products.idProduct, sku, description, listPrice, smallImageUrl, isBundleMain, rental, visits, stock.stock FROM products, categories_products, stock WHERE products.idProduct=categories_products.idProduct AND products.idStock=stock.idStock AND listHidden=0 AND active=-1 AND idStore=" &pIdStore
if pIdSupplier<>"0" then
mySql = mySql & " AND idSupplier=" &pIdSupplier
end if
if pIdCategory<>"0" then
mySql = mySql & " AND idCategory=" &pIdCategory
end if
if pWithStock="-1" then
mySql = mySql & " AND stock.stock>0"
end if
if pClearance="-1" then
mySql = mySql & " AND hotDeal=-1"
end if
if pStrSearch<>"" then
mySql = mySql & " AND description LIKE '%" &pStrSearch& "%'"
end if
call getFromDatabasePerPage(mySql, rsTemp2,"advancedSearchExec")
if rsTemp2.eof then
response.redirect "comersus_message.asp?message="&Server.Urlencode("No items under your search")
end if
rsTemp2.moveFirst
rsTemp2.pageSize = pNumPerPage
' get the max number of pages
dim TotalPages
totalPages = rsTemp2.PageCount
' set the absolute page
rsTemp2.absolutePage = pCurPage
%>
<%=getMsg(105,"Ad Search")%>
<%end if%>