hjælp klik tæller

er der en der kan hjælpe mig med at lave den her om til den gå på sql database, og så lige få rettet den til jeg tror der er et par små fejl

<%
option explicit
dim cn, rs, sql, id_link, url
id_link=request.querystring("id_link")
url=request.querystring("url")

' Dan forbindelse til db
set cn = server.createobject("adodb.connection")
cn.open application.contents("cnstr")

' Oprater klik
sql = "update tblink set antalklik=antalklik+1
sql = sql & "where id_link = " & id_link
cn.execute sql

' ryd op
cn.close
set cn = nothing

' send bruger videre
response.rediect url
%>