<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim RsNoticiasLista Dim RsNoticiasLista_numRows Set RsNoticiasLista = Server.CreateObject("ADODB.Recordset") RsNoticiasLista.ActiveConnection = MM_adan_STRING RsNoticiasLista.Source = "SELECT cod_noticia, data, titulo FROM noticias ORDER BY cod_noticia DESC" RsNoticiasLista.CursorType = 0 RsNoticiasLista.CursorLocation = 2 RsNoticiasLista.LockType = 1 RsNoticiasLista.Open() RsNoticiasLista_numRows = 0 %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 RsNoticiasLista_numRows = RsNoticiasLista_numRows + Repeat2__numRows %> :::: TAPETES ADAN - PROTEÇÃO POR INTEIRO HÁ 40 ANOS ::::

<% While ((Repeat2__numRows <> 0) AND (NOT RsNoticiasLista.EOF)) %>
<%=(RsNoticiasLista.Fields.Item("data").Value)%>- "><%=(RsNoticiasLista.Fields.Item("titulo").Value)%>
<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 RsNoticiasLista.MoveNext() Wend %>


 

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