<% ' Comersus 6.0x Sophisticated Cart ' Developed by Rodrigo S. Alhadeff for Comersus Open Technologies ' United States ' Open Source License can be found at License.txt ' http://www.comersus.com ' Details: customer menu %> <% dim connTemp, rsTemp, mySql on error resume next ' get settings pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode") pCurrencySign = getSettingKey("pCurrencySign") pDecimalSign = getSettingKey("pDecimalSign") pCompany = getSettingKey("pCompany") pAuctions = getSettingKey("pAuctions") pSuppliersList = getSettingKey("pSuppliersList") pNewsLetter = getSettingKey("pNewsLetter") pAffiliatesStoreFront = getSettingKey("pAffiliatesStoreFront") pAllowNewCustomer = getSettingKey("pAllowNewCustomer") pRssFeedServer = getSettingKey("pRssFeedServer") pDateSwitch = getSettingKey("pDateSwitch") pRecommendations = getSettingKey("pRecommendations") pBonusPointsPerPrice = getSettingKey("pBonusPointsPerPrice") pIdCustomer = getSessionVariable("idCustomer",0) pIdCustomerType = getSessionVariable("idCustomerType",1) pWishListCount = 0 mySQL="SELECT name, lastName, bonusPoints, birthDay FROM customers WHERE idCustomer=" &pIdCustomer call getFromDatabase(mySQL, rstemp, "utilitiesMenu") if rstemp.eof then response.redirect "comersus_supportError.asp?error=Cannot locate customer record" end if pCustomerName =rstemp("name") & " " &rstemp("lastName") pBounsPoints =rstemp("bonusPoints") pBirthDay =rstemp("birthDay") ' count orders mySQL="SELECT COUNT(*) AS ordersCount FROM orders WHERE idCustomer=" &pIdCustomer call getFromDatabase(mySQL, rstemp, "utilitiesMenu") pOrdersCount=rstemp("ordersCount") ' count wish list mySQL="SELECT COUNT(*) AS wlCount FROM wishList WHERE idCustomer=" &pIdCustomer call getFromDatabase(mySQL, rstemp, "utilitiesMenu") pWishListCount=rstemp("wlCount") %>
 

<%=getMsg(148,"Acc")%>

<%=getMsg(149,"Name")%>: <%=pCustomerName%>
<%=getMsg(150,"Cust type")%>: <%if pIdCustomerType=2 then%> <%=getMsg(151,"Whole")%> <%else%> <%=getMsg(152,"Ret")%> <%end if%>
<%=getMsg(153,"Orders")%>: <%=pOrdersCount%>
<%=getMsg(203,"Your WL has")%> <%=pWishListCount%> <%=getMsg(204,"Items")%>
<%=getMsg(154,"Birth")%>: <%if pBirthDay="" then%> <%=getMsg(155,"N def")%>   <%=getMsg(156,"Enter")%> <%else%> <%=formatDate(pBirthDay)%> <%=getMsg(157,"Change")%> <%end if%> <%if pBonusPointsPerPrice<>"0" then%>
<%=getMsg(158,"Bon points")%>: <%=pBounsPoints%> <%end if%>

<%=getMsg(159,"Modify Info")%>
<%=getMsg(160,"W List")%> <%if pAuctions="-1" then%>
<%=getMsg(162,"Auct")%> <%end if%> <%if pRecommendations="-1" then%>
<%=getMsg(163,"Cust recom")%> <%end if%>
<%=getMsg(164,"Contact")%>
<%=getMsg(165,"Logout")%>

<%call closeDb()%>