Ranmod.. 5 poster fra DB

Hejsa,

Jeg skal ha\' hentet 5 tilfældige poster ud af en DB, og den samme post må ikke forekomme mere end én gang.

Jeg har rodet lidt frem og tilbage men sidder fast, er der nogen der kan hjælpe?

<%

strSQL = \"SELECT * FROM tblNyhed\"
set rsKalender=Server.Createobject(\"ADODB.Recordset\")
rsKalender.open strSQL, conn, 3, 1

slut = int(rskalender.recordcount)

Dim ArrayID(10000)
a = 0
Do while not rsKalender.Eof
    ArrayID(a) = int(rsKalender(\"ID\"))
    a = a + 1
    rsKalender.movenext
loop

Add = True
Dim ArrayAbe(10000)

Randomize

c=0
Do While not c = 5
    Udvalg = Int(Rnd*(slut-1))
    For e = 0 to 4
        If Udvalg = ArrayAbe(e) Then
            Add = False
            c = c - 1
        End if
    Next
    If add = True Then
        ArrayAbe(c) = ArrayID(Udvalg)
    End if
    Add = True
    c = c + 1
Loop

For x = 0 TO 4
    strSQL = \"SELECT vcOverskrift FROM tblNyhed WHERE ID=\"&int(ArrayAbe(x))
    set rsAbe = conn.execute(strSQL)
    Response.Write rsAbe(\"vcOverskrift\")&\"<br>\"
next

%>