Random med MySql

Jeg har prøvet:
<%
strSQL = "Select * From bruger"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open strSql, Conn, 3, 1
Fundet = false
    Do While Not Fundet
        rs.MoveFirst
        Randomize
        rs.Move(CInt(rs.RecordCount * rnd))
        If Not rs.EOF And Not rs.BOF Then
            Fundet = True
            id = rs("id")
            Response.Write id
        End If
    Loop
%>

men den viser bare det første id i databasen...

Ja eller bare:
strSQL = "SELECT ID FROM tabel ORDER BY RAND()"

Mange takker :-)

tak for point