<% ' BEGIN FORM % If Trim(Request("Inq_Type")) = "" Then %> <% End If %> <% ' BEGIN FORM PROCESSING If Trim(Request("Inq_Type")) <> "" Then %> <% End If %>
CONTACT US

Name

Email [required]

Type of Inquiry [required]

Order Number or Transaction ID

Question / Comment


[note: IP Addresses of all inquiries are captured for security purposes]



<% 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.

Thank you!" else Response.Write "There was an error while attemping to submit your inquiry.
Please use to your broswer's back button to try again.

Error was " & Mailer.Response end if %>