Código para registros aleatórios no conjunto de registros
<%
'MovingTorandomRecord-Stevenjones' Extensão
Ifnot (nome do conjunto de registros.
'RESETTHECURSORTOTHEBEGINNING
If (nome do registro -sset.cursortype> 0) então
RecordSet Name.movefirst
Outro
RecordSet Name.Requery
Endif
RecordSet name_totalrn = -1
RecordSet name_totalrn = registro -sset.RecordCount'onyWorkSonsomeReCordSets, butmuchfaster
If (conjunto de registros name_totalrn = -1) Então, e não serem trabalhos, westillHavetocountTheRecords.
CountThetoTalRecordsByiteratingThThTheRecordSet
RecordSet name_totalrn = 0
Enquanto (não é o nome do conjunto de registros.eof)
RecordSet name_totalrn = registro -sset name_totalrn+1
Nome do conjunto de registros.movenext
Wend
'RESETTHECURSORTOTHEBEGINNING
If (nome do registro -sset.cursortype> 0) então
RecordSet Name.movefirst
Outro
RecordSet Name.Requery
Endif
Endif
'NowDofinalAdjustments e MoveToterandamRecord
RecordSet name_totalrn = registro-sset name_totalrn-1
Se registrar conjunto name_totalrn> 0hen
Randomizar
RecordSet name.moveint ((RecordSet name_totalrn+1)*rnd)
Endif
Endif
'Alldone; Você deve vercaraNEMptyRecordSetBeForedIsplayingData
%>