olehm o codigo
<%
'todas as variaveis abaixo podem ser declaradas em uma unica linha,fiz assim para ficar mais organizado
Dim nome_r 'nome de qm esta indicando o site
Dim email_r 'email de qm esta indicando o site
Dim nome_d 'nome para qm sera indicado o site(nome do destinatario)
Dim email_d 'email para qm sera indicado o site(email do amigo)
Dim mensagem 'mensagem q o remetente digitou
Dim nome_site 'nome do site
Dim end_site 'endereco do site
Dim corpo_msg 'corpo da mensagem
Dim indicaMail 'objeto cdonts q fara o envio do email
nome_r = request.form("snome")
email_r = request.form("semail")
nome_d = request.form("anome")
email_d = request.form("aemail")
mensagem = request.form("msg")
nome_site = "CrazyBaby HP" 'nome do site
end_site = "http://crazybaby.hpr.com.br" 'endereco do site
corpo_msg = "<html><head><title>Indicação de site</title></head>"
corpo_msg = corpo_msg & "<body>Olá"& nome_d &" , seu amigo(a) <a mailto:"&email_r&">"&nome_r&"</a> esta te indicando o site "
corpo_msg = corpo_msg & nome_site & ",<br>pois gostou dele e acha que você pode se interessar também!<br>"
corpo_msg = corpo_msg & "para entrar nele acesse o link abaixo:<br>"& end_site
corpo_msg = corpo_msg & "Ele tambem deixou a seguinte mensagem: <br>"&mensagem
corpo_msg = corpo_msg & "</body></html>"
Set indicaMail = CreateObject("CDONTS.NewMail")
indicaMail.From = nome_site
indicaMail.To = email_d
indicaMail.Subject = "Indicação de site"
indicaMail.BodyFormat = 0
indicaMail.MailFormat = 0
indicaMail.Body = corpo_msg
indicaMail.Send
Set indicaMail = nothing
response.write("Site indicado com sucesso")
'By CrazyBaby
%>
agora o form
<form method="post" action="indique.asp"> <table width="16%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><div align="center">Seu nome:</div></td> </tr> <tr> <td> <div align="center"> <input name="snome" type="text" maxlength="20"> </div></td> </tr> <tr> <td><div align="center">Seu email:</div></td> </tr> <tr> <td> <div align="center"> <input type="text" name="semail"> </div></td> </tr> <tr> <td><div align="center">Nome do amigo:</div></td> </tr> <tr> <td> <div align="center"> <input name="anome" type="text" maxlength="20"> </div></td> </tr> <tr> <td><div align="center">Email do amigo:</div></td> </tr> <tr> <td> <div align="center"> <input type="text" name="aemail"> </div></td> </tr> <tr> <td><div align="center">Mensagem:</div></td> </tr> <tr> <td> <div align="center"> <textarea name="msg" rows="5" cols="20"></textarea> </div></td> </tr> <tr> <td> <div align="center"> <input type="submit" value="Enviar"><!--Botão ENVIAR--> </div></td> </tr> </table> </form> </body> </html>
alguem tem algum ai que funcione certinho par me arrumar
