Randomize problemer...HASTER

Hej
Jeg udtrækker  nogle nyheder fra min db hvor jeg refererer over 3 tabeller med følgende kriterier:


strSQL = \"SELECT Bog.ID, Bog.Titel, Bog.Beskrivelse, Bog.ISBN, \"
strSQL = strSQL & \"Bog.BilledNavn, Bog.Pris, Bog.Sider, Bog.BogType, \"
strSQL = strSQL & \" tblEmneOrd.EmneOrd \"
strSQL = strSQL & \" FROM Bog, tblBogEmne, tblEmneOrd \"
strSQL = strSQL & \" WHERE Bog.ID = tblBogEmne.BogID AND \"
strSQL = strSQL & \" tblBogEmne.EmneOrdID = tblEmneOrd.EmneID AND \"
strSQL = strSQL & \" (tblEmneOrd.EmneOrd = \'Nyheder\') ORDER BY Bog.Titel\"
Set rsBooks = Server.CreateObject(\"ADODB.Recordset\")
rsBooks.Open strSQL, dbBooks, 3


I dette tilfælde giver det 16 resultater...

Jeg ønsker at vise et random udtræk, altså kun 1 tilfældig post af de 16.
Det volder mig lidt problemer...

Er der nogen der kan \'smelte\' min SQL sammen med nedenstående randomize??


INPUT = \"SELECT Count(Bog.ID) AS Count FROM Bog\"
Set CountBoger = dbMDBooks.Execute(INPUT)

INPUT = \"SELECT * FROM Bog\"
Set Titel = dbMDBooks.Execute(INPUT)

If CountBoger(\"Count\") > 0 Then
Randomize()
Move = Int((CountBoger(\"Count\") - 1 + 1) * Rnd + 1) - 1

Titel.Move Move
End If


*************
Mvh
M!chael