|
<%
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 3=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
%> |
voltar capa
da revista