Tilfældig fra database

her er et eksempel, som eagleeye engang skrev:

<%
'Opretter et object af typen recordset.
Set rs = Server.CreateObject("ADODB.RecordSet")
'SQL som hendter de record som skal vælges imellem
strSQL = "SELECT * FROM randomText"
'Åbner recordsetet. Det åbned med rs.Open da det understytter recordCount og move.
rs.Open strSQL, Conn, 3, 1
'rs.RecordCount indeholder antallet at records som er i recordset/databasen
rndMax = rs.RecordCount
'Kalder Randomize function som gør rnd bliver noget nyt hver gang.
Randomize
'Finder et tilføldig tal mellem 0 og RecordCount-1
rndNumber = Int((RND * rndMax)) 
'Flytter X antal poster frem til den som er tilfældigt udvalgt.
'Hvis tal = 0 er det den første reccord som udskriver
'Hvis tal = 1 er det den anden record som udskrives
rs.Move rndNumber 'Flyt til den valgte record

'Udskriv fra recordset'et
Response.Write rs("visDetteTekst")

rs.Close
Set rs = Nothing
%>

jamen det funker jo... :-)

Ved du hvordan man kommer til sidste rækker / første række i en database med

rs.sidsterække

og

rs.førsterække

nope... desvære ikke :-(