<%@Idioma = "vBscript" Codepage = "65001"%>
<!-#includeFile = "Connections/Conn.asp"->
<%
Dimrecordset1
Dimrecordset1_cmd
Dimrecordset1_numrows
SetRecordSet1_cmd = server.CreateObject ("ADODB.COMMAND")
RecordSet1_cmd.activeconnection = mm_conn_string
RecordSet1_Cmd.CommandText = "SELECCIONAR*DEFRESS"
RecordSet1_Cmd.Prepared = True
SetRecordSet1 = RecordSet1_cmd.execute
RecordSet1_numrows = 0
%>
<%
DimRpeat1__numrows
DimRepeat1__Index
Repetir1__numrows = 2
Repetir1__Index = 0
RecordSet1_numRows = RecordSet1_numrows+Repet1__numrows
%>
<%
'*** RecordSetStats, Movetorecord, y Gotorecord: DeclareStatsVariables
Dimrecordset1_total
Dimrecordset1_first
Dimrecordset1_last
'setTherecordCount
RecordSet1_Total = RecordSet1.RecordCount
'setThenumberOfRowsDisplayedThisPage
If (RecordSet1_numrows <0) Entonces
RecordSet1_numrows = RecordSet1_Total
Elseif (registro1_numrows = 0) entonces
RecordSet1_numrows = 1
Endif
'setTheFirstandlastDisplayEdRecord
RecordSet1_First = 1
RecordSet1_Last = RecordSet1_First+RecordSet1_numrows-1
'IfwehavethecorrecordCount, revise a los compromisos
If (RecordSet1_Total <>-1) Entonces
If (RecordSet1_First> RecordSet1_Total) Entonces
RecordSet1_First = RecordSet1_Total
Endif
If (RecordSet1_last> RecordSet1_Total) entonces
RecordSet1_Last = RecordSet1_Total
Endif
If (RecordSet1_numrows> RecordSet1_Total) entonces
RecordSet1_numrows = RecordSet1_Total
Endif
Endif
%>
<%
'*** RecordSetStats: Ifwedon'twetTherecordCount, ManualyCountThem
If (RecordSet1_Total = -1) Entonces
'CountThetTalRecordsByiteratingThroughTherecordSetset
RecordSet1_Total = 0
While (nocordset1.eof)
RecordSet1_Total = RecordSet1_Total+1