Venlig sjæl

Er der en venlig sjæl der kan så dette til kun at vise ET banner.

<%
  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()
%>