<%@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 apresentação memória agenda documentação destaque edições conexões <% 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 %>