%@LANGUAGE="VBSCRIPT"%> <% Dim rsNoticias__MMColParam rsNoticias__MMColParam = "1" If (Request.QueryString("id") <> "") Then rsNoticias__MMColParam = Request.QueryString("id") End If %> <% Dim rsNoticias Dim rsNoticias_numRows Set rsNoticias = Server.CreateObject("ADODB.Recordset") rsNoticias.ActiveConnection = MM_connFetag_STRING rsNoticias.Source = "SELECT id, data, tema, manchete FROM tbl_noticias WHERE id <> " + Replace(rsNoticias__MMColParam, "'", "''") + " ORDER BY data DESC" rsNoticias.CursorType = 0 rsNoticias.CursorLocation = 2 rsNoticias.LockType = 1 rsNoticias.Open() rsNoticias_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsNoticias_numRows = rsNoticias_numRows + Repeat1__numRows %>
| ||||||||||||||||||||||||||||||