Billede rotation

Hejsa..

Jeg har nogle billeder som jeg skal have til at skifte på min forside. Altså det man i moderne sprog kalder "Billede rotation". Jeg har en kode som ser sådan ud:

  <%
  Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/Database.mdb")
  Set rs = Server.CreateObject("ADODB.RecordSet")
  strSQL = "select * From Random"

    rs.Open strSQL, Conn, 3, 1

Do While Not Fundet
rs.MoveFirst
Randomize
rs.Move(int(rs.RecordCount * rnd))
If Not rs.EOF And Not rs.BOF Then
Fundet = True
End If
Loop
%> 
<center>
<img src="Billeder/<%=rs("Billede")%>">
</center>
<%
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
%>

Men jeg synes ikke rigtig at det går så godt med den. Altså den skifter ikke særlig tit (Altså det tit sådan der kommer 3 af det samme billede også 2 af nr. 2 billede) og så viser den kun to billeder.

Nogle der kan tyde koden og fotælle mig om det bare er mig eller om den virkelig kun skifter mellem to billeder og ikke specielt tit? Og hvis det ikke bare er mig så vil jeg gerne hører om der er nogle der kan hjælpe med at tilføje så den skifter lidt oftere og ikke bare til de samme to billeder. Selvfølgelig skal det være random men gerne lidt mere spredt.