<% ' 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 pOrderPrefix = getSettingKey("pOrderPrefix") pIdOrder = getUserInput(request.querystring("idOrder"),12) if pIdOrder="" then response.redirect "comersus_backoffice_message.asp?message="& Server.Urlencode("Enter a valid order number") end if mySQL="SELECT * FROM creditCards WHERE idOrder="&pIdOrder call getFromDatabase(mySQL, rstemp, "comersus_backoffice_showcreditcarddata.asp") if rstemp.eof then response.redirect "comersus_backoffice_message.asp?message="& Server.Urlencode("There is no credit card information entered for this order") end if pEncryptedCardNumber = rstemp("cardNumber") pCardType = rstemp("cardType") pExpiration = rstemp("expiration") pSeqCode = rstemp("seqcode") pObs = rstemp("obs") %>
View credit card details

Order <%=pOrderPrefix&pIdOrder%>
Card type
Number (*)		<%=pEncryptedCardNumber%>
Expiration		<%=pExpiration%>
CVV2 code		<% if trim(pSeqCode)="" then response.write "-" else response.write pSeqCode end if %>
Comments		<%=pObs%>
(*) TIP: To decrypt the credit card info copy the encrypted number and paste into Utilities/Encryption. Power Pack Medium and Premium includes one step function to retrieve Credit Card information.

<%call closeDb()%>