Sistema de Recomendação em ASP com CDONTS
Este sistema permite ao usuário enviar pela web, um e-mail a outra pessoa, convidando-a a visitar o site.
Só requer um módulo ASP que se encarregará de mostrar o formulário de recomendação, enviar o e-mail e devolver um acuse de envio.
| Nota: Requer que seu servidor suporte CDONTS Mail. |
recomendar.asp
<!– formulário de recomendação –>
<% if request.querystring(“acao”) = “” then
%>
<form method=”post” action=”recomendar.asp?acao=enviar” name=”recomende”>
<b>Recomende este site</b><br><br>
Seu Nome: <input type=”text” name=”n_remetente” size=”10″><br>
Seu E-mail: <input type=”text” name=”e_remetente” size=”20″><br>
Nome do seu amigo: <input type=”text” name=”n_destinatario” size=”10″><br>
E-mail do seu amigo: <input type=”text” name=”e_destinatario” size=”20″><br><br>
<input type=”submit” value=”Recomendar”>
</form>
<!– envio do formulário e acuse de envio ou informação de erros –>
<%
elseif request.querystring(“acao”) = “enviar” then
‘ recolho as variaveis que veem pelo formulario
n_destinatario = request.form(“n_destinatario”)
e_destinatario = request.form(“e_destinatario”)
n_remetente = request.form(“n_remetente”)
e_remetente = request.form(“e_remetente”)
‘ se os campos não estão vazios
if n_destinatario <> “” and e_destinatario <> “” and n_remetente <> “” and e_remetente <> “” then
‘ indique a url do site
url = “http://www.seusite.com”
‘ indique o nome do seus site
nome_do_site = “Seu Site”
‘ indique o assunto da mensagem
assunto = n_remetente & ” lhe recomenda um site”
‘ redija a mensagem
mensaje = “Ola ” & n_destinatario & “:<br>”
mensagem = mensagem & n_remetente & ” lhe recomenda que visite <b>” & nome_do_site & “</b>.<br>”
mensagem = mensagem & “Poderá vê-lo em <a href='” & url & “‘>” & url & “</a><br><br>Saudações!”
‘ começa envio
Set envio = Server.CreateObject (“CDONTS.NewMail”)
‘ indica que o e-mail é em formato HTML
envio.BodyFormat = 0
envio.MailFormat = 0
‘ envia a mensagem
envio.Send e_remetente, e_destinatario, assunto, mensagem
Set envio = Nothing
‘ Informa ao usuário que foi enviada a mensagem
reponse.write “<b>A mensagem foi enviada</b>.<br>Obrigado por nos recomendar!”
‘ se existir campos vazios, envia uma mensagem de erro
else
response.write “Por favor, é necessário completar todos os campos.<br>”
response.write “<a href=’recomendar.asp’>Clique aqui</a> para corrigir os campos.”
end if
end if
%>