%@LANGUAGE="VBSCRIPT"%> <% Dim Novedades Dim Novedades_numRows Set Novedades = Server.CreateObject("ADODB.Recordset") Novedades.ActiveConnection = MM_Promisur_STRING Novedades.Source = "SELECT * FROM Novedades ORDER BY Fecha DESC" Novedades.CursorType = 0 Novedades.CursorLocation = 2 Novedades.LockType = 1 Novedades.Open() Novedades_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Novedades_numRows = Novedades_numRows + Repeat1__numRows %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||


