<%
If Request.Form.Count > 0 Then
For I = 1 to Request.Form.Count
Body = Body & Request.Form.Key(I) & " " _
& Request.Form.Item(I) & vbCRLF
Next
ClientName = Request.Form("Name")
Email = Request.Form("Email")
'*** send email notice
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.allonhorses.com"
Mailer.FromName = "horses"
Mailer.FromAddress = "contact@allonhorses.com"
Mailer.AddRecipient "Website", "contact@allonhorses.com"
Mailer.Subject = "ALL ON HORSES QUESTION FROM SITE"
Mailer.BodyText = Body
Mailer.SendMail
Set Mailer = Nothing
Response.Redirect "thankyou.html"
End If
%>
