Formulario via CDONTs!

Olá pessoal,

Segue o código de um formulário de contato. Este formulário, assim que preenchido e enviado, insere o IP do usuário no e-mail que você receberá:

1. Arquivo 'formulario.asp':

<form method=post action="enviaemail.asp"> <table border="0" width="18%" cellspacing="0" cellpadding="0" align="left"> <tr> <td width="96%" height="21" valign="bottom"> <p align="left"><font size="1" face="Verdana"><b>Seu nome:</b></font> </td> </tr> <tr> <td width="96%" height="23"> <p align="left"><font size="1" face="Verdana"> <input type="text" name="nome" size="21" style="font-family: Verdana; font-size: 9 pt; border-style: solid; border-width: 1" maxlength="50"> </font> </td> </tr> <tr> <td width="96%" height="21" valign="bottom"> <p align="left"><font size="1" face="Verdana"><b>E-mail:</b></font> </td> </tr> <tr> <td width="96%" height="23"> <p align="left"><font size="1" face="Verdana"> <input type="text" name="email" size="21" style="font-family: Verdana; font-size: 9 pt; border-style: solid; border-width: 1" maxlength="50"> </font> </td> </tr> <tr> <td width="96%" height="21" valign="bottom"><font size="1" face="Verdana"><b>Assunto:</b></font></td> </tr> <tr> <td width="96%" height="23"><font size="1" face="Verdana"> <input type="text" name="assunto" size="21" style="font-family: Verdana; font-size: 9 pt; border-style: solid; border-width: 1" maxlength="50"> </font></td> </tr> <tr> <td width="96%" height="21" valign="bottom"> <p align="left"><font size="1" face="Verdana"><b>Mensagem:</b></font> </td> </tr> <tr> <td width="96%"> <p align="left"><font size="1" face="Verdana"> <textarea rows="5" name="mensagem" cols="21" style="font-family: Verdana; font-size: 9 pt; border-style: solid; border-width: 1"></textarea> <input type="hidden" name="hiddenField" value="<%= Request.ServerVariables("REMOTE_ADDR")%>"> </font> </td> </tr> <tr> <td width="96%" height="40"> <p align="left"><font face="Verdana"> <input type="submit" src="file:///C|/WINDOWS/Desktop/C%F3gidos%20e%20Utilit%E1rios/C%F3gidos%20e%20Utilit%E1rios/C%F3gidos%20e%20Utilit%E1rios/imagens/enviar.gif" value="Enviar" name="enviar"> </font> </td> </tr> </table></form>

2. Arquivo 'enviaemail.asp'

<%str_nome = trim(request.form("nome"))str_email = trim(request.form("email"))str_assunto = trim(request.form("assunto"))str_mensagem = trim(request.form("mensagem"))str_ip = trim(request.form("hiddenField"))str_mensagememail = "" & str_mensagem & "<br><br>IP: " & str_ip & "" set mensagem = server.createobject("CDONTS.NewMail")mensagem.from = str_emailmensagem.to = "seuemail@seudominio.com.br"mensagem.Subject = str_assuntomensagem.bodyformat = 0mensagem.mailformat = 0mensagem.Body = str_mensagememailmensagem.SendSet objMail = nothingresponse.write "Sua mensagem foi enviada com sucesso!"%>

Era isso!