No dispara session_onend

[lpz]

Lo que intento hacer en este codigo es poner en vacio los elementos de un array, que deben cumplir una condicion, pero por ahora lo unico que quiero que haga es vaciar todo:

Sub Session_OnEnd

dim pArray
pArray=Application("paginas")

for b=1 to 100
pArray(b)=""
next

Application.Lock
Application("paginas")=pArray
Application.UnLock

End Sub

Pero no esta funcionando por algun motivo que desconozco hasta el momento.