<% ' 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, browserIp, 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") pBrowserIp = rstemp("browserIp") pPaymentDetails=replace(pPaymentDetails,"$0.00","") %>
Chargeback details

Date of purchase		<%=pOrderDate%>
Name		<%=pName&" "&pLastName%>
IP		<%=pBrowserIp%>
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%>
Tax		<%= pCurrencySign & money(pTaxAmount)%>
Total amount		<%=pCurrencySign & money(pTotal)%>
Not a member of ChargebackProtection? Register for free

<%call closeDb()%>