Vis tilfældig/random entry fra Access database

Hej

Jeg har brug for et script der viser et tilfældigt entry fra en access database, og fundet dette hos opfinderen.dk (tak for det):
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("Driver={MicroSoft Access Driver (*.mdb)};DBQ=c:\mappe1\mappe2\database.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select * From Tabel"
rs.Open SQL, Conn, 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

Response.Write rs("Felt")
%>
Det virker fint hver gang man refresher browseren, men hvis man kommer ind på siden flere gange, så skifter det ikke. Heller ikke selvom jeg lukker browseren ned og går ind på siden igen. Kan dette tilrettes, eller er der en der har et andet script?

Hilsen

Kim
http://www.svinget.com