Home Tutoriais Desenvolvimento 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

%>

Fonte: http://www.criarweb.com/artigos/654.php

   

Leave a Reply

This blog is kept spam free by WP-SpamFree.