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

dove counter.txt è un file di testo messo nella root del sito.