3 random fra access tabel

SELECT TOP 3 * FROM tabel WHERE RND(id)

Den holder ikke helt, nu har jeg 5 poster i tabellen, og den udskriver KUN de 3 første poster i tabellen, de øvrige 2 vises aldrig ?

min kode

<%   
            Set rsProdukt= Conn.Execute("SELECT TOP 3 * FROM shop_produkt WHERE forside = true AND aktiv = true and RND(id)")
            if not rsProdukt.EOF then
            %>
                   
            <%
            Do until rsProdukt.eof
            %>
            <%=rsProdukt("Produktnavn")%><br>
            <%
            rsProdukt.movenext
            loop
           
           
            rsProdukt. close
            set rsProdukt= Nothing
            end if
            %>

Alle poster er true i Aktiv og i Forside

Access indbyggede random virker ikke specielt godt så man må ud i at lave lidt ekstra koden for at få den til at sortere posterne tilfædigt:

randomize
R=clng(100000*rnd)
SQL = "SELECT TOP 1 * FROM Tabel ORDER BY rnd(-(ID)*" & R & ")"



Så prøv at rette:

            Set rsProdukt= Conn.Execute("SELECT TOP 3 * FROM shop_produkt WHERE forside = true AND aktiv = true and RND(id)")


Til dette:

            randomize
            R=clng(100000*rnd)
            Set rsProdukt= Conn.Execute("SELECT TOP 3 * FROM shop_produkt WHERE forside = true AND aktiv = true ORDER BY rnd(-(ID)*" & R & ")")

Perfekt . tak ;)