<% On Error Resume Next '------------------Modify this section to customize your message strMsg="Dear " & request.form("Yourfriendname") & "," & vbcrlf & vbcrlf strMsg=strMsg & request.form("yourname") strMsg=strMsg & " wants you to check out Theharmonygroup.Com's page at" & vbcrlf & vbcrlf strMsg=strMsg & "http://www.Theharmonygroup.Com" & vbcrlf & vbcrlf strMsg=strMsg & request.form("yourname") & " also says" & vbcrlf & vbcrlf strMsg=strMsg & request.form("message") & vbcrlf & vbcrlf strMsg=strMsg & "If you do not know " & request.form("yourname") strMsg=strMsg & ", please ignore this message or report it to energypilates@Theharmonygroup.Com" strMsg=strMsg & vbcrlf & vbcrlf strMsg=strMsg & "Warmest Regards," & vbcrlf strMsg=strMsg & "Theharmonygroup.Com Staff" & vbcrlf strMsg=Cstr(strMsg) Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host ="mail.Theharmonygroup.Com" ' Specify a valid SMTP server Mail.From = "energypilates@Theharmonygroup.Com" ' Specify sender's address Mail.AddAddress request.form("Yourfriendemail") Mail.Subject="Theharmonygroup.Com Recommendation" Mail.Body=strMsg Mail.Send Set Mail = nothing 'On Error Resume Next 'If Err <> 0 Then 'Response.Write "Error encountered: " & Err.Description 'End If %>

 
RECOMMEND THIS WEB SITE...
If you would like to send a link of this web site to someone, simply fill
in the fields below. 
 
* required information
*Your Name:   " size="44" style="font-size: 8pt; font-family: verdana">
*Recipient's Name:  
*Recipient's
Email Address:		  
   Your personal message: