<% ' 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 %>

From email: (enter your email address):

From name: (enter your name):

To email: (enter up to three email address):

   

Home