<%
response.charset = "ISO-8859-1"
dim remetente, destinatario, nome_rem, nome_des, codigo
remetente = lcase(trim(replace(request("mail_r"), " ","")))
destinatario = lcase(trim(replace(request("mail_d"), " ","")))
nome_rem = lcase(trim(replace(request("nome_r"), " ","")))
nome_des = lcase(trim(replace(request("nome_d"), " ","")))
codigo = request("cod")
dim sql, rs
sql = "SELECT secao.cod AS codSec, "
sql = sql & "secao.nome_secao_url AS urlSec ,"
sql = sql & "noticias.Titulo AS Titulo ,"
sql = sql & "noticias.Codigo AS CodNot ,"
sql = sql & "noticias.Chamada AS Chamada from (secao INNER JOIN noticias "
sql = sql & "on secao.cod = noticias.codigo_secao) where noticias.codigo = "&codigo
call AbreCon
set rs = conexao.execute(sql)
if rs.eof then
response.write "Erro ao pegar notícia"
else
dim Mailer
set Mailer=server.createObject("persits.mailsender")
Mailer.isHTML = true
Mailer.Host = "localhost"
Mailer.from = remetente
Mailer.fromname = nome_rem
Mailer.addaddress destinatario, nome_des
Mailer.subject = nome_rem&" Enviou a você uma notícia do site crossmidia.com"
Mailer.body = "![]()
"&vbnewline
Mailer.body = Mailer.body & "Olá, "&nome_des&"!"
Mailer.body = Mailer.body & "
"&nome_rem&" ("&remetente&") enviou esta notícia a você pelo site crossmidia.com:"
Mailer.body = Mailer.body & ""&vbnewline
Mailer.body = Mailer.body & "
"&rs("titulo")&"
"
Mailer.body = Mailer.body & rs("chamada")&"
"
Mailer.body = Mailer.body & "
Leia esta notícia completa no site.
"
Mailer.body = Mailer.body & "
"
mailErr.body = mailErr.body &"Descrição do erro: "&err.description&"
"
mailErr.body = mailErr.body &"Página: "&request.servervariables("URL")
mailErr.send
response.write "Desculpe, houve um erro na execução da página. Um relatório foi enviado ao administrador.
"
response.write "« Voltar"
set mailErr = nothing
response.end
else
Mailer.send
response.write "E-mail enviado
Obrigado por sua participação.
"
end if
end if
call FechaCon
%>