Steelco. All right reserved. - Ala Data System -  Risoluzione Consigliata 1024 X 768
<% dim miosito,lun,referer ' qui sotto dobbiamo inserire il nome completo del nostro sito miosito="http://www.steelco.it/default.asp" 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 %>

Visite: <%=testo%>

Per visualizzare la pagina correttamente scarica il Plug-in di Flash clicca qui