Ayuda con un contador de visitas

[sjam7]

Intenta usando este contador, que en escencia es lo mismo:

activo = session("activo")
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 "VISITANTE: " & counter

session("activo") = "si"

'Sub LimpiaObj(objeto)
On Error Resume Next

If isObject(objeto) Then
If (objeto.State=1) Then 'comprueba si esta abierto
objeto.Close
End If

Set objeto = Nothing
End If
'End Sub


Solo que este genera una variable de session con la que, si esta activa te genera un hit en el contador, esto es para que un mismo visitante no te este haciendo hits mientras navega.

En cuanto al problema, hasta donde creo es que no llamabas a la funcion qe tenia los datos