Problema con un application utenti......

[diegoctn]

Ragazzi ho nel global.asa questa application:

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
	'Imposta a 0 il numero di utenti quando parte il servizio server
Session.TimeOut=3	
Application("ActiveUsers") = 0
End Sub
Sub Session_OnStart
	 
	Session("Start") = Now
	'Incremento il numero di utenti all'inizio di una nuova sessione
	Application.Lock
	Application("ActiveUsers") = Application("ActiveUsers") + 1
	Application.UnLock
End Sub
Sub Session_OnEnd
	'Decremento il numero di utenti alla fine di ogni sessione
	Application.Lock
	Application("ActiveUsers") = Application("ActiveUsers") - 1
	Application.UnLock
End Sub

E nella pagina di accesso questo codice associato all'immagine:

<%
valore=CInt(Application("ActiveUsers"))
response.write ("[img][/img]")
%>

.

Il problema è che mi incrementa gli uteni ma non li decrementa. Avete dei consigli? Grazie ragazzi.