%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset2 Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_StrConnection_STRING Recordset2.Source = "SELECT CodigoNoticia, TituloNoticia, DataNoticia FROM Noticia ORDER BY DataNoticia DESC" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 5 Repeat1__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 4 Repeat2__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat2__numRows %>