<%@Language = "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 = "select*uplist"
Recordset1_cmd.prepared = true
SetRecordSet1 = recordset1_cmd.execute
Recordset1_numrows = 0
%>
<%
Dimrepeat1__numrows
Dimrepeat1__index
Repeat1__numrows = 2
Repeat1__index = 0
Recordset1_numrows = recordset1_numrows+repeat1__numrows
%>
<%
'*** recordsetstats, movetorecord, и gotorecord: declarestatsvariables
Dimrecordset1_total
Dimrecordset1_first
DimRecordSet1_last
'SetTheRecordCount
Recordset1_total = recordset1.recordCount
'setTheNumberOfRowsDisplayedOnThispage
If (recordset1_numrows <0) тогда
Recordset1_numrows = recordset1_total
Elseif (recordset1_numrows = 0) затем
Recordset1_numrows = 1
Эндиф
'SetTheFirstandLastDisplayedRecord
Recordset1_first = 1
Recordset1_last = recordset1_first+recordset1_numrows-1
'ifwehavethecrecrecordCount, проверьте
If (recordset1_total <>-1) тогда
If (recordset1_first> recordset1_total) then
Recordset1_first = recordset1_total
Эндиф
If (recordset1_last> recordset1_total) then
Recordset1_last = recordset1_total
Эндиф
If (recordset1_numrows> recordset1_total) then
Recordset1_numrows = recordset1_total
Эндиф
Эндиф
%>
<%
'*** recordsetStats: ifwedontThereCordCount, вручную
If (recordset1_total = -1) тогда
'CountTheTotalRecordsByiteratingThereChordSet
Recordset1_total = 0
В то время как (notrecordset1.eof)
Recordset1_total = recordset1_total+1