<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim manif__TZColParam manif__TZColParam = "0" If (request.querystring("id") <> "") Then manif__TZColParam = request.querystring("id") End If %> <% Dim manif Dim manif_numRows Set manif = Server.CreateObject("ADODB.Recordset") manif.ActiveConnection = MM_cenaberta_STRING manif.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, noticias.tipo AS noticias_tipo, noticias.fotogaleria, noticias.newsletter, noticias.hierarquia, noticias.autor, noticias.emailautor, noticias.data_arquivo, seccao.secao FROM seccao INNER JOIN noticias ON seccao.id_seccao = noticias.id_seccao WHERE (((seccao.secao)='Teatro popular')) and noticias.id_noticia=" + Replace(manif__TZColParam, "'", "''") + " ORDER BY noticias.id_noticia DESC" manif.CursorType = 0 manif.CursorLocation = 2 manif.LockType = 1 manif.Open() manif_numRows = 0 %> cena lusófona
teatro popular

<%=(manif.Fields.Item("titulo").Value)%>

<%=(manif.Fields.Item("texto").Value)%>

<% manif.Close() Set manif = Nothing %>