<% ':: Everest E-Commerce Advanced Edition ':: Copyright 1999 - 2005 iCode, Inc. All rights reserved. ':: Template: Aquarius/renstore2007 %> <%=sWebSiteName%> - <%=Server.HTMLEncode(sPageTitle)%> <%If not rsItems.Eof Then If sMatrixItemType = iTYPE_MATRIX_DETAIL Then sStock = rsItems("STOCK") sAllowCC = rsItems("ALLOWCC") sWeight = rsItems("WEIGHT") sWeightMeasure=rsItems("SALE_WEIGHT_MEASURE") sInventored = rsItems("INVENTORED") bDownloadable = rsItems("ALLOW_DOWNLOAD") iDownloadValidity = rsItems("DOWNLOAD_VALID_DAYS") sRFCPeriod = rsItems("RFC_WARRANTY_PERIOD") sRFCType = rsItems("RFC_WARRANTY_PERIOD_TYPE") sRFRPeriod = rsItems("RFR_WARRANTY_PERIOD") sRFRType = rsItems("RFR_WARRANTY_PERIOD_TYPE") sRFTPeriod = rsItems("RFT_WARRANTY_PERIOD") sRFTType = rsItems("RFT_WARRANTY_PERIOD_TYPE") sReturnCredit = rsItems("IS_RETURN_FOR_CREDIT") sReturnRefund = rsItems("IS_RETURN_FOR_REFUND") sReturnRep = rsItems("IS_RETURN_FOR_REPLACEMENT") bAllowSaleUnit = rsItems("ALLOW_SALE_IN_UNITS") iUnits = rsItems("UNITS") End If sMeasureDesc = rsItems("MEASURE_DESC") iFraction = rsItems("FRACTION") sRegPrice = rsItems("REGULARPRICE") sPrice = rsItems("PRICE") sItemCode = rsItems("ItemCode") sItemName = rsItems("DESCRIPTION") sDescription = rsItems("WEBDESC") sSmallImage = rsItems("IMAGESMALL") sThumbImage = rsItems("IMAGETHUMB") sOrigImage = rsItems("IMAGEORIG") sItemCallForPrice = rsItems("CALL4PRICE") sCategoryEnabled = rsItems("CATEGORYWEBENABLED") sAudio = Trim(rsItems("AUDIO")) sVideo = Trim(rsItems("VIDEO")) sModel = rsItems("MODEL") sMatrixGroupCode = rsItems("MATRIX_GROUP_CODE") bDisplayLowPriceMsg = rsItems("DISPLAY_LOW_PRICE_MSG") sAdditionalPrice = rsItems("ADD_CURR_PRICE") sAdditionalRegularPrice = rsItems("ADD_CURR_REGULARPRICE") sCatCode = rsItems("CATEGORYCODE") sCatName = rsItems("CATEGORYNAME") sBrand = rsItems("BRAND") sBrandDescript = rsItems("BRAND_DESCRIPT") sManuCode = rsItems("MANUCODE") sManuDescript = rsItems("MANU_DESCRIPT") sManuWebActive = rsitems("MANU_WEB_ACTIVE") sBrandWebActive = rsitems("BRAND_WEB_ACTIVE")%>
<%=sItemName%>
<%if sMatrixItemType = iTYPE_MATRIX_DETAIL Then '*** If related items are there and show related items is enabled in Everest Dim bRelUpgPresent bRelUpgPresent = False If bShowRelatedItems Then If not rsRltdItems.Eof then bRelUpgPresent = True%> <%If sItemCallForPrice <> "T" Then%> <%End If%>
Select the needed Check box and click on Add to Cart of <%= sItemName %>.
<%End If End If '*** Showing Related Items end here%> <%'*** If upgrade items are there then show them If bUpgDwgItems Then If not rsUpgradeItems.Eof Then bRelUpgPresent = True%>
<%End If End If End If '*** If upgrade items are there then show them condition ends here%> <%'*** If no related items and upgrade items then show categories in the left side If not bRelUpgPresent Then%> <%End if%>