<%
if session("visite")=0 then
file_contatore=server.mappath("/public/count.txt")
set nero=server.createobject("scripting.filesystemobject")
set leggi=nero.opentextfile(file_contatore,1,true)
visite=leggi.readline
leggi.close
visite=cint(visite)
visite=visite+1
session("visite")=visite
set scrivi=nero.opentextfile(file_contatore,2,true)
scrivi.write(visite)
scrivi.close
file_statistiche=server.mappath("/public/statistiche.txt")
set appendi=nero.opentextfile(file_statistiche,8,true)
tempo=now()
sistema_operativo=request.servervariables("HTTP_USER_AGENT")
referer=request.servervariables("HTTP_REFERER")
appendi.writeline("------------")
appendi.writeline("Visitatore n. "&visite)
appendi.writeline("Data e Ora visita "&tempo)
appendi.writeline("Provenienza "&referer)
appendi.writeline("Sistema operativo e browsers "&sistema_operativo)
appendi.close
else
visite=session("visite")
end if
%>
