レコードセットのランダムレコードのコード
<％
'movingtorandomrecord-stevenjones'extension
ifnot（record set name.bofand record set name.eof）then
'リセットセクルソートアベギン
if（recordset name.cursortype> 0）then
Recordset name.movefirst
それ以外
Recordset name.requery
endif
Recordset name_totalrn = -1
Recordset name_totalrn = recordset name.RecordCount'onyworksonsomereCordsets、butmuchfaster
if（record set name_totalrn = -1）then'andifitdid not not、westillhavetocounttherecords。
'CountTheTotalRecordsbyiteratingThreaCordset
Recordset name_totalrn = 0
while（記録されていないname.eof）
RecordSet name_totalrn = Recordset name_totalrn+1
Recordset name.movenext
ウェンド
'リセットセクルソートアベギン
if（recordset name.cursortype> 0）then
Recordset name.movefirst
それ以外
Recordset name.requery
endif
endif
'NowDofinal Adjustments、およびMovetotherandamRecord
RecordSet name_totalrn = Recordset name_totalrn-1
記録を設定した場合、name_totalrn> 0then
ランダム化
Recordset name.moveint（（recordset name_totalrn+1）*rnd）
endif
endif
'Alldone; Youは、undalwwayscheckforanemptyrecordset beforedisplayingdataです
％>