Skrive til database

Hej Alle!

Jeg er i gang med, at sammensætte en enkelt bannerstyring og mangler nu kun "vist x antal" gange delen. Jeg har følgende script, og skal have indprogrammeret feltet count, der opdaterer databasen med +1 hver gang default.asp vises. Håber der er én, der vil hjælpe :)

--------------------

<%
  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='click.asp?ID=" & Record("ID") & "' target='_blank'><img src='" & Record("banner") & "' alt='" & Record("Beskrivelse") & "' border = '0'></a>"
  end function

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

--------------------

Rigtig god weekend