<%@ Language=VBScript %>
<%
strPost = Trim(Request.QueryString("post"))
If strPost = "1" Then
function sendmail(too, from, subject, body)
dim objCDOSYSMail
Dim objCDOSYSCon
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.equilox.com"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = from
objCDOSYSMail.To= too
objCDOSYSMail.Subject = subject
'use one or the other but not both
'objCDOSYSMail.HTMLBody = body
objCDOSYSMail.TextBody = body
objCDOSYSMail.Send
If Err.Number <> 0 Then
strErrortext = "We're sorry, an unexpected error accrued while trying to complete your request! Please try again."
strFSend = "error"
else
Response.Redirect "contactUsThankYou.html"
end if
set objCDOSYSMail = Nothing
end function
'================================================
'Send mail
'================================================
Dim strYourName, strYourCompany, strYourAddress, strYourCity, strYourState, strYourZip
Dim strYourPhone1, strYourPhone2, strYourPhone3, strYourEmail, strYourConfirmEmail, strYourComments
Dim strCheckBox1, strCheckBox2, strCheckBox1Value, strCheckBox2Value
strYourName = Trim(Request.Form("name"))
strYourCompany = Trim(Request.Form("company"))
strYourAddress = Trim(Request.Form("address"))
strYourCity = Trim(Request.Form("city"))
strYourState = Trim(Request.Form("state"))
strYourZip = Trim(Request.Form("zip"))
strYourPhone1 = Trim(Request.Form("phone1"))
strYourPhone2 = Trim(Request.Form("phone2"))
strYourPhone3 = Trim(Request.Form("phone3"))
strYourEmail = Trim(Request.Form("email"))
strYourConfirmEmail = Trim(Request.Form("confirmEmail"))
strYourComments = Trim(Request.Form("comments"))
strCheckBox1 = Trim(Request.Form("Checkbox1"))
if strCheckBox1 = "on" then
strCheckBox1Value = "Yes"
else
strCheckBox1Value = "No"
end if
strCheckBox2 = Trim(Request.Form("Checkbox2"))
if strCheckBox2 = "on" then
strCheckBox2Value = "Yes"
else
strCheckBox2Value = "No"
end if
'===============================================
'Server side verification
'===============================================
If strYourName = "" Then
strErrortext = "Please enter your name! "
strFSend = "error"
End If
If strYourCompany = "" Then
strErrortext = strErrortext & "Please enter your company! "
strFSend = "error"
end if
If strYourAddress = "" Then
strErrortext = strErrortext & "Please enter your address! "
strFSend = "error"
end if
If strYourCity = "" Then
strErrortext = strErrortext & "Please enter your city! "
strFSend = "error"
end if
If strYourState = "0" Then
strErrortext = strErrortext & "Please enter your state! "
strFSend = "error"
end if
If strYourZip = "" Then
strErrortext = strErrortext & "Please enter your zip code! "
strFSend = "error"
elseIf Not(IsNumeric(strYourZip)) Then
strErrortext = strErrortext & "Please enter a valid zip code! "
strFSend = "error"
elseIf len(strYourZip) <> 5 Then
strErrortext = strErrortext & "Please enter a valid zip code! "
strFSend = "error"
end if
If strYourPhone1 = "" and strYourPhone2 = "" and strYourPhone3 = "" Then
strErrortext = strErrortext & "Please enter your phone number! "
strFSend = "error"
elseIf strYourPhone1 = "" or strYourPhone2 = "" or strYourPhone3 = "" Then
strErrortext = strErrortext & "Please enter a valid phone number! "
strFSend = "error"
elseIf Not(IsNumeric(strYourPhone1)) Or Not(IsNumeric(strYourPhone2)) Or Not(IsNumeric(strYourPhone3)) Then
strErrortext = strErrortext & "Please enter a valid phone number! "
strFSend = "error"
elseIf len(strYourPhone1) <> 3 Or len(strYourPhone2) <> 3 Or len(strYourPhone3) <> 4 Then
strErrortext = strErrortext & "Please enter a valid phone number! "
strFSend = "error"
end if
If strYourEmail = "" Then
strErrortext = strErrortext & "Please enter your e-mail! "
strFSend = "error"
elseif inStr(strYourEmail,"@") = 0 OR inStr(strYourEmail,".") = 0 Then
strErrortext = strErrortext & "Please enter a valid e-mail! "
strFSend = "error"
End If
If strYourConfirmEmail = "" Then
strErrortext = strErrortext & "Please re-enter your e-mail! "
strFSend = "error"
elseif inStr(strYourConfirmEmail,"@") = 0 OR inStr(strYourConfirmEmail,".") = 0 Then
strErrortext = strErrortext & "Please re-enter a valid e-mail! "
strFSend = "error"
End If
If strYourComments = "" Then
strErrortext = strErrortext & "Please enter your comments!"
strFSend = "error"
End If
'================================================
'Format and send email
'================================================
If strFSend <> "error" Then
Dim too, from, subject, body
too = "info@equilox.com"
subject = "Equilox.com Contact Us E-mail Form"
from = "info@equilox.com"
'================================================
'Concatinate rest of variables into body
'================================================
body = "Name: " & strYourName & vbNewLine & vbNewLine &_
"Company: " & strYourCompany & vbNewLine & vbNewLine &_
"Address: " & strYourAddress & vbNewLine & vbNewLine &_
"City: " & strYourCity & vbNewLine & vbNewLine &_
"State: " & strYourState & vbNewLine & vbNewLine &_
"Zip Code: " & strYourZip & vbNewLine & vbNewLine &_
"Phone Number: " & strYourPhone1 & "-" & strYourPhone2 & "-" & strYourPhone3 & vbNewLine & vbNewLine &_
"E-mail: " & strYourEmail & vbNewLine & vbNewLine &_
"Comments: " & vbNewLine &_
strYourComments & vbNewLine & vbNewLine &_
"Updates Opt-in: " & strCheckBox1Value & vbNewLine & vbNewLine &_
"Accredited farrier/veterinarian school instructor: " & strCheckBox2Value & vbNewLine & vbNewLine &_
" --- End Message ---" & vbNewLine & vbNewLine_
body = body
'================================================
'Call sendmail function
'================================================
Dim passTest
passTest = sendmail(too, from, subject, body)
End if
end if
%>
Equilox Adhesive Hoof Repair System | Contact Us
