UserCount

<%
dim miosito,lun,referer
'qui sotto dobbiamo inserire il nome completo del nostro sito

miosito="
http://www.miosito.com"lun=len(miosito)referer=request.servervariables("HTTP_REFERER")Set <http://www.miosito.com> 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
response.write "Numero visite:"&testo
%>
'Naturalmente si deve creare anche un file di testo di nome

'"contatore.txt" contenente un numero.