Contatore usando le session

Questo semplice script permette di contare le visite tramite le session. Gli accessi vengono memorizzati in un file di testo:

<%
dim myweb
dim lun
dim referer 
myweb="http://www.myweb.com" 
lun=len(myweb) 
referer=request.servervariables("HTTP_REFERER") 
Set Fil=CreateObject("Scripting.FileSystemObject") 
Set inf=Fil.OpenTextFile(Server.MapPath("contatore.txt"),1,true) 
testo=inf.ReadLine() 
inf.Close 
Set inf=Nothing 
if session("visitato")<>"si" and left(referer,lun)<>left(myweb,lun) 
then 
testo=testo+1 
session("visitato")="si" 
end if 
Set out=Fil.CreateTextFile(Server.MapPath("counter.txt"),true) 
out.WriteLine(testo) 
out.Close 
Set out=Nothing 
Set Fil=Nothing 
response.write "Numero visite:"&testo 
%>

Nota: dove counter.txt è un file di testo messo nella root del sito.