<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart()
Application("UtentiCollegati") = 0
End Sub

Sub Application_OnEnd()
Application("UtentiCollegati") = 0
Application("online") = ""

End Sub

Sub Session_OnStart()
' setta il timeout delle variabili di
' Sessione a 10 minuti
Session.Timeout = 10
' quando il visitatore entra (+1)
Application.Lock
Application("UtentiCollegati") = _
Application("UtentiCollegati") + 1
Application("online") = Application("online") & " " & Session("user")

Application.UnLock
End Sub

Sub Session_OnEnd()
' quando il visitatore esce (-1)
Application.Lock
Application("UtentiCollegati") = _
Application("UtentiCollegati") - 1
Application("online") = Replace( Application("online") & Session("user") & "" ,"")
Application.UnLock

End Sub
</SCRIPT>
E' giusto questo script, nel senso che è possibile dichiarare 2 application, come ho fatto io?