Company
Equi-Ciser™
Accessories
Clients
Support
Links
Other Products from Equi-Line Mfg


Equi-Ciser™

The Equi-Ciser™
North America's Leading Horse Exerciser
ContactHome
Brochures

Please provide us with the following information before downloading our brochures:
Required fields are marked with an asterisk (*).
*Full Name:
Organization:
*Address:
*City
*State/Prov: *Zip/Postal:
*Country:
*Phone: Fax:
*Horse Breed:
*E-mail:








Top of Page
©2002-2007 Equi-Line Mfg. All rights reserved
Design and Maintenance of this Website by AVERA Systems Inc.
 
<% sub ProcessPage() If Request.ServerVariables("REQUEST_METHOD") = "POST" Then dim objNewMail validateForm () ' Mail to Contact set objNewMail = server.CreateObject("CDONTS.NewMail") objNewMail.To = clientEmailAddress objNewMail.From = Request.Form("EMAIL") objNewMail.Subject = "Brochure Download (equi-ciser.com)" objNewMail.Body = strValidateForm if (Instr(1,Request.ServerVariables("SERVER_NAME"),"SRV001",1) = 0) and (Instr(1,Request.ServerVariables("SERVER_NAME"),"LOCALHOST",1) = 0) then objNewMail.Send end if set objNewMail = nothing ' Mail to User ' set objNewMail = server.CreateObject("CDONTS.NewMail") ' objNewMail.To = Request.Form("EMAIL") ' objNewMail.From = clientEmailAddress ' objNewMail.Subject = "Information Request for " & Request.Form("NAME") ' objNewMail.Body = strReplyMessage ' if (Instr(1,Request.ServerVariables("SERVER_NAME"),"SRV001",1) = 0) and (Instr(1,Request.ServerVariables("SERVER_NAME"),"LOCALHOST",1) = 0) then ' objNewMail.Send ' end if ' set objNewMail = nothing mailSent = "ok" end if end sub function validateForm() strValidateForm = "" strValidateForm = strValidateForm & "Name: " & Request.Form("NAME") & vbCrLf strValidateForm = strValidateForm & "Organization: " & Request.Form("ORGANIZATION") & vbCrLf strValidateForm = strValidateForm & "Address: " & Request.Form("ADDRESS") & vbCrLf strValidateForm = strValidateForm & "City: " & Request.Form("CITY") & vbCrLf strValidateForm = strValidateForm & "State/Province: " & Request.Form("STATE/PROV") & vbCrLf strValidateForm = strValidateForm & "Zip/Postal Code: " & Request.Form("ZIP CODE") & vbCrLf strValidateForm = strValidateForm & "Country: " & Request.Form("COUNTRY") & vbCrLf strValidateForm = strValidateForm & "Phone: " & Request.Form("PHONE") & vbCrLf strValidateForm = strValidateForm & "Fax: " & Request.Form("FAX") & vbCrLf strValidateForm = strValidateForm & "e-mail: " & Request.Form("EMAIL") & vbCrLf & vbCrLf strValidateForm = strValidateForm & "Horse Breed: " & Request.Form("HORSE BREED") & vbCrLf end function %>