<% dim myweb dim lun dim referer myweb="http://www.eri.it" lun=len(myweb) referer=request.servervariables("HTTP_REFERER") Set Fil=CreateObject("Scripting.FileSystemObject") Set inf=Fil.OpenTextFile(Server.MapPath("counter.txt"),1,true) testo=inf.ReadLine() inf.Close testo=testo+1 Set out=Fil.CreateTextFile(Server.MapPath("counter.txt"),true) out.WriteLine(testo) out.Close Set out=Nothing Set Fil=Nothing %> document.write('

<% response.write(testo) %>