<%
'Aqui chamamos a sub enviar quando o formulário for enviado.
if request.Form("Submit")="Enviar" then
Call enviar()
End if
'Aqui montamos a sub enviar ( é a sintaxe do envio de email com cdonts)
Sub enviar()
Set Mailer = CreateObject("CDONTS.NewMail")
Mailer.From = request.form("email1") ' e-mail de quem esta enviando a mensagem
Mailer.To = request.form("email2") ' e-mail de quem vai receber a mensagem
Mailer.BodyFormat=0
Mailer.MailFormat=0
Mailer.Subject = "Site do seu interesse"
'aqui montamos a mensagem
Mailer.Body = "Olá " & request.form("nome2") &" achei este site do seu interesse:" &""&request.QueryString("link")&"
"
Mailer.Send
Set Mailer = Nothing
'confirmação do envio.
msg = "Email enviado com sucesso!"
response.Write("")
end sub
%>