4 forskellige

Jeg skal have 4 tilfældige, men forskellige varer trykket ud af en database og sat dem op i kolonner. Jeg bruger dette kode:
---------------
        <%
Set rstilbud1 = Server.CreateObject "ADODB.Recordset")
rstilbud1.Open "select * from produkter where vissomtilbud=true" , StrConn, adOpenStatic, adLockReadOnly
antal=rstilbud1.recordcount

Set rstilbud2 = Server.CreateObject "ADODB.Recordset")
rstilbud2.Open "select * from produkter where vissomtilbud=true" , StrConn, adOpenStatic, adLockReadOnly
antal=rstilbud2.recordcount

Set rstilbud3 = Server.CreateObject "ADODB.Recordset")
rstilbud3.Open "select * from produkter where vissomtilbud=true" , StrConn, adOpenStatic, adLockReadOnly
antal=rstilbud3.recordcount

Set rstilbud4 = Server.CreateObject "ADODB.Recordset")
rstilbud4.Open "select * from produkter where vissomtilbud=true" , StrConn, adOpenStatic, adLockReadOnly
antal=rstilbud4.recordcount

        if not rstilbud1.eof then
        t1=timer
        Randomize t1
        k1 = Int(RND * antal)
       
        if not rstilbud2.eof then       
        t2=timer
        Randomize t2
        k2 = Int(RND * antal)

        if not rstilbud2.eof then
        t3=timer
        Randomize t3
        k3 = Int(RND * antal)
       
        if not rstilbud4.eof then
        t4=timer
        Randomize t4
        k4 = Int(RND * antal)
       
        rstilbud1.move k1
        rstilbud2.move k2
        rstilbud3.move k3
        rstilbud4.move k4
       
        if not rstilbud1.eof then
        %>
-----------------
hvordan sikre jeg mig at k1,k2,k3,k4 aldrig er det samme og at igen at dem kommer til at referere til en post der ikke findes?