<% @ Lingots = "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.excute
RecordSet1_numRows = 0
%>
<%
Dimrepeat1__numrows
Dimrepeat1__index
Répéter1__numrows = 2
Répéter1__index = 0
RecordSet1_numRows = RecordSet1_numRows + Repeat1__numRows
%>
<%
'*** RecordSetStats, MoveToreCord et GotoreCord: DeclarestatsVariables
DimRecordset1_total
DimRecordset1_first
DimRecordset1_last
'setThereCordCount
RecordSet1_Total = RecordSet1.RecordCount
'SetTheNumberofrowsDisplayedOnThispage
If (recordset1_numrows <0) alors
RecordSet1_numRows = RecordSet1_Total
Elseif (recordSet1_numRows = 0) puis
RecordSet1_numRows = 1
Endire
'setTheFirstandlastDisplayedRecord
RecordSet1_First = 1
RecordSet1_last = RecordSet1_First + RecordSet1_numRows-1
'ifwehavethecorrectRecordCount, vérifiez les tats
If (recordset1_total <> - 1) alors
If (recordset1_first> recordset1_total) alors
RecordSet1_First = RecordSet1_Total
Endire
If (recordset1_last> recordset1_total) alors
RecordSet1_last = RecordSet1_Total
Endire
If (recordset1_numrows> recordset1_total) alors
RecordSet1_numRows = RecordSet1_Total
Endire
Endire
%>
<%
'*** RecordSetStats: ifwedon'tknowtherecordcount, manuellementCountThem
If (recordset1_total = -1) alors
'CountTheTotalRecordsByitriant à travers le prix
RecordSet1_Total = 0
Tandis que (notrecordset1.eof)
RecordSet1_Total = RecordSet1_Total + 1