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 & "" Mailer.Subject = "De: " & Request.Form("yname") & " Interesting Page" msg = "Viva " & Request.Form("name") & vbcrlf & vbcrlf msg = msg & Request.Form("msg") & vbcrlf & vbcrlf msg = msg & "Vocę recebeu esta recomendaçăo de : " & Request.Form("yname") & " " & Request.Form("yemail") Mailer.BodyText = msg if Mailer.SendMail then Response.Write " " else Response.Write "O envio do email falhou, contacte " & emailsrv & ". O erro foi "& Mailer.Response end if %>

O seu email foi enviado

<% else %>

Nome do destinatário
Email do destinatário
O seu nome
O seu Email
Mensagem
Hi, <%=vbcrlf %>Penso que está página poderá interessar:<%=vbcrlf & Request.QueryString("page") %>

<% end if %> Fechar janela