|
<%
Dim bSuccess, strErr
If Request("Send") <> "" Then
On Error Resume Next
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "65.163.26.179"
If Request("From") = "" Then
Mail.From = "NoReply@tetradesign.com"
Mail.FromName = "No Reply"
Else
Mail.From = Request("From")
Mail.FromName = Request("FromName")
Mail.AddReplyTo Request("From"), Request("FromName")
End If
Mail.AddAddress Request("To")
Mail.Subject = Request("Subject")
Mail.Body = Request("Body")
strErr = ""
bSuccess = False
Mail.Send
If Err <> 0 Then
strErr = Err.Description
Else
bSuccess = True
End If
End If
%>
<%
If strErr <> "" then
Response.Write(" Error Message: " & strErr & " ") ElseIf bSuccess = True Then %>
Your email has been sent. We can not guarantee that we'll personally respond to each comment, however we can guarantee that we will read every comment and try to incorporate them when we plan worship. If you should need assistance or require an immediate response, please call (330) 836-2206 and leave a voice message. Thank You.
<% Else %>
<% End If %>
|
||||||||||||||||||||||||||||||
| & | Copyright
© 2005 Unitarian Universalist Church of Akron 3300 Morewood Avenue - Akron, OH 44333 - (330) 836-2206 Contact Administrator - Contact Webmaster sitemap |
% | |||||||||||||||||||||||||||||