<%
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
end if
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.animalkingdomfoundation.org" ' Specify a valid SMTP server your SMTP Mail Here
Mail.From = "inquiry@animalkingdomfoundation.org" ' Specify sender's address exzample : you@abcd.com
Mail.FromName = request.form("Name____Mr_Mrs") ' Specify sender's name
Mail.AddAddress "inquiry@animalkingdomfoundation.org", "AKF Dog Sponsorship Program Form On-line Submission"
Mail.Subject = "AKF Dog Sponsorship Program Form On-line Submission"
Mail.Body = Body
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End if
%>
.: Welcome to Animal Kingdom Foundation Inc., Philippines :.
