<% ' 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 m ' Details: list all the products marked as HotDeals %> <% on error resume next dim connTemp, rsTemp2, rsTemp ' 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") const numPerPage = 6 if request.queryString("currentPage") = "" then pCurrentPage = 1 else pCurrentPage = request.queryString("currentPage") end if pIdCustomer = session("idCustomer") ' get hot deals items mySql="SELECT idProduct, description, price, details, listPrice, bToBPrice, smallImageUrl, stock FROM products WHERE hotDeal=-1 AND listHidden=0 AND active=-1 ORDER BY description" call getFromDatabasePerPage(mySql, rsTemp2,"listHotDealsProducts") if rsTemp2.eof then response.redirect "message.asp?message="&Server.Urlencode(dictLanguage.Item(Session("language")&"_listhotdealsproducts_1") ) end if dim pTotalPages, count rsTemp2.moveFirst rsTemp2.PageSize = numPerPage pTotalPages = rsTemp2.PageCount rsTemp2.absolutePage = pCurrentPage %>

<%response.write dictLanguage.Item(Session("language")&"_listhotdealsproducts_2")%>

<% pRowCounter= 0 do while not rsTemp2.eof and pRowCounter< rsTemp2.PageSize pIdProduct = rsTemp2("idProduct") pDescription = rsTemp2("description") pPrice = rsTemp2("price") pDetails = rsTemp2("details") pListPrice = rsTemp2("listPrice") pBtoBPrice = rsTemp2("bToBPrice") pSmallImageUrl = rsTemp2("smallImageUrl") pStock = rsTemp2("stock") ' switch details and description to the user language selection switchProductsLanguage session("language"), pIdProduct, pDetails, pDescription ' special price flag pSpecialPrice=0 ' change prices depending on special prices asigned switchSpecialPrice pIdCustomer, pIdProduct, pPrice, pBtoBPrice, pSpecialPrice %><% pRowCounter= pRowCounter+ 1 rsTemp2.moveNext loop %>