<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%>
<%
If request.form("SP_AspEmailSend") = "True" Then
Set SP_AspEMail = Server.CreateObject("Persits.MailSender")
SP_AspEMail.Host = "smtp.wiseproduction.com"
SP_AspEMail.FromName = request("lastname")
SP_AspEMail.From = request("email")
SP_AspEMail.AddAddress "rain@hkwp.com" , "Spices"
SP_AspEMail.Charset = "Big5"
SP_AspEMail.Priority = 3
SP_AspEMail.Subject = "This is an requirement from spices. Please follow up"
SP_AspEMail.Body ="Who is purchasing the certificate? "&" "& request("name") &_
vbcrlf&vbcrlf & "Credit Card Number: " & " "&request("number") &_
vbcrlf&vbcrlf & "Exp: " & " "&request("number") &_
vbcrlf &vbcrlf& "Full Name as it appears on card: " & " "&request("fullname") &_
vbcrlf&vbcrlf & "Billing Address for Cardholder: " & " "&request("address") &_
vbcrlf &vbcrlf& "Phone Number: " & " "&request("tel") &_
vbcrlf &vbcrlf& "Cardholder¡¦s Signature: " &" "&request("name") &_
vbcrlf &vbcrlf& "Denomination of Certificate: " &" "&request("number") &_
vbcrlf &vbcrlf& "Quantity: " &" "&request("amount") &_
vbcrlf &vbcrlf& "Subtotal: " &" "&request("Subtotal") &_
vbcrlf &vbcrlf& "Total Charged to Card: " &" "&request("total") &_
vbcrlf &vbcrlf& "Mail the certificate to the purchaser? " &" "&request("ra1") &_
vbcrlf &vbcrlf& "Where to mail the certificate? " &" "&request("name") &_
vbcrlf &vbcrlf& "Where to mail the certificate? " &" "&request("email")
If false Then
SP_AspEMail.IsHTML = True
End If
On Error Resume Next
SP_AspEMail.Send
If Err <> 0 Then
Response.Write "error:
" & Err.Description & "
"
Response.End
End If
If "thank.html" <> "" Then
If false And Request.QueryString <> "" Then
Response.Redirect "thank.html?" & Request.QueryString
Else
Response.Redirect "thank.html"
End If
Response.End
End If
End If
%>
Spices Asian Restaurant and Sushi Bar
To
order today simply print this page, complete this form and
fax it to (202) 686-1533. Please allow one week for standard
mail delivery.
