Posto questo script:

<SCRIPT LANGUAGE=vbscript>
<!--
function scrivi(){
Set fso = CreateObject("Scripting.FileSystemObject")
contatore="contatore.txt"
if not fso.FileExists (contatore)then
fso.CreateTextFile (contatore)
Set OggFile = fso.GetFile (contatore)
Set OggTextStream = OggFile.OpenAsTextStream(2)
OggTextStream.WriteLine "0"
OggTextStream.Close
end if
Set OggFile = fso.GetFile (contatore)

Set OggTextStream1 = OggFile.OpenAsTextStream(1)
valore=OggTextStream1.ReadLine
OggTextStream1.Close

Set OggTextStream = OggFile.OpenAsTextStream(2)
OggTextStream.WriteLine cstr(cint(valore)+1)
OggTextStream.Close

}
//-->
</SCRIPT>

Richiamo la funzione scrivi con un link tipo: scrivi
E' tratto da un articolo trovato su questo sito ma non riesco a farlo funzionare e non trovo l'errore. Qualcuno può aiutarmi?