%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim noticia
Dim noticia_numRows
Set noticia = Server.CreateObject("ADODB.Recordset")
noticia.ActiveConnection = MM_cenaberta_STRING
noticia.Source = "SELECT noticias.data_hora, noticias.titulo, noticias.id_noticia, noticias.id_seccao, noticias.lead, imagens.loc_imagem, noticias.hierarquia, imagens.legenda, imagens.tamanho, imagens.autor, imagens.id_imagem FROM noticias LEFT JOIN imagens ON noticias.id_noticia = imagens.id_noticia WHERE (((noticias.hierarquia)=2) AND ((noticias.mostrar_1a_pagina)=1)) ORDER BY noticias.data_hora DESC"
noticia.CursorType = 0
noticia.CursorLocation = 2
noticia.LockType = 1
noticia.Open()
noticia_numRows = 0
%>
<%
Dim menu
Dim menu_numRows
Set menu = Server.CreateObject("ADODB.Recordset")
menu.ActiveConnection = MM_cenaberta_STRING
menu.Source = "SELECT * FROM seccao WHERE mostrar=1 ORDER BY secao"
menu.CursorType = 0
menu.CursorLocation = 2
menu.LockType = 1
menu.Open()
menu_numRows = 0
%>
<%
Dim destaque
Dim destaque_numRows
Set destaque = Server.CreateObject("ADODB.Recordset")
destaque.ActiveConnection = MM_cenaberta_STRING
destaque.Source = "SELECT TOP 1 noticias.id_seccao, noticias.id_noticia, noticias.hierarquia, noticias.titulo, noticias.antetitulo, noticias.postitulo, noticias.lead, noticias.mostrar_1a_pagina, imagens.id_imagem, imagens.loc_imagem, imagens.legenda, imagens.tamanho, imagens.autor, noticias.data_hora FROM noticias LEFT JOIN imagens ON noticias.id_noticia = imagens.id_noticia WHERE (((noticias.hierarquia)=1) AND ((noticias.mostrar_1a_pagina)<>0)) ORDER BY noticias.data_hora DESC"
destaque.CursorType = 0
destaque.CursorLocation = 2
destaque.LockType = 1
destaque.Open()
destaque_numRows = 0
%>
<%
Dim forumpoliticas
Dim forumpoliticas_numRows
Set forumpoliticas = Server.CreateObject("ADODB.Recordset")
forumpoliticas.ActiveConnection = MM_cenaberta_STRING
forumpoliticas.Source = "SELECT noticias.id_noticia, noticias.id_seccao, noticias.id_pais, noticias.username, noticias.antetitulo, noticias.titulo, noticias.postitulo, noticias.lead, noticias.texto, noticias.mostrar_1a_pagina, noticias.mostrar_pag_seccao, noticias.data_hora, First(imagens.loc_imagem) AS PrimeiroDeloc_imagem, First(imagens.tamanho) AS PrimeiroDetamanho FROM noticias LEFT JOIN imagens ON noticias.id_noticia = imagens.id_noticia WHERE tipo='Fórum Política Cultural' GROUP BY noticias.id_noticia, noticias.id_seccao, noticias.id_pais, noticias.username, noticias.antetitulo, noticias.titulo, noticias.postitulo, noticias.lead, noticias.texto, noticias.mostrar_1a_pagina, noticias.mostrar_pag_seccao, noticias.data_hora ORDER BY data_hora DESC"
forumpoliticas.CursorType = 0
forumpoliticas.CursorLocation = 2
forumpoliticas.LockType = 1
forumpoliticas.Open()
forumpoliticas_numRows = 0
%>
<%
Dim editorial
Dim editorial_numRows
Set editorial = Server.CreateObject("ADODB.Recordset")
editorial.ActiveConnection = MM_cenaberta_STRING
editorial.Source = "SELECT noticias.id_noticia, noticias.id_seccao AS noticias_id_seccao, noticias.id_pais, noticias.username, noticias.antetitulo, noticias.titulo, noticias.postitulo, noticias.lead, noticias.texto, noticias.mostrar_1a_pagina, noticias.mostrar_pag_seccao, noticias.data_hora, noticias.tipo, seccao.id_seccao AS seccao_id_seccao, seccao.secao FROM seccao INNER JOIN noticias ON seccao.id_seccao = noticias.id_seccao WHERE (((noticias.id_seccao)=6)) ORDER BY noticias.data_hora DESC"
editorial.CursorType = 0
editorial.CursorLocation = 2
editorial.LockType = 1
editorial.Open()
editorial_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
menu_numRows = menu_numRows + Repeat1__numRows
%>
<%
Dim Repeat3__numRows
Dim Repeat3__index
Repeat3__numRows = 5
Repeat3__index = 0
forumpoliticas_numRows = forumpoliticas_numRows + Repeat3__numRows
%>
<%
Dim Repeat4__numRows
Dim Repeat4__index
Repeat4__numRows = 4
Repeat4__index = 0
editorial_numRows = editorial_numRows + Repeat4__numRows
%>
cenaberta
<%
noticia.Close()
Set noticia = Nothing
%>
<%
menu.Close()
Set menu = Nothing
%>
<%
destaque.Close()
Set destaque = Nothing
%>
<%
forumpoliticas.Close()
Set forumpoliticas = Nothing
%>
<%
editorial.Close()
Set editorial = Nothing
%>