<% Errors = False If Request("Mode") = "Send" And Request("eMail") = "" Then Errors = True If Request("Mode") = "Send" And Errors = False Then REM ===== SEND AN EMAIL TO JIM ===== 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 "Terri Wikel","info@renaihorseregistry.com" Mailer.Subject = "Contact Form from RenaiHorseRegistry.com" mBody = "Name: " & Request("Name") & vbCrLf mBody = mBody & "Company: " & Request("Company") & vbCrLf mBody = mBody & "Address: " & Request("Address") & vbCrLF mBody = mBody & "City: " & Request("City") & vbCrLF mBody = mBody & "State: " & Request("State") & vbCrLF mBody = mBody & "Zip Code: " & Request("ZipCode") & vbCrLF & vbCrLF mBody = mBody & "Day Phone: " & Request("DayPhone") & vbCrLF mBody = mBody & "Evening Phone: " & Request("EvePhone") & vbCrLF mBody = mBody & "Fax: " & Request("Fax") & vbCrLF mBody = mBody & "E-Mail: " & Request("eMail") & vbCrLF & vbCrLF mBody = mBody & "Comments: " & Request("Comments") Mailer.BodyText = mBody Mailer.SendMail Set Mailer = Nothing End If %> RHR - Contact Us

<%If Request("Mode") = "Send" And Errors <> True Then%>

Thank you!

Thank you for sending your comments.
Your interest is greatly appreciated.  
 
 
<%Else%>

For more information contact:

Terri Wikel
C/O Pegasus Arabians

12270 State Route 61
Berlin Heights, Ohio 44814
419-588-3000
Fax 419-588-3140

or contact us using the email form below



Please fill in any information you think will help us better serve you and click the "Send" button.


<%If Errors = True Then%>   E-MAIL IS REQUIRED

<%End If%>
Name:  ">
Company:  ">
Address:  ">
City:  ">
State:  ">
Zip Code:  ">
Day Phone:  ">
Eve. Phone:  ">
Fax:  ">
>Email: 
Comments: 
<%End If%>