<% ' Comersus BackOffice Lite ' e-commerce ASP Open Source ' Developed by Rodrigo S. Alhadeff, contributions of Ricardo Fuga ' 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") pIdOrder = getUserInput(request("idOrder"),12) if pIdOrder="" then response.redirect "comersus_backoffice_message.asp?message="& Server.Urlencode("Please enter a valid order") end if mySQL="SELECT orders.idOrder, name, lastName, orderstatus, phone, email, viewed, orders.address AS address, orders.state AS state, orders.stateCode as stateCode, orders.zip AS zip, orders.city AS city, orders.countryCode AS countryCode, taxAmount, orderDate, ShipmentDetails, paymentDetails, discountDetails, obs, total, details, orders.shippingAddress, orders.shippingCity, orders.shippingState, orders.shippingStateCode, orders.shippingZip, orders.shippingCountryCode FROM orders, customers WHERE orders.idCustomer=customers.idCustomer AND orders.idOrder=" &pIdOrder call getFromDatabase(mySQl, rstemp, "showOrder") if rstemp.eof then response.redirect "comersus_backoffice_message.asp?message="& Server.Urlencode("Cannot get order details") end if ' contact pName = rstemp("name") pLastName = rstemp("lastName") pEmail = rstemp("email") pPhone = rstemp("phone") ' order pOrderDate = rstemp("orderDate") pDetails = rstemp("details") pTotal = rstemp("total") pPaymentDetails = rstemp("paymentDetails") pShipmentDetails = rstemp("ShipmentDetails") pDiscountDetails = rstemp("discountDetails") pTaxAmount = rstemp("taxAmount") pAddress = rstemp("address") pZip = rstemp("zip") pState = rstemp("state") pStateCode = rstemp("stateCode") pCity = rstemp("city") pCountryCode = rstemp("countryCode") pShippingaddress = rstemp("shippingAddress") pShippingzip = rstemp("shippingzip") pShippingstate = rstemp("shippingstate") pShippingstateCode = rstemp("shippingstateCode") pShippingcity = rstemp("shippingcity") pShippingcountryCode = rstemp("shippingCountryCode") pOrderStatus = rstemp("orderstatus") pViewed = rstemp("viewed") ' change viewed mark if pViewed=0 and pBackOfficeDemoMode=0 then mySQL="UPDATE orders SET viewed=-1 WHERE idOrder=" &pIdOrder call updateDatabase(mySql, rsTemp, "showOrder") end if pPaymentDetails=replace(pPaymentDetails,"$0.00","") %>
Order details
<%if pUseComersusOLPayment=-1 then%> <%end if%>

<%= pOrderPrefix&pIdOrder%>, Date <%=pOrderDate%>
Name		<%=pName&" "&pLastName%>
Email		<%= pEmail%>
Phone		<%=pPhone%>
Address		<%=pAddress & " (" &pZip& ") " &pState&pStateCode& " - " &pCity& " " &pCountryCode%>
Shipping address		<%if pShippingAddress<>"" then%> <%=pShippingaddress &" (" &pShippingzip&") " &pShippingstate&pShippingStateCode& " - " &pShippingcity& " " & pShippingcountryCode%> <%else%> Same as billing <%end if%>
Details		<%=pDetails%>
Shipment		<%=pShipmentDetails%>
Payment		<%=pPaymentDetails%>
Discount		<%=pDiscountDetails%>
Status		>Pending >Paid >Delivered >Cancelled >Chargeback <%if pOrderStatus=4 then%> Roll back Will cancel the order and update sales and stock. <%end if%> Delete Warning: You cannot undo this action!
Credit Card		<%if pUseSslOLPayment=-1 then%> View credit card <%else%> View credit card SSL is disabled in this installation <%end if%>
Tax		<%= pCurrencySign & money(pTaxAmount)%>
Total <%=pCurrencySign & money(pTotal)%>

<%call closeDb()%>