<% If strErr <> "" Then %>
Error occurred: <% = strErr %>
<% End If %> <% If bSuccess Then %>Success! Message sent to <% = Request("To") %>
<% End If %>
Last Updated | August 31, 2004
% ' change to address of your own SMTP server strHost = "63.119.175.10" If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = "63.99.209.103" Mail.From = Request("From") ' From address Mail.FromName = Request("FromName") ' optional Mail.AddAddress Request("To") ' message subject Mail.Subject = Request("Subject") ' 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 %>