<%@ 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 strFSend = "error" strErrortext = Err.Description & " We're sorry, an unexpected error accrued while trying to complete your request! Please try again." else Response.Redirect "testimonialsThankYou.html" end if set objCDOSYSMail = Nothing end function '================================================ 'Send mail '================================================ Dim strYourName, strYourEmail, strYourLocation, strYourComments strYourName = Trim(Request.Form("name")) strYourEmail = Trim(Request.Form("email")) strYourLocation = Trim(Request.Form("location")) strYourComments = Trim(Request.Form("comments")) '=============================================== 'Server side verification '=============================================== If strYourName = "" Then strErrortext = "Please enter your name!
" 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 strYourComments = "" Then strErrortext = strErrortext & "Please enter your comments!" strFSend = "error" elseif len(strYourComments) > 800 then strErrortext = strErrortext & "Comments can't be more than 800!" strFSend = "error" End If '================================================ 'Format and send email '================================================ If strFSend <> "error" Then Dim too, from, subject, body too = "info@equilox.com" subject = "Equilox.com Testimonials E-mail Form" from = "info@equilox.com" '================================================ 'Concatinate rest of variables into body '================================================ body = "Name: " & strYourName & vbNewLine & vbNewLine &_ "E-mail: " & strYourEmail & vbNewLine & vbNewLine &_ "Location: " & strYourLocation & vbNewLine & vbNewLine &_ "Comments: " & vbNewLine &_ strYourComments & 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 | Why Equilox | Testimonials
Equilox
Why Equilox
Shop Equilox
Instructions For Use
Find a Dealer
FAQ
Contact Us
Shopping Cart
Testimonials
See what farriers, veterinarians, and others are saying about Equilox Adhesive.
I have used Equilox from its inception for all types of hoof wall repair and hoof wall reconstruction. If attention is paid to the required detail during the application, Equilox gives the most consistent and superior results compared to other products I have used. Moreover, not only was there extensive research to develop the product, the research continues to improve the product and create alternative versions such as Medicated Equilox.

Stephen E. O'Grady, DVM, MRCVS
I've fooled with lots of compounds, but I keep coming back to Equilox.

Bill Moyer, equine veterinarian
Department of Large Animal Medicine and Surgery at Texas A&M University
In Sydney, we have people using Equilox like it's going out of fashion.

Dave Mangan, racetrack farrier, Flemington Caulfield Race Course, Australia
Share Your Story
(*Indicates required information)
Tell us why you use Equilox products.
<% if strFSend = "error" then %>
<%=strErrortext%>
<%end if %>
Shop Equilox
How to Videos