<% 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 %>