jessepatricio

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

%>