<٪@language = "vbscript" codepage = "65001" ٪>
<!-#includefile = "connections/conn.asp"->
<٪
dimrecordset1
dimrecordset1_cmd
dimrecordset1_numrows
setRecordSet1_cmd = server.createBject ("ADODB.Command")
recordset1_cmd.activeconnection = mm_conn_string
RecordSet1_cmd.CommandText = "SELECT*FROMLIST"
recordSet1_cmd.preped = true
setRecordSet1 = recordset1_cmd.execute
RecordSet1_numrows = 0
٪>
<٪
dimrepeat1__numrows
dimrepeat1__Index
REPRICE1__Numrows = 2
REPER1__INDEX = 0
recordset1_numrows = recordset1_numrows+REFENT1__NUMROWS
٪>
<٪
'*** RecordSetStats ، movetorecord ، andgotorecord: recsattatsvariables
dimrecordset1_total
dimrecordset1_first
dimrecordset1_last
'setTherecordCount
recordset1_total = recordSet1.RecordCount
'setThenumberofRowsDisplayedOnTheSpage
if (recordset1_numrows <0) ثم
recordset1_numrows = recordset1_total
elseif (recordset1_numrows = 0) ثم
RecordSet1_numrows = 1
Endif
'setTheFirstandLastDisplayedRecord
RecordSet1_first = 1
recordset1_last = recordset1_first+recordset1_numrows-1
"ifwehavethecorcorcordcount ، checkTheotherStats
if (recordset1_total <>-1) ثم
if (recordset1_first> recordset1_total) ثم
recordset1_first = recordset1_total
Endif
if (recordset1_last> recordset1_total) ثم
recordset1_last = recordset1_total
Endif
if (recordset1_numrows> recordset1_total) ثم
recordset1_numrows = recordset1_total
Endif
Endif
٪>
<٪
'*** RecordSetStats: Ifwedonn't KnowneRecordCount ، يدويًا
if (recordset1_total = -1) ثم
'countTheToTalRecordsByiteratingThroughTherecordset
RecordSet1_total = 0
بينما (notrecordset1.eof)
recordset1_total = recordset1_total+1