%@LANGUAGE="VBSCRIPT"%> <% Dim Ncongreso Dim Ncongreso_numRows Set Ncongreso = Server.CreateObject("ADODB.Recordset") Ncongreso.ActiveConnection = MM_directorio_aecit_STRING Ncongreso.Source = "SELECT * FROM congresos" Ncongreso.CursorType = 0 Ncongreso.CursorLocation = 2 Ncongreso.LockType = 1 Ncongreso.Open() Ncongreso_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Ncongreso_numRows = Ncongreso_numRows + Repeat1__numRows %>
|
|
|
||||||||||||||||||||||||||||||||||||||||||||||||