<%
dim rs, sql
sql = "SELECT secao.cod AS codSec, "
sql = sql & "secao.nome_secao_url AS nomSec ,"
sql = sql & "secao.nome_secao AS nomSec1 ,"
sql = sql & "noticias.Grau AS Grau ,"
sql = sql & "secao.Cor_Secao AS Cor_Secao ,"
sql = sql & "noticias.Titulo AS Titulo ,"
sql = sql & "noticias.Imagem AS Imagem ,"
sql = sql & "noticias.Data AS Data ,"
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 publicado = 'sim' AND evento='sim' AND year(noticias.data)=2009 order by noticias.data desc"
call AbreCon
set rs = conexao.execute(sql)
if not rs.eof then
do while not rs.eof
response.write "
"
response.write rs("Titulo")
response.write "
"
rs.movenext
loop
end if
set rs = nothing
call FechaCon
%>
