Conta click con file

Un semplice contatore di click che memorizza tutti i dati in un file ti testo:

<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") ) 
%>