Ahi te va uno sencillito
--------------------------------------------
Eres el visitante no:<b>
<%
on error resume next
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath("asp_count.txt"))
counter = clng(act.readline)
if session("activo") <> "si" then
counter = counter + 1
end if
act.close
Set act = fso.CreateTextFile(server.mappath("asp_count.txt") , true)
act.WriteLine(counter)
act.Close
Response.Write "<font size=2 face=arial,verdana color=#333300>" & counter &"</font>"
session("activo") = "si"
%>
--------------------------------------------------------------
Lo que hace es guardar la informacion en un pequeño archivo de texto simple llamado asp_count.txt, mismo que debes tener en el mismo directorio donde este el archivo que use el contador.
Ademas usa una variable de sesion llamada "activo" para que no te este generando aumentos en el contador con un mismo usuario que este navegando por tu sitio, para usar esta funcion solo abrele una sesion que se llame activo y le das valor de "si" (este codigo lo hace por ti) a cada usuario que entre para que funcione como te digo
Espero te sirva
