<% ' Comersus Shopping Cart ' Comersus Open Technologies ' United States ' Software License can be found at License.txt ' http://www.comersus.com ' Details: show a list of orders %> <% 'on error resume next dim connTemp, rsTemp, mySql, counter ' get settings pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode") pCurrencySign = getSettingKey("pCurrencySign") pDecimalSign = getSettingKey("pDecimalSign") pCompany = getSettingKey("pCompany") pCompanySlogan = getSettingKey("pCompanySlogan") pAboutUsLink = getSettingKey("pAboutUsLink") pMoneyDontRound = getSettingKey("pMoneyDontRound") pAffiliatesStoreFront = getSettingKey("pAffiliatesStoreFront") pAuctions = getSettingKey("pAuctions") pListBestSellers = getSettingKey("pListBestSellers") pNewsLetter = getSettingKey("pNewsLetter") pPriceList = getSettingKey("pPriceList") pStoreNews = getSettingKey("pStoreNews") pOneStepCheckout = getSettingKey("pOneStepCheckout") pAllowDelayPayment = getSettingKey("pAllowDelayPayment") pOrderPrefix = getSettingKey("pOrderPrefix") pDateSwitch = getSettingKey("pDateSwitch") ' session pIdCustomer = getSessionVariable("idCustomer","0") pIdCustomerType = getSessionVariable("idCustomerType","1") call customerTracking("comersus_customerShowOrders.asp", request.querystring) ' get orders, for demo store get only 10 orders if pStoreFrontDemoMode="-1" and lCase(pDataBase)<>"mysql" then mySQL="SELECT TOP 10 orders.idOrder, orderDate, total, orderStatus FROM orders, customers WHERE orders.idCustomer=customers.idCustomer AND customers.idCustomer=" &pIdCustomer& " ORDER by orders.idOrder DESC" else mySQL="SELECT orders.idOrder, orderDate, total, orderStatus FROM orders, customers WHERE orders.idCustomer=customers.idCustomer AND customers.idCustomer=" &pIdCustomer& " ORDER by orders.idOrder DESC" end if call getFromDatabase (mySql, rsTemp,"customerShowOrders") if rstemp.eof then response.redirect "comersus_message.asp?message="&Server.Urlencode(getMsg(550,"Empty order list")) end if counter=Cint(0) %> <%=getMsg(551,"history")%>

<%do while not rstemp.eof counter = counter +1 pIdOrder = rstemp("idOrder") pOrderDate = rstemp("orderDate") pTotal = rstemp("total") pOrderStatus = rstemp("orderStatus") mySQL="SELECT SUM(quantity) AS sumQTY FROM cartRows, dbSessionCart WHERE dbSessionCart.idDbSessionCart=cartRows.idDbSessionCart AND dbSessionCart.idOrder=" &pIdOrder call getFromDatabase (mySql, rsTemp2,"customerShowOrders") if not isNull(rstemp2("sumQty")) then pSumQty = rstemp2("sumQty") else pSumQty = 0 end if %> <%rstemp.movenext loop%>

<%=getMsg(552,"date")%>	<%=getMsg(553,"order")%>	<%=getMsg(554,"total")%>	<%=getMsg(556,"items")%>	<%=getMsg(555,"status")%>	<%=getMsg(738,"rma")%>
<%=formatDate(pOrderDate)%>	<%=pOrderPrefix&pIdorder%>	<%=pCurrencySign & money(ptotal)%>	<%=pSumQty%>	<%select case pOrderStatus case 1 response.write getMsg(549,"pending") case 2 response.write getMsg(534,"delivered") case 3 response.write getMsg(535,"cancel") case 4 response.write getMsg(536,"paid") case 5 response.write getMsg(537,"cback") case 6 response.write getMsg(538,"rfunded") end select %>	<% ' check RMA mySQL="SELECT idRma, rmaStatus FROM RMA WHERE idOrder=" &pIdOrder call getFromDatabase (mySql, rsTemp2,"customerShowOrders") if not rstemp2.eof then select case rstemp2("rmaStatus") case 1 response.write getMsg(739,"pending") case 2 response.write getMsg(740,"approved") case 3 response.write getMsg(741,"rejected") end select else response.write "-" end if %>

<%call closeDb()%>