<% Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "no-cache" Response.Expires = -1 %> <% Function ValidateCAPTCHA(valCAPTCHA) SessionCAPTCHA = Trim(Session("CAPTCHA")) Session("CAPTCHA") = vbNullString if Len(CStr(SessionCAPTCHA)) < 7 then ValidateCAPTCHA = False exit function end if if CStr(SessionCAPTCHA) = CStr(valCAPTCHA) then ValidateCAPTCHA = True else ValidateCAPTCHA = False end if End Function %> <!--#include file="resources/title.txt"-->
Bassani

 

Michelle and Jason

Please contact us for more information regarding services and fees, sale horses, or to schedule a visit!

Legend Hall Arabians
2590 South Dayton-Brandt Road
New Carlisle, Ohio  45344

Jason Chiles – Owner/Trainer  724-355-5220
Michelle Chiles – Owner/Manager 412-638-1671

chiles@legendhallarabians.com

 
Name: " />
Phone:  " />
Email:  " />
Encoded CAPTCHA Image <% if Request.ServerVariables("REQUEST_METHOD") = "POST" then strCAPTCHA = Trim(Request.Form("strCAPTCHA")) if ValidateCAPTCHA(strCAPTCHA) = true then Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 'If Request("eMail") = "" Then eMail = "No E-Mail Given" Else eMail = Request("eMail") Mailer.FromName = Request("Name") Mailer.FromAddress = Request("eMail") Mailer.RemoteHost = "relay.activehost.com" Mailer.AddRecipient "Legend Hall Arabians","chiles@legendhallarabians.com" 'Mailer.AddRecipient "Legend Hall Arabians","mark@getpappy.com" Mailer.Subject = "Contact Form From Website" mBody = "Name: " & Request("Name") & vbCrLf mBody = mBody & "Day Phone: " & Request("DayPhone") & vbCrLF mBody = mBody & "E-Mail: " & Request("eMail") & vbCrLF & vbCrLF & vbCrLF mBody = mBody & "Comments: " & vbCrLF & Request("Comments") Mailer.BodyText = mBody Mailer.SendMail Set Mailer = Nothing response.redirect("../contact_thankyou.asp") else response.write("Incorrect entry - try again") end if end if %> Enter numbers from left:

Comments: