| CONTACT US |
|
|
|
<%
Inq_Type = Trim(Request("Inq_Type"))
Inq_Email = Trim(Request("Inq_Email"))
Inq_Name = Trim(Request("Inq_Name"))
Inq_Comments = Trim(Request("Inq_Comments"))
Inq_Order = Trim(Request("Inq_Order"))
If Inq_Type = "Order Status" Then
Rec_Name = "Order Status - PDAJacket.com"
Rec_Email = "orderstatus@pdajacket.com"
End If
If Inq_Type = "Web Site" Then
Rec_Name = "Web Site - PDAJacket.com"
Rec_Email = "webmaster@pdajacket.com"
End If
If Inq_Type = "General" Then
Rec_Name = "General Questions - PDAJacket.com"
Rec_Email = "general@pdajacket.com"
End If
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = Inq_Name
Mailer.FromAddress = Inq_Email
Mailer.RemoteHost = "mail.pdajacket.com"
Mailer.AddRecipient Rec_Name, Rec_Email
Mailer.Subject = "Customer Inquiry - " & Inq_Type
Mailer.BodyText = "Customer Inquiry submitted on PDAJacket.com" & VbCrLf &_
"on " & Date & " at " & Time & " by IP " & Request.ServerVariables("REMOTE_ADDR") & VbCrLf &_
"-------------------------------------------------------------" & VbCrLf &_
"Inquirer Name: " & Inq_Name & VbCrLf &_
"Inquirer Email: " & Inq_Email & VbCrLf &_
"Inquirer Order Number: " & Inq_Order & VbCrLf &_
"Inquirer Comments: " & Inq_Comments
if Mailer.SendMail then
Response.Write "Your inquiry has been submitted. |