<%
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.sos-eastafrica.org"
Mail.From = Request("From") ' From address
Mail.FromName = Request("FromName") ' optional
Mail.AddAddress "njeri.ornik@sos-eastafrica.org"
Mail.AddCC Request("To")
' message subject
Mail.Subject = "News from SOS Children's Villages East Africa"
' message body
Mail.Body = Request("Body")
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
End If
%>
Tell
a Friend What You Know About SOS Children's Villages East Africa!
