ASP onclick counter - tæller

<%   
   
    'Denne side sender videre til linket, og opdatere tælleren.   
       
    Set objConn = Server.CreateObject ("ADODB.Connection")
    Set objRec2 = Server.CreateObject ("ADODB.Recordset")
    strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("db.mdb")

    objConn.Open strconnect
   
    ID = Request.QueryString("id")
   
    objRec2.Open "Tlinks", objConn, 0, 2, 2
   
    objRec2.Filter = "ID = " & ID
   
    objRec2("LinkHits") = objRec2("LinkHits") + 1
    objRec2.Update
    Response.Redirect(""& objRec2("Link") &"")

    objRec2.Close
    Set objRec2 = Nothing
    objConn.Close
    Set objConn = Nothing
%>

Kræver måske lidt kommetare, du kalder denne side f.eks goto.asp

i tabellen Tlinks i din database ligger du de forskellige sider der kan redirectes til,
Så kalder du linket med goto.asp?id=x