<%@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*fromlist"
Recordset1_cmd.prepared = true
SetRecordset1 = recordset1_cmd.execute
Recordset1_numrows = 0
%>
<%
DIMREPEAT1__NUMROWS
DIMREPEAT1__index
Ulangi1__numrows = 2
Ulangi1__index = 0
Recordset1_numrows = recordset1_numrows+ulangi1__numrows
%>
<%
'*** RecordSetStats, MovetoRecord, andGotorecord: DeclareStatsVariable
DIMRECORDSET1_TOTAL
DIMRECORDSET1_FIRST
DIMRECORDSET1_LAST
'SetTherecordCount
Recordset1_total = recordset1.recordcount
'SetThenumberofrowsDisplayedonthispage
If (recordset1_numrows <0) lalu
Recordset1_numrows = RecordSet1_total
Elseif (recordset1_numrows = 0) Kemudian
Recordset1_numrows = 1
Endif
'SetTheFirStandLastDisplayedRecord
Recordset1_first = 1
Recordset1_last = recordset1_first+recordset1_numrows-1
'IfwehavethecorrectrecordCount, checkheotherstats
If (recordset1_total <>-1) lalu
If (recordset1_first> recordset1_total) lalu
RecordSet1_First = RecordSet1_total
Endif
If (recordset1_last> recordset1_total) lalu
Recordset1_last = RecordSet1_total
Endif
If (recordset1_numrows> recordset1_total) kemudian
Recordset1_numrows = RecordSet1_total
Endif
Endif
%>
<%
'*** RecordSetStats: ifwedon'tknowtherecordcount, manualcountthem
If (recordset1_total = -1) lalu
'COMPOTTHETOLRECORDSBYITERATITEDTHROUGHTERCORDSET
Recordset1_total = 0
While (notrecordset1.eof)
RecordSet1_total = RecordSet1_total+1