<%@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 - Waar vind u ons?

Terug naar Homepage
Productoverzicht
Waar vindt
u ons?
Nieuwsbrief
Leeftijdsgroepen
& Speelgoedtips
Geboortelijsten
Links
Sitemap

 

LINKS

Geniet ook, zoals 'Verantwoord Speelgoed', van een rustgevende vakantie bij Mi-René

Schrijf ons op
 info@verantwoordspeelgoed.be

 

 Kortrijksesteenweg 280
BE-9000 Gent

Tel. +32 09 221.34.08
Fax.+32 09 220.67.22
Cachet Web Design