indicar noticia

[celi 0]

bem amigos eu gostaria de saber se teria alguem que pudesse me ajudar montar um sistema para recomendar notícia do meu site. Tipo o cara acessa meu site e ler uma determinada notícia, dai ele quer recomendá-la a um amigo, então ele clica e envia a matéria que ele quiser. Obrigado!

[xanburzum 169]

olha ae um presentinho pra você,

 

<!-- 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

%>

depois você pode mudar de CDONTS para CDOSYS

[celi 0]

Mais seria possível eu pegar justamente o link de cada noticia cadastrada em meu bd, e recomendá-la? porque na verdade eu quera fazer isto indicadr determinadas noticias. Obrigado!

[xanburzum 169]

sim, ao usuario indicar a noticia, você pega o link da mesma e concatena dentro do body do seu email...

[celi 0]

Sim, mas como faço isso?

[Vinicius Ianni 189]

neste trecho:

' indique a url do site
url = "http://www.seusite.com"

está onde você colocará a noticia.

Simples, pratico e funcional.

[celi 0]

seria assim:

' indique a url do site
url = "http://www.seusite.com/site1/2010/ver.asp?id="

?

[Vinicius Ianni 189]

sim.

Não esquecendo que no id="

tem que colocar o id correspondente da materia, senão vai gerar um erro.

id="&id

que para o navegador ficaria:

id=345