<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%

sFrom = Request.Form("name") & "<" & Request.Form("email") & ">"
sTo = Request.Form("area")
sSubject = "Contato - Site Ibratele"

sMessage = "Nome: " & Request.Form("nome") & vbcrlf _
& "Telefone: " & Request.Form("telefone") & vbcrlf _ 
& "E-Mail: " & Request.Form("email") & vbcrlf _ 
& "Mensagem: " & Request.Form("mensagem")

Set objNewMail = CreateObject("CDONTS.NewMail")
objNewMail.Send sFrom, sTo, sSubject, sMessage
Set objNewMail = Nothing

Response.redirect "contato.html"
%>