<%
dim miosito,lun,referer
miosito="http://www.miosito.it"
lun=len(miosito)
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
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("counter.txt"),true)
out.WriteLine(testo)
out.Close
Set out=Nothing
Set Fil=Nothing
response.write testo
%>

Per visualizzare i visitatori, puoi, come ho fatto io mettere il codice in un file a parte e richiamarlo con un INCLUDE.
<!--#include file="counter.asp"-->