<% 'codice per generare il numero dei visitatori dim miosito,lun,referer ' qui sotto dobbiamo inserire il nome completo del nostro sito miosito="http://www.vetreriacasalotti.it" lun=len(miosito) 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(miosito,lun) then testo=testo+1 session("visitato")="si" end if Set out=Fil.CreateTextFile(Server.MapPath("contatore.txt"),true) out.WriteLine(testo) out.Close Set out=Nothing Set Fil=Nothing %>