Vælge tilfældigt recordset.

Start med at finde antallet af records med count(*)

Antal = Count(*)

Derefter kan du lave en

Randomize
RandomTal = Int((Antal - 1 + 1) * Rnd + 1)

Når du så har hentet dine records så lave en Rs.MOVE(RandomTal)

Der er sikkert en nemmere måde at gøre det på, men dette er den metode jeg umiddelbart tænkte på.

Antal = Count(*)
Randomize
RandomTal = Int((Antal - 1 + 1) * Rnd + 1)
RS.MOVE(RandomTal)
-----------------
Den æder ikke stjernen, jeg er nybegynder!
Skal der stå noget andet end stjernetegnet???
/Rasmus

INPUT = "SELECT COUNT(Tabel.ID) AS AntalRecords FROM Tabel"
Set AntalRecords = Conn.Execute(INPUT)

RandomNumber = Int((AntalRecords("AntalRecords") - 1 + 1) * Rnd + 1)

Og så laver du din

AntalRecords.Move(RandomNumber)

Prøv at se om det ikke virker.

/Brian

Her har du et script der virker på en vilkårlig tabel


<%

Sub GenerateTable ( rs )
    response.write ("<table border=1>")
   
    ' feltnavnene udskrives
    for i = 0 to rs.fields.count - 1
        response.write("<b><TD>" + rs(i).Name + "</B></TD>")
    next
   
    ' udskriv de enkelte poster
    while not rs.EOF
        Response.Write("<TR>")
        for i = 0 to rs.Fields.Count - 1
                v = rs(i)
                if isNull(v) then v = "&nbsp;"
                Response.Write("<TD VAlign=top>" + CStr(v) + "</TD>")
        next
        rs.MoveNext
    wend
    Response.Write("</TABLE>")
End Sub
       
       
sConn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath(".") & "\Database.mdb"
'sConn = "DSN=test"
Set rs = Server.CreateObject("ADODB.Recordset")
tilslut = "SELECT * from TabelNavn"
rs.open tilslut, sConn

GenerateTable rs

%>

tak, det virker !!
/Rasmus