<%
dim PathVisite, fso ,oggOpen, NumVisite, NumCifre, Cont, Cifra
'fase di lettura dati dal file visite.txt
PathVisite= server.MapPath("visite.txt")
set fso=server.CreateObject("scripting.filesystemobject")
set oggOpen =fso.OpenTextFile(PathVisite,1)
NumVisite = oggOpen.readline
NumVisite=NumVisite+1
set oggOpen=Nothing
'aggiornamento mediante salvataggio nel file
set oggOpen=fso.OpenTextFile(PathVisite,2)
oggOpen.write(NumVisite)
oggOpen.close
set oggOpen=Nothing
set fso=Nothing
%>
