| <% 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 %> |