ASP Banner Id

Hvordan skal koden være, vis jeg sætter Id på 3. Så skal den tag alt andet end Id 3.
Koden er:
<%
  Function Show()
    Randomize
    RandNum = Int(Rnd * Ialt) + 1
    Record.MoveFirst
    For i = 1 to RandNum - 1
      Record.MoveNext
    next
    Response.Write "" & Record("Javacode") & ""
    end function

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

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

  Ialt = Record("found")

  Sql = "Select * from Banner"
  Set Record =  Rs.Execute(Sql)
%>