<% filecontatore= server.MapPath("/public/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 %>")