Slumpa bilder

Hur gör jag så att det inte slumpas samma bild från databasen??
så här ser koden ut:

<%
  Response.Buffer = True

  Function Show()
    Randomize
    RandNum = Int(Rnd * Ialt) + 1
    Record.MoveFirst
    For i = 1 to RandNum - 1
      Record.MoveNext
    next 
    Response.Write "<a href='whois.asp?checkid=" & Record("id") & "'><img src='" & Record("bild") & "' alt='" & Record("username")  & Record("username") & "' border = '1' width= '65' height= '77'></a>"
  end function

   
  Set Rs = Server.CreateObject("ADODB.Connection")
  DBPath = "DBQ=" & server.mappath("Database/members.mdb")
  Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

  Sql = "Select count(*) as Found from members"
  Set Record =  Rs.Execute(Sql) 

  Ialt = Record("found")
 
  Sql = "Select * from members"
  Set Record =  Rs.Execute(Sql) 
%>

och jag skriver ut det med följande:

<%  Response.Write "<center>"
Show() %></td>
<%  Response.Write "<center>"
Show() %>
<%  Response.Write "<center>"%>
<%  Response.Write "<center>"
Show() %>

------------------
ASP är bäst fuck the rest!!!