<% Set JMail = Server.CreateObject("JMail.Message") JMail.Logging = true JMail.ISOEncodeHeaders = False JMail.From = "info@anutone.com" JMail.FromName = "Anutone" JMail.Subject = "EDESIGN :: solutions for school ceilings" JMail.AddRecipient "info@anutone.com" if request.querystring ("mail") = "send" then 'send the mail SenderEmail = Request.Form("SenderEmail") SenderName = Request.Form("SenderName") FriendName = Request.Form("FriendName") FriendEmail = Request.Form("FriendEmail") Messagebody = Request.Form("Messagebody") JMail.AddRecipient FriendEmail Subject = "Check out this website " & SenderName JMail.Body = "Dear " & FriendName & vbcrlf & vbcrlf &_ Messagebody & vbcrlf & vbcrlf &_ "Thanks" & vbcrlf &_ SenderName & vbcrlf & vbcrlf &_ "---------------------------------------------------------------------------------------------" & vbcrlf &_ "This email was sent at " & Time() & " " & FormatDateTime(Date,1) & vbcrlf &_ "----------------------------------------------------------------------------------------------" & vbcrlf JMail.MailServerUserName = "smtp_usr1" JMail.MailServerPassWord = "adsfjkewr73@#$%" JMail.Send("smtp.spacetolet.com") JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") Response.write "

Thank you " & SenderName &", Your email has been sent successfully

" Else %>


Help your friends learn about this newsletter
Your Name
Your Email
Friends Name
Friends Email
Message:
 
<% End if %>