<%
name = trim(request.form("nome"))
from = trim(request.form("email"))
subject = trim(request.form("assunto"))
text = trim(request.form("text"))
if request.servervariables("REQUEST_METHOD") = "POST" then
if (len(trim(name))= 0) then
msg = "Por favor, digite seu nome"
call imprimetela(name,from,subject,text,msg)
elseif len(trim(from)) = 0 then
msg = "Por favor, digite seu e-mail"
call imprimetela(name,from,subject,text,msg)
elseif len(trim(text)) = 0 then
msg = "Por favor, digite a mensagem"
call imprimetela(name,from,subject,text,msg)
else
'=================
'= Envia o email =
'=================
Dim objMail
Set objMail = CreateObject("CDONTS.Newmail")
objMail.TO = "contato@sobresites.com"
objMail.BCC = "equipe@sobresites.com"
objMail.From = from ' You can send anonimous 'mail if you so choose
objmail.Subject = subject
objMail.MailFormat = cdoMailFormatMime
objMail.BodyFormat = cdoBodyFormatHTML
objMail.Body = "
Fale conosco - Desenvolvimento Web
" & name & "
" & from & "
" & assunto & "
" & text & "
"
objMail.send
set objMail = Nothing
response.redirect ("confirma.htm")
End if
else
call imprimetela("","","","","")
End if
%>
<%
function imprimetela(name,from,subject,text,msg)
%>
Fale Conosco - Guia de Desenvolvimento Web
