I click vengono salvati in un database.
Il database, messo nella root, ha un campo ID (contatore) ed uno click (numerico).

<%
database = "click.mdb"
strConn = "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & server.mappath(database)
SQL = "INSERT INTO click (count) values(1) WHERE ID = " & request.querystring("codice")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, strConn
response.redirect ( Request.Querystring("url") )
%>