Verantwoord Speelgoed

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