questo codice mettilo nella home e fatti il file visite.txt con scritto 0 sulla prima riga

codice:
<% 
Set f = CreateObject("Scripting.FileSystemObject") 
Percorso = Server.MapPath("visite.txt") 
Set a = f.OpenTextFile(Percorso) 
conta_visite = cint(a.ReadLine) 
If Session("conta_visite") = 0 then 
Session("conta_visite") = conta_visite 
conta_visite = conta_visite + 1 
a.close 
Set a = f.CreateTextFile(Percorso, True) 
a.WriteLine(conta_visite) 
End If 
a.Close 
'Response.Write(""&conta_visite&"") 
%>