<%
Response.Buffer = 0
Response.Expires = 0
Set fs = CreateObject("Scripting.FileSystemObject")
Path = server.mappath("Public/CalcoloIci.txt")
Set a = fs.OpenTextFile(path)
conta = CInt(a.ReadLine)
conta = conta + 1
a.close
Set a = fs.CreateTextFile(path, True)
a.WriteLine(conta)
a.Close
%>
Servizi On Line ----------------------------------------------
