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

%>

Referência: Dispomos de outro artigo em CriarWeb.com que realiza um script com basicamente a mesma funcionalidade, se interessar ver outro ponto de vista.