<% If strErr <> "" Then %> <% End If %> <% If not bSuccess Then %> <% End If %>
<% ' change to address of your own SMTP server strHost = "localhost" If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.AddAddress Request("recipient") &"@gmacpa.com" Mail.AddCC "helpdesk@gmacpa.com" Mail.AddBcc "" Mail.From = Request("From") ' From address Mail.FromName = Request("FromName") ' optional ' 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 %> ASP email page - Easy ways to contact Goldberg & Maroney CPA <% If strErr <> "" Then %>

Error occurred: <% = strErr %>

<% End If %> <% If bSuccess Then %>

Thank you.  Your message has been sent.

<% End If %> <% If not bSuccess Then %> <% End If %> <% ' change to address of your own SMTP server strHost = "localhost" If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.AddAddress Request("recipient") &"@gmacpa.com" Mail.AddCC "helpdesk@gmacpa.com" Mail.AddBcc "" Mail.From = Request("From") ' From address Mail.FromName = Request("FromName") ' optional ' 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 %> ASP email page - Easy ways to contact Goldberg & Maroney CPA <% If strErr <> "" Then %>

Error occurred: <% = strErr %>

<% End If %> <% If bSuccess Then %>

Thank you.  Your message has been sent.

<% End If %> <% If not bSuccess Then %> <% End If %>
Recipient:
Your email:
Your name: (optional)
Body:

 

Last edited: March 15, 2011