Bestem Størrelsen

hvordan bestemmer jeg størrelsen af mit banner her er scripten, og på forhånd tak for hjælpen :o)

<%
  Response.Buffer = True

  Function Show()
    Randomize
    RandNum = Int(Rnd * Ialt) - 0
    Record.MoveFirst
    For i = 1 to RandNum - 0
      Record.MoveNext
    next
  Response.Write \"<center>\"
  end function

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

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

  Ialt = Record(\"found\")

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

  Response.Write \"<center>\"
  Show()
%>