<%=pCompany%> >> Shipping Label

<% ' Comersus BackOffice ' e-commerce ASP Open Source ' CopyRight Comersus Open Technologies LC ' United States - 2005 ' http://www.comersus.com %> <% ' on error resume next dim mySQL, conntemp, rstemp, rstemp2, rstemp3 ' get settings pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode") pCurrencySign = getSettingKey("pCurrencySign") pDecimalSign = getSettingKey("pDecimalSign") pCompany = getSettingKey("pCompany") pCompanyLogo = getSettingKey("pCompanyLogo") pCompanyPhone = getSettingKey("pCompanyPhone") pCompanyAddress = getSettingKey("pCompanyAddress") pCompanyStateCode = getSettingKey("pCompanyStateCode") pCompanyCity = getSettingKey("pCompanyCity") pCompanyZip = getSettingKey("pCompanyZip") pCompanyCountryCode = getSettingKey("pCompanyCountryCode") pOrderPrefix = getSettingKey("pOrderPrefix") pIdRmaPrefix = getSettingKey("pIdRmaPrefix") pIdRma = getUserInput(request.querystring("idRma"),20) pIdCustomer = getSessionVariable("idCustomer",0) pIdCustomerType = getSessionVariable("idCustomerType",1) if trim(pIdRma)="" then response.redirect "backoffice_message.asp?message="&Server.Urlencode(getMsg(743,"Invalid RMA")) end if pIdRma = removePrefix(pIdRma, pIdRmaPrefix) ' check if the RMA belongs to the customer mySQL="SELECT orders.idOrder FROM orders, RMA WHERE orders.idOrder = RMA.idOrder AND RMA.idRma= " & pIdRma & " AND orders.idCustomer="& pIdCustomer call getFromDatabase(mySQL, rstemp, "comersus_rmaGenerateLabelExec.asp") if rstemp.eof <> 0 then response.redirect "comersus_message.asp?message="&Server.Urlencode(getMsg(743,"Invalid RMA")) end if ' retrieve order data mySQL="SELECT orders.idorder, name, lastName, phone, email, orders.address AS address, orders.state AS state, orders.StateCode, orders.zip AS zip, orders.city AS city, orders.countryCode AS countryCode, orders.shippingAddress, orders.shippingState, orders.shippingStateCode, orders.shippingZip, orders.shippingCity, orders.shippingCountryCode, taxAmount, orderDate, ShipmentDetails, paymentDetails, obs, total, details, discountDetails FROM orders, customers, RMA WHERE orders.idOrder = RMA.idOrder AND RMA.idRma= " & pIdRma & " AND orders.idcustomer=customers.idcustomer" call getFromDatabase(mySQL, rstemp, "comersus_rmaGenerateLabelExec.asp") if rstemp.eof <> 0 then response.redirect "comersus_message.asp?message="&Server.Urlencode(getMsg(743,"Invalid RMA")) end if ' contact pName = rstemp("name") pLastName = rstemp("lastName") pEmail = rstemp("email") pPhone = rstemp("phone") ' order pOrderDate = rstemp("orderDate") 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") call closeDb() %> <%=pCompany%> >> Shipping Label

<%if pShippingAddress<>"" then%> <%else%> <%end if%> <% pZipBar=pZip if pShippingZip<>"" then pZipBar=pShippingZip pEncodedBar=pIdRmaPrefix&pIdRma&"|"&pZipBar&"|"&pCompanyZip %>

- - - - - - - - - - - - - - - - - - - - - - - -

From <%=pName&" "&pLastName%>

RMA #<%=pIdRmaPrefix&pIdRma%> Approved

<%=pShippingAddress%>

<%=pShippingStateCode&pShippingState&" - " &pShippingCity& " ("&pShippingZip&")"%>

<%=pShippingCountryCode%>

<%=pAddress%>

<%=pStateCode&pState&" - " &pCity& " ("&pZip&")"%>

<%=pCountryCode%>

<%call writeBarcode128B(pEncodedBar)%>
<%=pEncodedBar%>

- - - - - - - - - - - - - - - - - - - - - - - -

To <%=pCompany%>

<%=pCompanyAddress%>
<%=pCompanyStateCode&" - "&pCompanyCity& " ("&pCompanyZip&")"%>

<%=pCompanyCountryCode%>

- - - - - - - - - - - - - - - - - - - - - - - -