<%@ Language=VBScript %>
<%
'Process Literature Request Form
'validate form
valid = ""
linestart = "• "
lineend = " "
'make sure something has been ordered
somethingordered = False
If request("CD") = "True" Then somethingordered = True
If request("HK") = "True" Then somethingordered = True
If request("SB") = "True" Then somethingordered = True
If request("KP") = "True" Then somethingordered = True
If request("LS") = "True" Then somethingordered = True
If request("SS") = "True" Then somethingordered = True
If Not somethingordered Then valid = valid & linestart & "Please select which literature you would like to receive." & lineend
If Trim(request("required-firstname")) = "" Then valid = valid & linestart & "First Name is required." & lineend
If Trim(request("required-lastname")) = "" Then valid = valid & linestart & "Last Name is required." & lineend
If Trim(request("required-company")) = "" Then valid = valid & linestart & "Company is required." & lineend
If Trim(request("required-mailingaddress")) = "" Then valid = valid & linestart & "Mailing Address is required." & lineend
If Trim(request("required-city")) = "" Then valid = valid & linestart & "City is required." & lineend
If Trim(request("required-state")) = "" Then valid = valid & linestart & "State is required." & lineend
If Trim(request("required-zip")) = "" Then valid = valid & linestart & "Zip/Postal Code is required." & lineend
If Trim(request("required-country")) = "" Then valid = valid & linestart & "Country is required." & lineend
If valid = "" Then
'construct message body
cr = vbCrLf
msgstr = "Online Request from WHITEHYDRAULICS.COM" & cr & cr & _
"Please send the literature indicated to the address shown below." & cr
If request("HK") = "True" Then
msgstr = msgstr & " - HK Catalog (PC990315)" & cr
End If
If request("CD") = "True" Then
msgstr = msgstr & " - Product Catalog CD (PC990000CD)" & cr
End If
If request("SB") = "True" Then
msgstr = msgstr & " - SB Catalog (PC990930)" & cr
End If
If request("LS") = "True" Then
msgstr = msgstr & " - Product Linesheet (PC999204)" & cr
End If
If request("KP") = "True" Then
msgstr = msgstr & " - KP Catalog (PC990101)" & cr
End If
If request("SS") = "True" Then
msgstr = msgstr & " - Sensor Brochure (PC999205)" & cr
End If
msgstr = msgstr & cr & _
"CUSTOMER INFORMATION" & cr & _
Trim(request("required-firstname")) & " " & Trim(request("required-lastname")) & cr & _
Trim(request("required-company")) & cr & _
Trim(request("required-mailingaddress")) & cr
If Not Trim(request("mailingaddress2")) = "" Then
msgstr = msgstr & Trim(request("mailingaddress2")) & cr
End If
If Not Trim(request("mailingaddress3")) = "" Then
msgstr = msgstr & Trim(request("mailingaddress3")) & cr
End If
msgstr = msgstr & _
Trim(request("required-city")) & ", " & Trim(request("required-state")) & " " & _
Trim(request("required-zip")) & cr & _
Trim(request("required-country")) & cr
If Not Trim(request("phone")) = "" Then
msgstr = msgstr & "Phone: " & Trim(request("phone")) & cr
End If
If Not Trim(request("fax")) = "" Then
msgstr = msgstr & "Fax: " & Trim(request("fax")) & cr
End If
If Not Trim(request("email")) = "" Then
msgstr = msgstr & "Email: " & Trim(request("email")) & cr
End If
msgstr = msgstr & cr & _
"END OF MESSAGE"
'construct subject string
subjectstr = "Catalog Request via Web Site [" & _
Trim(request("required-firstname")) & " " & Trim(request("required-lastname")) & _
", " & Trim(request("required-company")) & "]"
'send email
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.AddRecipient "Info","infousa@whitedriveproducts.com"
Mailer.RemoteHost = "whitedriveproducts.com.s8a1.psmtp.com"
Mailer.FromAddress = "webmaster@whitedriveproducts.com"
Mailer.FromName = "WHITEDRIVEPRODUCTS.COM"
Mailer.Subject = subjectstr
Mailer.BodyText = msgstr
If Mailer.SendMail Then
' mail_successful = True
'Response.Write("" & vbCrLf)
Else
' mail_successful = False
failure_code = Mailer.Response
'Response.Write("" & vbCrLf)
End If
Response.Redirect "thanks.html"
End If
%>
Literature Ordering: White Drive Products, Inc
