Code für zufällige Datensätze im Datensatzsatz
<%
'MovingTorandomRecord-Stevenjones'extesion
Ifnot (Datensatz set name.bofand record set name.eof) dann
'ResettTheCursortotheiNning
If (recordset name.cursortype> 0) dann
Datensatzname.MoveFirst
Anders
Datensatzname.requery
Endif
Recordset name_totalrn = -1
Recordset name_totalrn = recordset name.RecordCount'onyWorksSomereCordsets, ButMuchfaster
If (Record Set name_totalrn = -1) then'AntifitDid'twork, WestillhaveTocountThereCords.
'CountthetotalRecordsByiterating ThroughthereCordset
Recordset name_totalrn = 0
While (nicht Datensatz set name.eof)
Recordset name_totalrn = recordset name_totalrn+1
Recordset name.Movenext
Wend
'ResettTheCursortotheiNning
If (recordset name.cursortype> 0) dann
Datensatzname.MoveFirst
Anders
Datensatzname.requery
Endif
Endif
'nowdofinalAdjustments und moveTotherandamrecord
Recordset name_totalrn = recordset name_totalrn-1
Wenn Datensatz set name_totalrn> 0Then
Randomisieren
Recordset name.moveInt ((recordset name_totalrn+1)*rnd)
Endif
Endif
'Alldone; yoShouldAlwaysCheckforanEmptyRecordsetBeForediSPlayingData
%>