<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
Dim maxID_total
Dim maxID_first
Dim maxID_last
' set the record count
maxID_total = maxID.RecordCount
' set the number of rows displayed on this page
If (maxID_numRows < 0) Then
maxID_numRows = maxID_total
Elseif (maxID_numRows = 0) Then
maxID_numRows = 1
End If
' set the first and last displayed record
maxID_first = 1
maxID_last = maxID_first + maxID_numRows - 1
' if we have the correct record count, check the other stats
If (maxID_total <> -1) Then
If (maxID_first > maxID_total) Then
maxID_first = maxID_total
End If
If (maxID_last > maxID_total) Then
maxID_last = maxID_total
End If
If (maxID_numRows > maxID_total) Then
maxID_numRows = maxID_total
End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
If (maxID_total = -1) Then
' count the total records by iterating through the recordset
maxID_total=0
While (Not maxID.EOF)
maxID_total = maxID_total + 1
maxID.MoveNext
Wend
' reset the cursor to the beginning
If (maxID.CursorType > 0) Then
maxID.MoveFirst
Else
maxID.Requery
End If
' set the number of rows displayed on this page
If (maxID_numRows < 0 Or maxID_numRows > maxID_total) Then
maxID_numRows = maxID_total
End If
' set the first and last displayed record
maxID_first = 1
maxID_last = maxID_first + maxID_numRows - 1
If (maxID_first > maxID_total) Then
maxID_first = maxID_total
End If
If (maxID_last > maxID_total) Then
maxID_last = maxID_total
End If
End If
%>
Dealers - Fleet Technologies
