<%
nome = replace(tiraAspas(request("nome")),">"," maior ")
nome = replace(nome,"<"," menor ")
email = replace(tiraAspas(request("email")),">"," maior ")
email = replace(email,"<"," menor ")
cidade = replace(tiraAspas(request("cidade")),">"," maior ")
cidade = replace(cidade,"<"," menor ")
estado = replace(tiraAspas(request("estado")),">"," maior ")
estado = replace(estado,"<"," menor ")
telefone = replace(tiraAspas(request("telefone")),">"," maior ")
telefone = replace(telefone,"<"," menor ")
assunto = replace(tiraAspas(request("assunto")),">"," maior ")
assunto = replace(assunto,"<"," menor ")
mensagem = replace(tiraAspas(request("mensagem")),">"," maior ")
mensagem = replace(mensagem,"<"," menor ")
if nome="" then
response.Write("")
response.End()
elseif email="" OR inStr(email,"@")=0 OR inStr(email,".")=0 then
response.Write("")
response.End()
elseif telefone="" then
response.Write("")
response.End()
elseif cidade="" then
response.Write("")
response.End()
elseif assunto="" then
response.Write("")
response.End()
elseif estado="selecione" then
response.Write("")
response.End()
elseif mensagem="" then
response.Write("")
response.End()
else
data = now()
ip = Request.ServerVariables("REMOTE_ADDR")
'envia o email
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
objCDOSYSCon.Fields.update
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = nome &"<"& email &">"
objCDOSYSMail.To = "Fale Conosco" & "<" & "site@pessoabonita.com.br" & ">"
objCDOSYSMail.cc = "Fale Conosco" & "<" & "belasconversas@hotmail.com" & ">"
objCDOSYSMail.Subject = nome & " enviou uma mensagem pelo Fale Conosco do site"
objCDOSYSMail.HtmlBody = "Nome: "&nome&"
E-mail: "&email&"
Cidade: "&cidade&"
Estado: "&estado&"
Telefone: "&telefone&"
Assunto: "&assunto&"
Mensagem: "&mensagem&"Enviada em "&data&"
"
' vai, e-emailzinho...
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
response.Write("")
end if
%>