<%=rs("Titulo")%>
<%=rs("Chamada")%>
<%=rs("Texto")%>
<%=dataCerta%>
<%if rs("Autor")<>empty then%>
Autor: <%=rs("Autor")%>
<%end if%>
<%if rs("Fonte")<>empty then%>
Fonte: <%=rs("Fonte")%>
<%end if%>
< Página inicial de <%=rs("nomSec")%>
<%
dim acaoNoticia
acaoNoticia = request.QueryString("acao")
dim sqlCom, rsCom
sqlCom = "SELECT * from comentarios WHERE status='ok' AND idNot="&cod_noticia&" order by data desc"
call abreCon
set rsCom = server.CreateObject("adodb.recordset")
rsCom.cursorLocation=3
rsCom.open sqlCom, conexao
numComent = rsCom.recordCount
%>
Enviar esta noticia por e-mail
<%
if numComent <= 0 then
response.write "
Seja o primeiro a comentar
"&vbnewline
else
response.write "
Comentar
"&vbnewline
response.write "
"&vbnewline
end if
%>
<%if acaoNoticia = "lerComentarios" then ' mostrar os comentários
response.write "
Exibindo todos os comentários ("&numComent&")
"
if not rsCom.eof then
do while not rsCom.eof
dataCom = day(rsCom("data"))&"/"&month(rsCom("data"))&"-"&hour(rsCom("data"))&":"&minute(rsCom("data"))
response.write "
"
response.write "
"&rsCom("usuario")&"
"
response.write "
Postado em: "&dataCom&"
"
response.write "
"&rsCom("comentario")&"
"
response.write "
"
rsCom.movenext
loop
end if
end if
dim sql2, rs2, palavras, k, sqlPalavras
palavras = rs("Palavras_Chave")
if palavras <> empty then
palavras = split(palavras,",")
for i=0 to ubound(palavras)
if i<>ubound(palavras) then
sqlPalavras = sqlPalavras & "palavras_chave like '%"&palavras(i)&"%' OR "
else
sqlPalavras = sqlPalavras & "palavras_chave like '%"&palavras(i)&"%'"
end if
next
sql2 = "SELECT secao.cod AS codSec, "
sql2 = sql2 & "secao.nome_secao_url AS urlSec ,"
sql2 = sql2 & "noticias.Grau AS Grau ,"
sql2 = sql2 & "noticias.Titulo AS Titulo ,"
sql2 = sql2 & "noticias.Data AS Data ,"
sql2 = sql2 & "noticias.Codigo AS CodNot ,"
sql2 = sql2 & "noticias.publicado AS publicado ,"
sql2 = sql2 & "noticias.Palavras_Chave AS Palavras_Chave from (secao INNER JOIN noticias "
sql2 = sql2 & "on secao.cod = noticias.codigo_secao) where ("&sqlPalavras&") AND secao.cod="&rs("CodSec")&" AND noticias.publicado = 'sim' AND noticias.Codigo != "&cod_noticia&" order by data desc LIMIT 0, 10"
call AbreCon
set rs2 = conexao.execute(sql2)
if not rs2.eof then
dim diaMes
response.write "
"
response.write "
"
response.write "
Notícias relacionadas:
"&vbnewline
response.write "
"&vbnewline
response.write "
"&vbnewline
end if
end if
%>