<% URL = Request.QueryString("URL") if Len(URL) = 0 Then URL = "http://www.AaronYoung.com/" ' The default URL name = request.form("Sendersname") from = request.form("SendersEmail") message = Request.Form("Message") friendname = Request.Form("Friendname") friendemail = Request.Form("FriendEmail") articleurl = Request.Form("articleurl") 'Send Email Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = Request.Form("Sendersname") Mailer.FromAddress = "ajy@ajy.net" Mailer.ReplyTo = Request.Form("SendersEmail") Mailer.RemoteHost = "mail.ajy.net" Mailer.Recipient = Request.Form("FriendEmail") Mailer.Subject = "Check this out" strMsgHeader = "Hi! " & friendname & vbCrLf & vbCrLf strMsgInfo = "This page at " & URL & " has been recommended by " & name & " at " & Request.Form("SendersEmail") & vbCrLf & vbCrLf & " " & vbcrlf & message strMsgFooter = vbCrLf & vbCrLf & "-------------------" Mailer.BodyText = strMsgHeader & strMsgInfo & strMsgFooter if Mailer.SendMail then 'Response.Write "Mail sent..." Response.Redirect "page-send_thanks.asp?url="& URL else Response.Write "

Mail send failure. Error was " & Mailer.Response Response.Write "

Check your e-mail address, and make sure everything was entered correctly.

" %> <% End If %>