[求助]Session的觸發事件

[cadmus]

sub Session_OnStart
Session.TimeOut = 20
Application.Lock
Application("Whos_Online")=Application("Whos_Online")+1
Application.Unlock
end sub
==
在開始的時候可以觸發沒錯..
但是當20分鐘到Session消失的時候後面這一段卻不會動作..
求救喔..
==
sub Session_OnEnd
Application.Lock
Application("Whos_Online")=Application("Whos_Online")-1
Application.Unlock
end sub