<%
visita=Session("Visita")
MyFile = Server.MapPath("contatore.txt")
Set MyFileObj=Server.CreateObject("Scripting.FileSystemObject")
IF MyFileObj.FileExists(MyFile) THEN
Set MyTextFile=MyFileObj.OpenTextFile(MyFile,1,TRUE)
cifra=MyTextFile.ReadLine
intero=CInt(cifra)
MyTextFile.Close
IF not Visita="si" Then
Session("Visita")="si"
intero=intero+1
Set MyOutStream = MyFileObj.OpenTextFile(MyFile, 2, TRUE)
MyOutStream.WriteLine(intero)
MyOutStream.Close
END IF
Response.write(";Sei il visitatore numero " & intero & " ")
END IF
%>