Åben i nyt vindue

Hvor i denne tekst kna man skrive så bannerne åbner i et nyt vindue?


<%
  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("adresse") & "'><img src='" & Record("images") & "' alt='" & Record("navn") & "' border = '0'></a>"
  end function

 
  Set Rs = Server.CreateObject("ADODB.Connection")
  DBPath = "DBQ=" & server.mappath("ban-db.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)

  Response.Write "<center>"
  Show()

%>