Global.asa não funciona !!!

Aqui esta o código do global.asa<script LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStart Session.Timeout = 5 Application.Lock Application("activevisitors") = 0 Application.UnLock End Sub Sub Session_OnStart Application.Lock Application("activevisitors") = Application("activevisitors") + 1 Application.UnLock End Sub Sub Session_OnEnd Application.Lock Application("activevisitors") = Application("activevisitors") - 1 Application.UnLock End Sub</SCRIPT>Muito obrigado.