<a href="contaclick.asp?codice=contatore&url=http://www.link_alla_pagina.com">Clicca qui</a>
<%
MyFile = Server.MapPath( Request.Querystring ("codice") &".txt" )
'il file in cui sono salvati i risultati è contatore.txt
Set FileObject = CreateObject("Scripting.FileSystemObject")
on error resume next
Set InStream = FileObject.OpenTextFile(MyFile, 1, true)
totali = CInt(Instream.ReadLine) + 1
Instream.Close
set instream = Nothing
Set OutStream = FileObject.OpenTextFile(MyFile, 2, true)
Outstream.WriteLine totali
Outstream.Close
Set OutStream = Nothing
set FileObject = Nothing
Response.Redirect ( Request.QueryString("url") )
%>