Blog Kategori:
Dreamweaver ile çalışıyorsanız ve ASP'de rastgele MS Access'ten veri çekmek istiyorsanız aşağıdaki kodları kullanabilirsiniz...
<%
' Moving to random record - Steven Jones' Extension
If Not(Recordset1.bof and Recordset1.eof) Then
' reset the cursor to the beginning
If (Recordset1.CursorType > 0) Then
Recordset1.MoveFirst
Else
Recordset1.Requery
End If
Recordset1_totalrn = -1
Recordset1_totalrn = Recordset1.RecordCount ' ony works on some recordsets, but much faster
If (Recordset1_totalrn = -1) Then ' and if it didn't work, we still have to count the records.
' count the total records by iterating through the recordset
Recordset1_totalrn=0
While (Not Recordset1.EOF)
Recordset1_totalrn = Recordset1_totalrn + 1
Recordset1.MoveNext
Wend
' reset the cursor to the beginning
If (Recordset1.CursorType > 0) Then
Recordset1.MoveFirst
Else
Recordset1.Requery
End If
End If
' now do final adjustments, and move to the random record
Recordset1_totalrn = Recordset1_totalrn - 1
If Recordset1_totalrn > 0 Then
Randomize
Recordset1.Move Int((Recordset1_totalrn + 1) * Rnd)
End If
End If
' all done; you should always check for an empty recordset before displaying data
%>