<% ' Comersus Shopping Cart ' Comersus Open Technologies ' United States ' Software 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") pCompanySlogan = getSettingKey("pCompanySlogan") pAboutUsLink = getSettingKey("pAboutUsLink") pStoreLocation = getSettingKey("pStoreLocation") pHeaderKeywords = getSettingKey("pHeaderKeywords") pAuctions = getSettingKey("pAuctions") pSuppliersList = getSettingKey("pSuppliersList") pNewsLetter = getSettingKey("pNewsLetter") pAffiliatesStoreFront = getSettingKey("pAffiliatesStoreFront") pAllowNewCustomer = getSettingKey("pAllowNewCustomer") pRssFeedServer = getSettingKey("pRssFeedServer") pDateSwitch = getSettingKey("pDateSwitch") pShowNews = getSettingKey("pShowNews") 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="" or isNull(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")%>: <%=money(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(734,"Request RMQ")%>
- <%=getMsg(164,"Contact")%>
- <%=getMsg(165,"Logout")%>

<%call closeDb()%>