<% @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










