vLink="<% =ActiveLinkColor %>">
<% =BBTitle %>  
<% 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 = "De: " & Request.Form("yname") & " Página Interessante" msg = "Olá " & Request.Form("name") & vbcrlf & vbcrlf msg = msg & Request.Form("msg") & vbcrlf & vbcrlf msg = msg & "Recebeu este email de : " & Request.Form("yname") & " " & Request.Form("yemail") Mailer.BodyText = msg if Mailer.SendMail then Response.Write " " else Response.Write "Ocorreu um erro, contacte " & emailsrv & ". O erro foi "& Mailer.Response end if %>
O email foi enviado
<% else %>
Nome do destinatário
Email do destinatário
O seu nome
O seu email
Mensagem
<% end if %> Fechar Janela