Aqui tienen el codigo!!!
Dentro del global.asa
Código:
Sub Session_OnStart
Session.Timeout = 10
Session("Start") = Now
Session("intentos") = 0
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
If application("fecha") = Date() Then
If Instr(Request.ServerVariables("REMOTE_ADDR"),"172.17.1")=False Then
if Instr(Request.ServerVariables("REMOTE_ADDR"),"150.187.96")=False then
application("contador")=application("contador")+1
end if
end if
application("visitas")=application("visitas")+1
Else
application("fecha") = Date()
application("visitas") = 0
end if
Application.UnLock
End Sub
Sub Session_OnEnd
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub
...Aqui falta la parte para que guarde el contador cuando se apaga la maquina...
Ya funciona, espero les sirva a unos cuantos !!!
Gracias a todos lo que participaron!!!!
P.S.L.P.S