<%
'---------------------------------envia e-amail----------------------------------
nome= request("nome")
email= request("email")
assunto= request("assunto")
mensagem= request("mensagem")
ok = request("ok")
if nome <> "" and assunto <> "" and mensagem <> "" and email <> "" then
Set Mailer = Server.CreateObject("SoftArtisans.SMTPMail")
Mailer.FromName = nome
Mailer.FromAddress= email
Mailer.RemoteHost = "smtp.portalpps.org.br"
'if rst_endereco("TX_EMAIL") <> "" and portal = "" then
Mailer.AddRecipient "webmaster@fundacaoastrojildo.org.br"
'else
' if rst_endereco("TX_EMAIL") <> "" and portal <> "" then
' Mailer.AddRecipient rst_endereco("TX_EMAIL")
' else
' Mailer.AddRecipient "rbueno@pps.org.br"
' end if
'end if
Mailer.Subject = "CONTATO - Site FAP"
Mailer.ContentType= "text/html"
text ="
" &_
"
" &_
"
" &_
"
" &_
"
" &_
"
" &_
"
"& Replace(mensagem,vbcrlf," " ) &"
" &_
"
" &_
"
" &_
"
" &_
"
" &_
"
" &_
"
" &_
"
" &_
"
"& ucase(nome) &"
" &_
"
" &_
"
" &_
"
" &_
"
" &_
"
" &_
"
" &_
"
" &_
"
" &_
"
" &_
"
" &_
"
" &_
"
"
Mailer.BodyText = text
if Mailer.SendMail then
response.redirect "faleconoscoOK.html"
else
response.redirect "index.html?opcao=contato&ok=erro"
end if
set Mailer = nothing
end if
%>
-| Revista Política Democrática |-
Fale Conosco
Fundação Astrojildo Pereira
SDS BLOCO I, Nº 30 ED. MIGUEL BADYA SALA 322
CEP: 70394.901 - BRASÍLIA-DF
Fone:(61) 3224-2269 - Fax: (61) 3226-9756
Fale Conosco