<%filecontatore= server.MapPath("/stats/contatore.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set apro = fs.OpenTextFile(filecontatore) quanti = Clng(apro.ReadLine) quanti = quanti + 1 apro.close Set apro = fs.CreateTextFile(filecontatore,True) apro.WriteLine(quanti) apro.Close%>document. write ("<% =quanti %>")