<% ' Comersus Shopping Cart ' Comersus Open Technologies ' United States ' Software License can be found at License.txt ' http://www.comersus.com ' Details: show wish list %> <% on error resume next dim connTemp, mySql, rsTemp ' get settings pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode") pCurrencySign = getSettingKey("pCurrencySign") pDecimalSign = getSettingKey("pDecimalSign") pCompany = getSettingKey("pCompany") pCompanySlogan = getSettingKey("pCompanySlogan") pAboutUsLink = getSettingKey("pAboutUsLink") pStoreLocation = getSettingKey("pStoreLocation") pMoneyDontRound = getSettingKey("pMoneyDontRound") pHeaderKeywords = getSettingKey("pHeaderKeywords") pAuctions = getSettingKey("pAuctions") pAllowNewCustomer = getSettingKey("pAllowNewCustomer") pNewsLetter = getSettingKey("pNewsLetter") pStoreNews = getSettingKey("pStoreNews") pSuppliersList = getSettingKey("pSuppliersList") pIdCustomer = getSessionVariable("idCustomer",0) pIdCustomerType = getSessionVariable("idCustomerType",0) ' get customers email mySql="SELECT email FROM customers WHERE idCustomer=" &pIdCustomer call getFromDatabase(mySql, rsTemp, "customerWishListView") if not rstemp.eof then pEmail=rstemp("email") end if mySql="SELECT products.idProduct, sku, description, smallImageUrl FROM wishList, products WHERE products.idProduct=wishList.idproduct AND idCustomer="&pIdCustomer call getFromDatabase(mySql, rsTemp, "customerWishListView") if rstemp.eof then response.redirect "comersus_message.asp?message="& Server.Urlencode(getMsg(195,"No items.")) end if %>

<%=getMsg(192,"tittle")%>

<%=getMsg(193,"Info about WL1")%>
<%=getMsg(194,"Info about WL2")%>

<% wishListTotal=Cdbl(0) do while not rstemp.eof pPrice = getPrice(rstemp("idProduct"), pIdCustomerType, pIdCustomer) %> <% wishListTotal=wishListTotal+pPrice rstemp.movenext loop %>

<%=getMsg(196,"Item")%>	<%=getMsg(197,"Desc")%>	<%=getMsg(198,"Price")%>	<%=getMsg(199,"Actions")%>
<%if rstemp("smallImageUrl")<>"" then%> ">" vspace=3> <%else%> <%end if%>	"><%=rstemp("description")%>	<%=pCurrencySign & money(pPrice)%>	"><%=getMsg(200,"Rmv")%>

<%=getMsg(201,"Total")%> <%=pCurrencySign & money(wishListTotal)%>

<%=getMsg(202,"Link")%>  http://<%=pStoreLocation%>/store/comersus_wishListPublic.asp?email=<%=pEmail%>&idCustomer=<%=pIdCustomer%>

<%call closeDb()%>