<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <crossmidia>
<% 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 %>