<%
„Umstellung auf Zufallsaufzeichnung – Erweiterung von Steven Jones.“
Wenn nicht (Datensatzname.bof und Datensatzname.eof) Dann
' setzt den Cursor an den Anfang zurück
Wenn (RecordSetName.CursorType > 0) Dann
Recordset-Name.MoveFirst
Anders
Recordset-Name.Requery
Ende wenn
Recordset-Name_totalrn = -1
RecordsetName_totalrn = RecordsetName.RecordCount ' funktioniert nur bei einigen Recordsets, aber viel schneller
If (recordsetname_totalrn = -1) Then ' und wenn es nicht funktioniert hat, müssen wir die Datensätze trotzdem zählen.
' Zählen Sie die Gesamtzahl der Datensätze, indem Sie das Recordset durchlaufen
Recordset-Name_totalrn=0
While (Nicht Datensatzname.EOF)
Recordsetname_totalrn = Recordsetname_totalrn + 1
Recordset-Name.MoveNext
Wend
' setzt den Cursor an den Anfang zurück
Wenn (RecordSetName.CursorType > 0) Dann
Recordset-Name.MoveFirst
Anders
Recordset-Name.Requery
Ende wenn
Ende wenn
' Nehmen Sie nun die letzten Anpassungen vor und wechseln Sie zum Zufallsdatensatz
Recordsetname_totalrn = Recordsetname_totalrn - 1
Wenn Recordsetname_totalrn > 0, dann
Randomisieren
Recordset-Name.Move Int((Recordset-Name_totalrn + 1) * Rnd)
Ende wenn
Ende wenn
' Alles erledigt; Sie sollten immer nach einem leeren Datensatz suchen, bevor Sie Daten anzeigen
%>