opdatere celle med +1

Hej eksperter...

jeg er ved at lave et bannersystem, men det vil sgu ikke som jeg vil ( desvære )

jég har det med klik til at virke, men nå jeg i slutningen af min kode vil ligge en til en celle, skaber den sig.

koden er her:

<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("banner.mdb")
If Request.QueryString("id") <> "" Then
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM bannere WHERE (ID = " & Request.QueryString("id") & ")"
    rs.Open strSQL, myConn, 1, 3
    If Not (rs.BOF Or rs.EOF) Then
        rs("klik") = rs("klik") + 1
      strURL = rs("URL")
        rs.Update
        rs.Close
        myConn.Close
        Set rs = Nothing
        Set myConn = Nothing
        Response.Clear
        Response.Redirect(strURL)
        myconn.Close
        Set myconn = nothing
    End If
End If
%>
<%
Dim vis, Rs, DBPath, Ialt, sql, Record, RandNum, i
Function Show()
Randomize
RandNum = Int(Rnd * Ialt) + 1
Record.MoveFirst
For i = 1 to RandNum - 1
Record.MoveNext
next
Response.Write "<a href='banner.asp?id=" & Record("id") & "' target='_blank'><img src='" & Record("banner") & "' alt='" & Record("info") & "' border = '0' class='ramme'></a>"
end function

Set Rs = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("banner.mdb")
Rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("banner.mdb")
Sql = "Select count(*) as Found from Bannere"
Set Record = Rs.Execute(Sql)

Ialt = Record("found")

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

myconn.Close
Set myconn = nothing
%>
<%
Set Rs = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("banner.mdb")
Rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("banner.mdb")
fejlen ----> Sql = "Select * as Found from Bannere where id = " & Record("id")
Set Record = Rs.Execute(Sql)

        rs("eksponeringer") = rs("eksponeringer") + 1
        rs.Update
        rs.Close

%>
<p align="center"><% Response.Write show() %></p>