<%@LANGUAGE="VBSCRIPT"%> <% set RsLEYES = Server.CreateObject("ADODB.Recordset") RsLEYES.ActiveConnection = MM_legal_leyes_STRING RsLEYES.Source = "SELECT key FROM tbl_Base_Ins" RsLEYES.CursorType = 0 RsLEYES.CursorLocation = 2 RsLEYES.LockType = 3 RsLEYES.Open() RsLEYES_numRows = 0 %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables ' set the record count RsLEYES_total = RsLEYES.RecordCount ' set the number of rows displayed on this page If (RsLEYES_numRows < 0) Then RsLEYES_numRows = RsLEYES_total Elseif (RsLEYES_numRows = 0) Then RsLEYES_numRows = 1 End If ' set the first and last displayed record RsLEYES_first = 1 RsLEYES_last = RsLEYES_first + RsLEYES_numRows - 1 ' if we have the correct record count, check the other stats If (RsLEYES_total <> -1) Then If (RsLEYES_first > RsLEYES_total) Then RsLEYES_first = RsLEYES_total If (RsLEYES_last > RsLEYES_total) Then RsLEYES_last = RsLEYES_total If (RsLEYES_numRows > RsLEYES_total) Then RsLEYES_numRows = RsLEYES_total End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (RsLEYES_total = -1) Then ' count the total records by iterating through the recordset RsLEYES_total=0 While (Not RsLEYES.EOF) RsLEYES_total = RsLEYES_total + 1 RsLEYES.MoveNext Wend ' reset the cursor to the beginning If (RsLEYES.CursorType > 0) Then RsLEYES.MoveFirst Else RsLEYES.Requery End If ' set the number of rows displayed on this page If (RsLEYES_numRows < 0 Or RsLEYES_numRows > RsLEYES_total) Then RsLEYES_numRows = RsLEYES_total End If ' set the first and last displayed record RsLEYES_first = 1 RsLEYES_last = RsLEYES_first + RsLEYES_numRows - 1 If (RsLEYES_first > RsLEYES_total) Then RsLEYES_first = RsLEYES_total If (RsLEYES_last > RsLEYES_total) Then RsLEYES_last = RsLEYES_total End If %> .:: Legal Ambiental : Búsqueda ::.
 

Lo sentimos usted aún no se ha registrado como usuario. Puede realizar su inscripción totalmente gratuita completando el siguiente formulario para acceder a <%=(RsLEYES_total)%> registros en nuestra base de datos.

Volver al inicio

Gracias.

 

 

 
 

 

<% RsLEYES.Close() %>