%
'---------------------------------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) &" " &_
" | " &_
"
| " &_ " |
| " &_ " |
| " &_ " |