RETINAS (IM)PERTINENTES DE BAKUNIM |
RETINAS (IM)PERTINENTES DE BAKUNIM |
Copyright ©2007, by ALB/Campinas, SP, Brasil
|
<% dim done done = request.form("done") if done = "" then done = "No" %> <% Else if request.form("done") = "Yes" then 'sets variables dim email, sendmail, remet, remmail, dest email = request.form("email") remet = request.form("remet") remmail = request.form("remmail") dest = request.form("dest") Set sendmail = Server.CreateObject("CDONTS.NewMail") 'put the webmaster address here sendmail.From = remmail 'The mail is sent to the address entered in the previous page. sendmail.To = email 'Enter the subject of your mail here sendmail.Subject = "Indicação de Website" 'send a specific page or send a site url dim url url = Request.ServerVariables("HTTP_REFERER") 'This is the content of thr message. sendmail.Body = "Site recomendado por amigo(a)!" & _ vbCrlf & vbCrlf & "Seu amigo " & remet & " entrou no site da ALB e indicou o link:" & _ vbCrlf & url & vbCrlf 'this sets mail priority.... 0=low 1=normal 2=high sendmail.Importance = 1 sendmail.Send 'Send the email! 'response.redirect Request.ServerVariables("HTTP_REFERER") Response.write " Indicação enviada para: " & email & "" End if End if %> |
