Banner rotation, undgå gentagelser

Jeg har siddet det meste af eftermiddagen og aftenen og rodet med det her script, downloaded fra netcoders.dk. Der er ingen problemer med selve scriptet, men jeg vil gerne have at det på en eller anden måde forhindres at den samme banner kan vises flere gange. Kom venligst ikke med forslag om at skifte til et andet banner-system, jeg har fundet mange andre der sikkert er både bedre og mere omfattende, men nu vil jeg altså ha\' lavet det her script så jeg kan bruge det. BASTA! :)

<%
  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=\'http://\" & Record(\"http\") & \"\'><img src=\'\" & Record(\"banner\") & \"\' alt=\'\" & Record(\"info\") & \"\' border = \'0\'></a>\"
  end function

  \' *******************************************************
  \' * Vælg den connection type der passer dig bedst :-)  *
  \' *******************************************************

  \' *******************************************************
  \' * DSN, bruger dsn = testdb der peger på banner.mdb    *
  \' *******************************************************
  \' Set Rs = Server.CreateObject(\"ADODB.Connection\")
  \' Rs.Open \"DSN=testdb;uid=;pwd=\"

  \' *******************************************************
  \' * DSN Less, banner.mdb i samme katalog som banner.asp *
  \' *******************************************************
  Set Rs = Server.CreateObject(\"ADODB.Connection\")
  DBPath = \"DBQ=\" & server.mappath(\"banner.mdb\")
  Rs.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

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

  Ialt = Record(\"found\")

  Sql = \"Select * from T_Banner\"
  Set Record =  Rs.Execute(Sql)

  \' *******************************************************
  \' * Her kan man selv sætte hvor mange bannere man      *
  \' * ønsker, kald show() X antal gange, samt hvordan  *
  \' * disse skal placeres.                                *
  \' *******************************************************
  Response.Write \"<center>\"
  Show()
  Response.Write \"&nbsp;&nbsp;&nbsp;\"
  Show()
%>