<% @language="VBSCRIPT" %> <% Dim myMail Set myMail = CreateObject("CDONTS.NewMail") If Request.Form("email") = "" Then Email = "jesse@fapnet.com.br" Else Email = Request.Form("email") f1 = " Nome: " & Request.Form("nome") & vbcrlf f2 = " Nome da empresa: " & Request.Form("compania") & vbcrlf f3 = " E-mail: " & Request.Form("email") & vbcrlf f4 = "Telefone: " & Request.Form("telefone") & vbcrlf f5 = " Natureza da consulta: " & Request.Form("natureza") & vbcrlf f6 = " Departamento: " & Request.Form("departamento") & vbcrlf f7 = "Comentário: " & Request.Form("comentario") & vbcrlf fields = f1 & f2 & f3 & f4 & f5 & f6 & f7 myMail.BodyFormat=1 myMail.MailFormat=1 myMail.From=Request.Form("email") myMail.To="jesse@fapnet.com.br" myMail.Subject="English Essentials Contato" myMail.Body=fields myMail.Send set myMail=nothing %>
Edição feita por: DarkSign, 21/07/2009, 17:08.
use tag [code] para códigos