<%
' Passer à l'enregistrement aléatoire - Extension de Steven Jones
Si ce n'est pas le cas (nom du jeu d'enregistrements.bof et nom du jeu d'enregistrements.eof) Alors
' remet le curseur au début
Si (RecordSetName.CursorType > 0) Alors
Nom du jeu d'enregistrements.MoveFirst
Autre
Nom du jeu d'enregistrements. Requête
Fin si
Nom du jeu d'enregistrements_totalrn = -1
RecordsetName_totalrn = RecordsetName.RecordCount 'ne fonctionne que sur certains jeux d'enregistrements, mais beaucoup plus rapidement
If (recordsetname_totalrn = -1) Then ' et si cela n'a pas fonctionné, nous devons quand même compter les enregistrements.
' compter le nombre total d'enregistrements en parcourant le jeu d'enregistrements
Nom du jeu d'enregistrements_totalrn=0
Tandis que (pas de nom de jeu d'enregistrement.EOF)
nom du jeu d'enregistrements_totalrn = nom du jeu d'enregistrements_totalrn + 1
Nom du jeu d'enregistrements.MoveNext
Wende
' remet le curseur au début
Si (RecordSetName.CursorType > 0) Alors
Nom du jeu d'enregistrements.MoveFirst
Autre
Nom du jeu d'enregistrements.Requery
Fin si
Fin si
" Maintenant, faites les derniers ajustements et passez à l'enregistrement aléatoire.
nom du jeu d'enregistrements_totalrn = nom du jeu d'enregistrements_totalrn - 1
Si recordsetname_totalrn > 0 Alors
Randomiser
Nom du jeu d'enregistrements.Move Int((nom du jeu d'enregistrements_totalrn + 1) * Rnd)
Fin si
Fin si
" C'est fait ; vous devez toujours rechercher un jeu d'enregistrements vide avant d'afficher les données.
%>