<% ' envia o e-mail if (request.Form() <>"") then Set EnviarMail = Server.CreateObject("CDONTS.NewMail") EnviarMail.To = request.form("txt_para") EnviarMail.From = request.form("txt_de") EnviarMail.Subject = request.form("txt_assunto") EnviarMail.Body = request.form("txt_mensagem") EnviarMail.Importance = 1 EnviarMail.BodyFormat = 0 EnviarMail.MailFormat = 0 EnviarMail.Send msg = "" end if %>

De	" />
Para	" />
Assunto	" />
<% = request.form("txt_mensagem") %>

<% = msg %>