<% userEmail=Request("userEmail") userFriendEmail=Request("userFriendEmail") userMessage=Request("userMessage") If userMessage="" Then userMessage="..." mBody="" mBody=mBody + "Your Friend : " & userEmail & "

" mBody=mBody + "thought you might be interested in : " & c_StfLink & "

" mBody=mBody + "Your Friend's Message : " & userMessage & "

" mBody=mBody + "
" 'On Error Resume Next Set mail=Server.CreateObject("JMail.Message") mail.charset=c_Charset mail.From=c_senderEmail mail.FromName=c_fromName mail.Addrecipient userFriendEmail mail.Subject=c_StfSubject mail.HTMLBody=mBody mail.Body=mBody mail.MailServerUserName=c_senderUsername mail.MailServerPassword=c_senderPassword mail.Send(c_senderMailServer) Set mail=Nothing Response.Write "sending=1" %>