% ' change to address of your own SMTP server strHost = "mercychurches.com" If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = Request("From") ' From address Mail.FromName = Request("FromName") ' optional Mail.AddAddress Request("To") Mail.AddReplyTo Request("ReplyTo") ' message subject Mail.Subject = Request("Subject") ' message body Mail.Body = "Name: " & Request("FromName") & vbCrLf & "State: " & Request("state") & vbCrLf & "Nation: " & Request("nation") & vbCrLf & "Comment: " & 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 %>
| Luke 7:22
" Then Jesus answering said unto them,
Go your way, and tell John what things
ye have seen and heard; how that the blind see, the lame walk,
the lepers are cleansed, the deaf hear, the dead are raised,
to the poor the gospel is preached."
|
Contact the Mercy Church in Kenya Please enter your contact information and questions or comments in the form below. (Click here to return to the Mercy Church in Kenya's webpage) |