Io ho bisogno di registrare IP di tutti gli utenti che entrano nel mio e contare quanti sono.
Se uso il seguente codice secondo voi funziona???

Sub Application_OnStart
Application("ActiveUsers") = 0
Application("ActiveUsersIP") = ""
End Sub

Sub Session_OnStart
' setta il timeout di default 10
Session.Timeout = 1
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
numero=0
numero=Application("ActiveUsers")*1
session("ute_blog")="
"&numero&"- "+ Request.ServerVariables("REMOTE_ADDR")
Application("ActiveUsersIP") = Application("ActiveUsersIP") + session("ute_blog")
Application.UnLock
End Sub

Sub Session_OnEnd
' quando il visitatore esce (-1)
Application.Lock
IndirizzoIP=session("ute_blog")
if (IndirizzoIP<>"") then
Application("ActiveUsersIP")=replace(Application(" ActiveUsersIP"),IndirizzoIP," ")
end if
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub
Vi ringrazio in anticio
ciao Fabio