% ' Comersus Shopping Cart ' Comersus Open Technologies ' United States ' Software License can be found at License.txt ' http://www.comersus.com ' Details: get products marked as showInHome %> <% 'on error resume next dim connTemp, rsTemp, rsTemp3, pItemsShown, pMaxPopularity, arrCounter, pIdCustomer, pIdCustomerType, howManyHome, mySQL, pDefaultLanguage, pStoreFrontDemoMode, pCurrencySign, pDecimalSign, pMoneyDontRound, pCompany, pCompanyLogo, pHeaderKeywords, pAuctions, pListBestSellers, pNewsLetter, pPriceList, pStoreNews, pOneStepCheckout, pAffiliatesStoreFront, pShowStockView, pIdProductVip, pLastChanceListing, pAllowNewCustomer, pListProductsByLetter, pRunInstallationWizard, pIdProduct, pDescription, pDetails, pDetailsVip, pImageUrlVip, pLanguage, pCustomerName, pHeaderCartItems, pHeaderCartSubtotal, pItemCounter, f, h call saveCookie() ' get settings pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode") pCurrencySign = getSettingKey("pCurrencySign") pDecimalSign = getSettingKey("pDecimalSign") pMoneyDontRound = getSettingKey("pMoneyDontRound") pCompany = getSettingKey("pCompany") pCompanySlogan = getSettingKey("pCompanySlogan") pAboutUsLink = getSettingKey("pAboutUsLink") pStoreLocation = getSettingKey("pStoreLocation") pHeaderKeywords = getSettingKey("pHeaderKeywords") pDateSwitch = getSettingKey("pDateSwitch") pDateFormat = getSettingKey("pDateFormat") pSuppliersList = getSettingKey("pSuppliersList") pAuctions = getSettingKey("pAuctions") pAffiliatesStoreFront = getSettingKey("pAffiliatesStoreFront") pRssFeedServer = getSettingKey("pRssFeedServer") pNewsLetter = getSettingKey("pNewsLetter") pShowStockView = getSettingKey("pShowStockView") pAllowNewCustomer = getSettingKey("pAllowNewCustomer") pRunInstallationWizard = getSettingKey("pRunInstallationWizard") pItemsShown = Cint(getSettingKey("pItemsShown")) pShowNews = getSettingKey("pShowNews") pShowAddedToday = getSettingKey("pShowAddedToday") if pRunInstallationWizard="-1" then response.redirect "../backofficeLite/comersus_backoffice_install0.asp" end if pMaxPopularity = 0 arrCounter = 0 pTodayCount = 0 pIdCustomer = getSessionVariable("idCustomer",0) pIdCustomerType = getSessionVariable("idCustomerType",1) ' get how many products are marked as showInHome mySQL="SELECT COUNT(idl; } .tdshade2 { background-color: #EEEEEE; border-top: 1px #374646 solid; border-left: 1px #374646 solid; border-right: 1px #374646 solid; border-bottom: 1px #374646 solid; font-family: verdana, arial; font-size: 10pt; font-weight: normal; }