<%@ Language = VBScript %> <% If Request.Form("Tell") <> vbNullString Then BodyText = Request.Form("BodyText") If BodyText = vbNullString Then BodyText = "Hi, I found a great Career Resource Center and Online job Community called Recruitergurus.com and I thought you might like to know about it." BodyText = Server.HTMLEncode(BodyText) Set Mail = Server.CreateObject("CDONTS.NewMail") Mail.To = Request.Form("Recipient") Mail.From = Request.Form("FromName") Mail.Value("Reply-To") = Request.Form("ReplyAddress") Mail.MailFormat = cdoMailFormatMime Mail.BodyFormat = cdoBodyFormatHTML Mail.Subject = "Great Service from Recruitergurus" Mail.Body = BodyText Mail.Send %> Tell a Friend
Tell a Friend
Your Name:
Your Email:
Friends' Email: (separate multiple addresses by commas)
Mail Message: