<%
' change to address of your own SMTP server
strHost = "127.0.0.1"
If Request("Send") <> "" Then
for x=1 to 3
if not isempty(Request("To"&x)) then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = Request("From")
Mail.FromName = Request("FromName")
Mail.AddAddress Request("To"&x)
Mail.Subject = "Greetings from the Jekyll Island Club Hotel"
Mail.IsHTML = True
Mail.Body = "
This message was sent to you by a friend to view the Jekyll Island Club Hotel's monthly newsletter. You may view the current month's newsletter here.
We invite you to sign up to receive our monthly newsletter and special offers. We will also enter you in our "Register to Win" quarterly drawing for your home away from home Bed and Breakfast. Please visit here.
Kind Regards,
Patty Henning Director of Sales and Marketing
"
strErr = ""
bSuccess = False
On Error Resume Next
Mail.Send
If Err <> 0 Then
strErr = Err.Description
else
con_emails = con_emails&Request("To"&x)&", "
bSuccess = True
End If
Set Mail = nothing
end if
next
con_emails=left(con_emails,len(con_emails)-2)
End If
%>
Email our newsletter to your friends
Thank you for enjoying our monthly newsletter. You may send our newsletter to as many of your friends as you wish.
After you send your first email, you may enter information for the next friend and send. We do not capture or store these email
addresses, so your friends' privacy is protected. Visit our website here.
<% If strErr <> "" Then %>
Error occurred: <% = strErr %>
<% End If %>
<% If bSuccess Then %>
Success! Message sent to <% = con_emails %>.
<% End If %>
