<% ' Comersus BackOffice Lite ' e-commerce ASP Open Source ' Comersus Open Technologies LC ' 2005 ' http://www.comersus.com %> <% on error resume next dim mySQL, conntemp, rstemp ' get settings pCurrencySign = getSettingKey("pCurrencySign") pDecimalSign = getSettingKey("pDecimalSign") pCompany = getSettingKey("pCompany") pOrderPrefix = getSettingKey("pOrderPrefix") pIdCustomer = getUserInput(request("idCustomer"),20) if pIdCustomer = "" then ' get orders mySQL="SELECT orders.idOrder, name, lastName, phone, email, orderDate, total, orderstatus FROM orders, customers WHERE orders.idCustomer=customers.idCustomer ORDER BY idOrder DESC" call getFromDatabase(mySQL, rstemp, "comersus_backoffice_listorders.asp") else ' get orders for one customer mySQL="SELECT orders.idorder, name, lastName, phone, email, orderDate, total, orderstatus FROM orders, customers WHERE customers.idCustomer=" &pIdCustomer&" AND orders.idCustomer=customers.idCustomer ORDER BY idOrder DESC" call getFromDatabase(mySQL, rstemp, "comersus_backoffice_listorders.asp") end if if rstemp.eof then response.redirect "comersus_backoffice_message.asp?message="& Server.Urlencode("No orders found") end if pCounter=1 %>
Orders

<% do while not rstemp.eof And pCounter < 20 ' contact pName = rstemp("name") & " " & rstemp("lastName") ' order pIdorder = rstemp("idOrder") pOrderDate = rstemp("orderDate") pOrderStatus = rstemp("orderStatus") pTotal = rstemp("total") %> <% pCounter=pCounter+1 rstemp.movenext loop %>

Order	Date	Customer	Total	Status	View
<%=pOrderPrefix&pIdOrder%>	<%=pOrderDate%>	<%=pName%>	<%=pCurrencySign & money(ptotal)%>	<% select case pOrderStatus case 1 response.write "Pending" case 2 response.write "Delivered" case 3 response.write "Cancelled" case 4 response.write "Paid" case 5 response.write "Chargeback" case 6 response.write "Refunded" end select %>	View

<%if pIdCustomer = "" then%> Only latest 20 orders are displayed in this listing <%end if%> <%call closeDb()%>