<%if pTitle<>"" then%> <%=pCompany%> :: <%=pTitle%> <%else%> <%=pCompany%> :: OnLine Store <%end if%> <%if pMetaDescription="" then%> <%else%> <%end if%> <%if pSearchKeywords="" then%> <%else%> <%end if%> <% on error resume next dim mySQL, connTemp, rsTemp, rsTemp2, rsTemp7, pDefaultLanguage, pStoreFrontDemoMode, pCurrencySign, pDecimalSign, pMoneyDontRound, pCompany, pCompanyLogo, pHeaderKeywords, pAuctions, pListBestSellers, pNewsLetter, pPriceList, pStoreNews, pOneStepCheckout, pRealTimeShipping, pAllowNewCustomer, pByPassShipping, total, totalDeliveringTime, pIdDbSession, pIdDbSessionCart, pIdCustomer, pIdCustomerType, pLanguage, pCustomerName, pHeaderCartItems, pHeaderCartSubtotal, pAffiliatesStoreFront, pIdCartRow, pIdProduct, pQuantity, pUnitPrice, pDescription, pSku, pDeliveringTime, pPersonalizationDesc, pRental, pItHasFreeProduct, pDetails, pOptionGroupsTotal, pRowPrice ' get settings pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode") pCurrencySign = getSettingKey("pCurrencySign") pDecimalSign = getSettingKey("pDecimalSign") pCompany = getSettingKey("pCompany") pCompanyLogo = getSettingKey("pCompanyLogo") pMoneyDontRound = getSettingKey("pMoneyDontRound") pByPassShipping = getSettingKey("pByPassShipping") pTaxIncluded = getSettingKey("pTaxIncluded") pRealTimeShipping = getSettingKey("pRealTimeShipping") pAllowNewCustomer = getSettingKey("pAllowNewCustomer") pAffiliatesStoreFront = getSettingKey("pAffiliatesStoreFront") pSuppliersList = getSettingKey("pSuppliersList") pAuctions = getSettingKey("pAuctions") pNewsLetter = getSettingKey("pNewsLetter") total = Cdbl(0) totalDeliveringTime = Cdbl(0) pIdDbSession = checkSessionData() pIdDbSessionCart = checkDbSessionCartOpen() pIdCustomerType = getSessionVariable("idCustomerType",1) ' check if the cart is empty if countCartRows(pIdDbSessionCart)=0 then response.redirect "comersus_message.asp?message="&Server.Urlencode(getMsg(40,"emtpy")) end if %>
 
<%=getMsg(42,"Your cart contains")%>
<% ' get all products in the cart mySQL="SELECT idCartRow, cartRows.idProduct, quantity, unitPrice, description, sku, deliveringTime, personalizationDesc, rental, cutname FROM cartRows, products WHERE cartRows.idProduct=products.idProduct AND cartRows.idDbSessionCart="&pIdDbSessionCart call getFromDatabase(mySQL, rstemp, "showCart") do while not rstemp.eof pIdCartRow = rstemp("idCartRow") pIdProduct = rstemp("idProduct") pQuantity = rstemp("quantity") pUnitPrice = Cdbl(rstemp("unitPrice")) pDescription = rstemp("description") pSku = rstemp("sku") pDeliveringTime = rstemp("deliveringTime") pPersonalizationDesc = rstemp("personalizationDesc") pRental = rstemp("rental") pCutname = rstemp("cutname") %>

<% if Cint(pDeliveringTime)>totalDeliveringTime then totalDeliveringTime = Cint(pDeliveringTime) end if rstemp.moveNext loop %>

<%=getMsg(43,"Qty")%> <%=getMsg(44,"Item")%> <%=getMsg(45,"Opt")%> <%=getMsg(46,"Price")%> <%=getMsg(47,"Act")%>
<%=pCutname%> <%=pDescription%> <%if pPersonalizationDesc<>"" then response.write " (" &pPersonalizationDesc& ")"%> <%=getCartRowOptionals(pIdCartRow)%> <%=pCurrencySign & money(getCartRowPrice(pIdCartRow))%> <%=getMsg(48,"remove")%>

">

<%=getMsg(50,"Total")%> <%=pCurrencySign & money(calculateCartTotal(pIdDbSessionCart)) %> <%if pTaxIncluded<>"-1" then%> <%=getMsg(51,"Tx inc")%>
<%else%> <%=getMsg(52,"Tax n/incl")%>
<%end if%> <%=getMsg(53,"Availability")%>  <% if totalDeliveringTime>0 and totalDeliveringTime<999 then response.write totalDeliveringTime & " " & getMsg(54," days") end if if totalDeliveringTime=0 then response.write getMsg(56,"same day") end if ' use 999 for undetermined if totalDeliveringTime>998 then response.write getMsg(55,"Und") end if %>

<%if ucase(pRealTimeShipping)="NONE" and pByPassShipping="0" then%>
<%=getMsg(59,"Get sh cost")%>

<%end if%>
">



<%call closeDb()%>