<%@Sprache = "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 = "Auswahl*von list"
Recordset1_cmd.preparared = true
SetRecordSet1 = recordset1_cmd.execute
RecordSet1_numrows = 0
%>
<%
Dimrepeat1__Numrows
Dimrepeat1__Index
Repep1__Numrows = 2
Repep1__Index = 0
Recordset1_numrows = recordset1_numrows+repep1__Numrows
%>
<%
'*** RecordsetStats, MoveToreCord und GotoreCord: DeclarestatsVariables
Dimrecordset1_total
Dimrecordset1_first
Dimrecordset1_last
'setThereCordCount
Recordset1_total = recordset1.recordCount
'setTenumberofrowsDisplayedonThispage
If (recordset1_numrows <0) dann
Recordset1_numrows = recordset1_total
Elseif (recordset1_numrows = 0) dann
RecordSet1_numrows = 1
Endif
'setttheFirStandLastDisplayedRecord
Recordset1_first = 1
Recordset1_last = recordset1_first+recordset1_numrows-1
»IfwehavethEcorrecrecordCount, prüfen Sie, ob dieotherstats
If (recordset1_total <>-1) dann
If (recordset1_first> recordSet1_total) dann
Recordset1_first = recordset1_total
Endif
If (recordset1_last> recordset1_total) dann
Recordset1_last = recordset1_total
Endif
If (recordset1_numrows> recordset1_total) dann
Recordset1_numrows = recordset1_total
Endif
Endif
%>
<%
'*** RecordSetStats: Ifwedon't KnowthereCordCount, manuellcountthem
If (recordset1_total = -1) dann
'CountthetotalRecordsByiterating ThroughthereCordset
Recordset1_total = 0
While (notrecordset1.eof)
Recordset1_total = recordset1_total+1