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

sFrom = Request.Form("name") & "<" & Request.Form("email") & ">"
sTo = "fabianomurilo@ibratele.com.br"
sSubject = "Revendedor - Site Ibratele"

sMessage = "Razão Social: " & request.Form("razao") & vbcrlf _
& "Nome: " & request.Form("nome") & vbcrlf _
& "Endereço: " & request.Form("endereco") & vbcrlf _ 
& "Bairro: " & request.Form("bairro") & vbcrlf _ 
& "Cidade: " & request.Form("cidade") & vbcrlf _ 
& "Estado: " & request.Form("estado") & vbcrlf _
& "Telefone: " & request.Form("telefone") & vbcrlf _
& "Fax: " & request.Form("fax") & 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 "revendedor.html"
%>