<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim NOT1__MMColParam NOT1__MMColParam = "1" If (Request.QueryString("cod") <> "") Then NOT1__MMColParam = Request.QueryString("cod") End If %> <% Dim NOT1 Dim NOT1_numRows Set NOT1 = Server.CreateObject("ADODB.Recordset") NOT1.ActiveConnection = MM_lan_STRING NOT1.Source = "SELECT * FROM noticias WHERE cod = " + Replace(NOT1__MMColParam, "'", "''") + " ORDER BY cod DESC" NOT1.CursorType = 0 NOT1.CursorLocation = 2 NOT1.LockType = 1 NOT1.Open() NOT1_numRows = 0 %>

            NOTÍCIAS

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

<%=(NOT1.Fields.Item("conteudo").Value)%>

 


Fonte: <%=(NOT1.Fields.Item("fonte").Value)%>

<< Voltar

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