<%@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
Repeat1__numRows=2
Repeat1__index=0
Recordset1_numRows=Recordset1_numRows+Repeat1__numRows
%>
<%
'***RecordsetStats,MoveToRecord,andGoToRecord:declarestatsvariables
DimRecordset1_total
DimRecordset1_first
DimRecordset1_last
'settherecordcount
Recordset1_total=Recordset1.RecordCount
'setthenumberofrowsdisplayedonthispage
If(Recordset1_numRows<0)Then
Recordset1_numRows=Recordset1_total
Elseif(Recordset1_numRows=0)Then
Recordset1_numRows=1
EndIf
'setthefirstandlastdisplayedrecord
Recordset1_first=1
Recordset1_last=Recordset1_first+Recordset1_numRows-1
'ifwehavethecorrectrecordcount,checktheotherstats
If(Recordset1_total<>-1)Then
If(Recordset1_first>Recordset1_total)Then
Recordset1_first=Recordset1_total
EndIf
If(Recordset1_last>Recordset1_total)Then
Recordset1_last=Recordset1_total
EndIf
If(Recordset1_numRows>Recordset1_total)Then
Recordset1_numRows=Recordset1_total
EndIf
EndIf
%>
<%
'***RecordsetStats:ifwedon'tknowtherecordcount,manuallycountthem
If(Recordset1_total=-1)Then
'countthetotalrecordsbyiteratingthroughtherecordset
Recordset1_total=0
While(NotRecordset1.EOF)
Recordset1_total=Recordset1_total+1