Random posts fra recordset

hvad med at smide det ind i en funktion ?

Ja, men den må ikke komme ud med to ellers flere ens poster.

sorry \"to eller flere ens poster\"

prøv denne post:
http://www.eksperten.dk/spm/31825

det er vel det du søger?

Her kommer koden til andre med samme problem

Set Conn = Application(\"ConnectionObject\")
   
    \'Tæller samtlige
    antal = \"SELECT COUNT(ID) AS Antal FROM Users\"
    set rs = Conn.execute(antal)

    rs.movefirst
    antalposter = rs(\"antal\")
    count=0

    strSQL = \"SELECT Username, Description FROM Users\"
    set link = Conn.execute(strSQL)

    \'Findet et tilfældigt tal 5 gange
    dim Randnum(5)
    for i=1 to 5
    link.movefirst
    Randnum(i) = Random(antalposter,i)

    link.move randnum(i)
    Response.Write \"<tr><td><a href=\'\" & Link(\"Username\") & \"\'><b>\" & Link(\"Username\") & \"</b></a></td></tr>\"
        Response.Write \"<tr><td>\" & Left(Link(\"Description\"),50) & \"...</td></tr>\"
    next