<%@Idioma = "vBScript" codePage = "65001"%>
<!-#incluirfile = "Connections/Conn.asp"->
<%
DiMRecordSet1
DIMRECORDSET1_CMD
DIMRECORDSET1_NUMROWS
SetRecordset1_cmd = server.createObject ("adodb.command")
Registroset1_cmd.activeConnection = mm_conn_string
RecordSet1_CMD.CommandText = "Selecione*FromList"
Registroset1_cmd.prepared = true
SetRecordSet1 = registroset1_cmd.execute
Registroset1_numrows = 0
%>
<%
DimRepeat1__numRows
DimRepeat1__Index
Repetição1__numrows = 2
Repetição1__Index = 0
RecordSet1_NumRows = RecordSet1_NumRows+Repip1__numRows
%>
<%
'*** RECORDSETSTATS, MOVETORECORD eGOTORCORD: DeclarestatsVariabels
DIMRECORDSET1_TOTAL
DIMRECORDSET1_FIRST
DIMRECORDSET1_LAST
'settherecordCount
RecordSet1_total = RecordSet1.RecordCount
'SettheNumberOfrowsDisplayedOnthispage
If (registroset1_numRows <0) então
RecordSet1_NumRows = RecordSet1_total
Elseif (registroset1_numrows = 0) então
RecordSet1_NumRows = 1
Endif
'SettheFirStandLastDisplayedRecord
RecordSet1_first = 1
RecordSet1_Last = RecordSet1_First+RecordSet1_NumRows-1
'ifwehavetheCrecretrecordCount, checktheotherstats
If (registroset1_total <>-1) então
If (registroset1_first> registrset1_total) então
RecordSet1_first = RecordSet1_total
Endif
If (registroset1_last> registrset1_total) então
RecordSet1_Last = RecordSet1_total
Endif
If (registroset1_numrows> registroSet1_total) então
RecordSet1_NumRows = RecordSet1_total
Endif
Endif
%>
<%
'*** RECORDSETSTATS: IFWEDON'TKNOWTHTERECORDCOUNT, manualmente descolando
If (registroset1_total = -1) então
CountThetoTalRecordsByiteratingThThTheRecordSet
Registroset1_total = 0
While (notRecordset1.eof)
RecordSet1_total = RecordSet1_total+1