%@LANGUAGE="VBSCRIPT"%> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 Details_numRows = Details_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim Details_total Dim Details_first Dim Details_last ' set the record count Details_total = Details.RecordCount ' set the number of rows displayed on this page If (Details_numRows < 0) Then Details_numRows = Details_total Elseif (Details_numRows = 0) Then Details_numRows = 1 End If ' set the first and last displayed record Details_first = 1 Details_last = Details_first + Details_numRows - 1 ' if we have the correct record count, check the other stats If (Details_total <> -1) Then If (Details_first > Details_total) Then Details_first = Details_total End If If (Details_last > Details_total) Then Details_last = Details_total End If If (Details_numRows > Details_total) Then Details_numRows = Details_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (Details_total = -1) Then ' count the total records by iterating through the recordset Details_total=0 While (Not Details.EOF) Details_total = Details_total + 1 Details.MoveNext Wend ' reset the cursor to the beginning If (Details.CursorType > 0) Then Details.MoveFirst Else Details.Requery End If ' set the number of rows displayed on this page If (Details_numRows < 0 Or Details_numRows > Details_total) Then Details_numRows = Details_total End If ' set the first and last displayed record Details_first = 1 Details_last = Details_first + Details_numRows - 1 If (Details_first > Details_total) Then Details_first = Details_total End If If (Details_last > Details_total) Then Details_last = Details_total End If End If %> <% function evennr(num) if (Not CBool(num Mod 2)) then evennr = "#BDC9E1" else evennr = "#C9D6E8" end if end function %> <% function evennr2(num) if (Not CBool(num Mod 2)) then evennr2 = "#C7DAEA" else evennr2 = "#E3EBF4" end if end function %>