<script LANGUAGE="VBScript" RUNAT="Server">                                 

     Sub Application_OnStart                                

       Session.Timeout=1                                

       Application.Lock                                

       Application("WhosOn") = 0                                

       Application.UnLock                                

     End Sub                                

                                

     Sub Session_OnStart                                

       Application.Lock                                

       Application("WhosOn") = Application("WhosOn") + 1                                

       Application.UnLock                                

     End Sub                                

                                

     Sub Session_OnEnd                                

       Application.Lock                                

       Application("WhosOn") = Application("WhosOn") - 1                                

       Application.UnLock                                

     End Sub                                

    </script>  