<% ' Comersus Shopping Cart ' Comersus Open Technologies ' United States ' Software License can be found at License.txt ' http://www.comersus.com ' Details: view item details for bundle products %> <% on error resume next dim connTemp, rsTemp, mySql, pIdProduct, pDescription, pPrice, pDetails, pListPrice, pImageUrl, pWeight, pIdProduct2 ' get settings pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode") pCurrencySign = getSettingKey("pCurrencySign") pDecimalSign = getSettingKey("pDecimalSign") pCompany = getSettingKey("pCompany") pCompanySlogan = getSettingKey("pCompanySlogan") pHeaderKeywords = getSettingKey("pHeaderKeywords") pMoneyDontRound = getSettingKey("pMoneyDontRound") pCurrencyConversion = lCase(getSettingKey("pCurrencyConversion")) pShowBtoBPrice = getSettingKey("pShowBtoBPrice") pShowStockView = getSettingKey("pShowStockView") pProductReviews = getSettingKey("pProductReviews") pUnderStockBehavior = lCase(getSettingKey("pUnderStockBehavior")) pEmailToFriend = getSettingKey("pEmailToFriend") pWishList = getSettingKey("pWishList") pRelatedProducts = getSettingKey("pRelatedProducts") pGetRelatedProductsLimit= getSettingKey("pGetRelatedProductsLimit") pAffiliatesStoreFront = getSettingKey("pAffiliatesStoreFront") pRealTimeShipping = lCase(getSettingKey("pRealTimeShipping")) pCompareWithAmazon = getSettingKey("pCompareWithAmazon") pAuctions = getSettingKey("pAuctions") pListBestSellers = getSettingKey("pListBestSellers") pNewsLetter = getSettingKey("pNewsLetter") pPriceList = getSettingKey("pPriceList") pStoreNews = getSettingKey("pStoreNews") pExitSurvey = getSettingKey("pExitSurvey") pTemplateStore = getSettingKey("pTemplateStore") pDonationStringId = getSettingKey("pDonationStringId") pAdSenseClient = getSettingKey("pAdSenseClient") pShowNews = getSettingKey("pShowNews") ' session pIdCustomer = getSessionVariable("idCustomer",0) pIdCustomerType = getSessionVariable("idCustomerType",1) pIdProduct = getUserInput(request.queryString("idProduct"),10) pIdAffiliate = getUserInput(request.querystring("idAffiliate"),4) ' set affiliate if isNumeric(pIdAffiliate)then session("idAffiliate")= pIdAffiliate end if if trim(pIdProduct)="" or IsNumeric(pIdProduct)=false then response.redirect "comersus_message.asp?message="&Server.Urlencode(getMsg(17,"Invalid")) end if ' redirect to rental screen if isRental(pIdProduct) then response.redirect "comersus_optRentalEnterInterval.asp?idProduct="&pIdProduct end if ' if is not a bundle main, redirect to regular viewItem if not isBundleMain(pIdProduct) then response.redirect "comersus_viewItem.asp?idProduct="&pIdProduct end if ' gets item details from db mySQL="SELECT description, details, sku, searchKeywords, imageUrl FROM products WHERE idProduct=" &pIdProduct& " AND active=-1 AND idStore=" &pIdStore call getFromDatabase (mySql, rsTemp, "ViewItem") if rsTemp.eof then response.redirect "comersus_message.asp?message="&Server.Urlencode(getMsg(580,"Cannot get product details. Please contact us to request more information about item "&pIdProduct)) end if pDescription = rsTemp("description") pDetails = rsTemp("details") pStock = getStock(pIdProduct) pSku = rsTemp("sku") pSearchKeywords = rsTemp("searchKeywords") pImageUrl = rsTemp("imageUrl") ' for meta tags pTitle = pDescription %>
<%if pAdSenseClient<>"0" then%> <%end if%>

<%if pShowStockView="-1" then%> <%end if%> <% ' get inner products mySQL="SELECT products.idProduct, smallImageUrl, description, formQuantity, map FROM bundles, products WHERE mainIdProduct=" &pIdProduct& " AND bundles.idProduct=products.idProduct" call getFromDatabase (mySql, rsTemp, "ViewItem") pCounter=1 do while not rsTemp.eof pPrice = getPrice(rstemp("idProduct"), pIdCustomerType, pIdCustomer) pFormQuantity = rsTemp("formQuantity") pMapPrice = rsTemp("map") if pFormQuantity=0 then pFormQuantity=1 end if %> "> <%if pShowStockView="-1" then%> <%end if%> <% pCounter= pCounter+1 rstemp.movenext loop %>

<%=pSku& " " &pDescription%>
<%=pDetails%>
<%if pImageUrl<>"" then%> <%end if%> <%if pProductReviews="-1" then pRateReview=getRateReview(pIdProduct) if Cdbl(pRateReview)>0 then%> <%=getMsg(23,"Rated")%> <%=round(pRateReview,2)%>  <%else%> <%=getMsg(24,"Not rated")%> <%end if%> <%end if ' reviews%>
<%if pDiscountPerQuantity=-1 then%> <%=getMsg(27,"Discounts qty")%> <%end if%> <%if pEmailToFriend="-1" then%> "><%=getMsg(30,"Email 2 friend")%> <%end if%> <%if pWishList="-1" then%> <%=getMsg(31,"Add 2 WL")%> <%end if%>
<%=getMsg(665,"img")%>	<%=getMsg(666,"desc")%>	<%=getMsg(667,"stock")%>	<%=getMsg(668,"price")%>	<%=getMsg(669,"purch")%>
<%if rstemp("smallImageUrl")<>"" then%> <%else%> <%end if%>	<%=rstemp("description")%>	<%=getStock(rstemp("idProduct"))%>	<% If pMapPrice = "-1" Then response.write "(Add to the cart to find out)" else%> <%=pCurrencySign&money(pPrice)%> <%end if%>	0 1 <%if pFormQuantity>1 then for f=2 to pFormQuantity%> <%=f%> <%next end if%>
" name=add>

<%call closeDb()%>