Post Topic Toa Friend

<% if Request.QueryString("mode") = "doit" then email = request.form("email") name = request.form("name") Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "" & mailsrv & "" Mailer.AddRecipient "" & name & "","" & email & "" Mailer.FromName = "Forum" & nomesrv & "" Mailer.FromAddress = "" & emailsrv & "" Subject = "From: " & Request.Form("yname") & " Interesting Page" msg = "Hello " & Request.Form("name") & vbcrlf & vbcrlf msg = msg & Request.Form("msg") & vbcrlf & vbcrlf msg = msg & "You recieved this from : " & Request.Form("yname") & " " & Request.Form("yemail") Mailer.BodyText = msg if Mailer.SendMail then Response.Write " " else Response.Write "There was an error, contact " & emailsrv & ". Error was "& Mailer.Response end if %>

Email has been sent

<% else %>

Send To Name
Send To Email
Your Name
Your Email
Message
Hi, <%=vbcrlf %>I thought you might be interested in this page:<%=vbcrlf & Request.QueryString("page") %>

<% end if %> Close Window