<% set fs = createobject("scripting.filesystemobject") filepath = server.mappath("/public\home.txt") set logfile = fs.opentextfile(filepath,1) home = logfile.readline logfile.close set logfile = nothing set fs = nothing IF Session("Primaentrata")=0 Then Session("Primaentrata")=1 home = home + 1 data = Date() set fs = createobject("scripting.filesystemobject") filepath = server.mappath("/public\home.txt") set logfile = fs.opentextfile(filepath,2) logfile.writeline home logfile.writeline data logfile.close set logfile = nothing set fs = nothing END IF %>