<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "EXCHANGE"
Mail.From = Request.Form("Contact_Email")
Mail.FromName = Request.Form("Contact_FullName")
Mail.AddAddress Request.Form("recipient")
Mail.AddReplyTo Request.Form("Contact_Email")
Mail.Subject = Request.Form("subject")
Mail.Body = Chr(13) & "The following information was submitted from the LA Horses Web Site:" & Chr(13) & _
Chr(13) & "Name: " & Request.Form("Contact_FullName") & Chr(13) & _
Chr(13) & "Address: " & Request.Form("Contact_StreetAddress") & ", " & Request.Form("Contact_City") & ", " & Request.Form("Contact_State") & " " & Request.Form("Contact_ZipCode") & Chr(13) & _
Chr(13) & "Send an Application? " & Request.Form("Contact_Send") & Chr(13) & _
Chr(13) & "E-mail " & Request.Form("Contact_e-mail") & Chr(13) & _
Chr(13) & "Home Phone: " & Request.Form("Contact_HomePhone") & Chr(13) & _
Chr(13) & "Shirt Size: " & Request.Form("Contact_shirt") & Chr(13) & _
Chr(13) & "Directory: " & Request.Form("Contact_member") & Chr(13) & _
Chr(13) & "Owner:" & Request.Form("Contact_owner")
Chr(13) & "Not owner:" & Request.Form("Contact_nohorse")
Chr(13) & "Foster" & Request.Form("Contact_foster")
Chr(13) & "volunteer" & Request.Form("Contact_volunteer")
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
Else
Response.Redirect Request.Form("return_link_url")
End If
%>