Vælg tilfældig post

SELECT persons FROM persons ORDER BY RAND() LIMIT 0, 1

Function ShowJoke()
        Randomize
        RandNum = Int(Rnd * go("Show")) + 1
        rs.MoveFirst
            For i = 1 to RandNum - 1
                rs.MoveNext
            Next
        Response.Write("<center><img src=""img/smileys/smily" & rs("placering") &".gif""></center>" & "<p>" & Replace(rs("Joke"),vbCrLf, "<br>"))
    End Function

//>Rune

Denne SQL skulle virke til Access:

SQL = "SELECT TOP 1 * FROM Tabel ORDER BY Rnd(ID)"

Glemte lige at skrive at mit foreslag virker i mySQL

Jeg bruger nu følgende sætning:
Sql = "Select top 1 * From [min_tabel] where dato > now() Order by Rnd(Id)"

Den vælger den samme hver gang, sætter jeg en desc ind efter Rnd(Id) vælger den en anden. Nogen råd?

Sql = "Select * From [min_tabel] where dato > now() Order by Rnd(Id)"
?

//>Rune

Skod det virker sku ikke ... Så prøv sådan her:


Set rs = Server.CreateObject("ADODB.RecordSet")
Sql = "Select top 1 * From [min_tabel] where dato > now() Order by Rnd(Id)"
rs.Open SQL, Conn, 3, 1
rndMax = rs.RecordCount
Randomize
rndNumber = Int((RND * rndMax))  'Find et random nummer
rs.Move rndNumber 'Flyt til den valgte record

Response.Write rs("ID") 'udskriver her

rs.Close

Så virker det, tak for hjælpen.