Application.Lock ' update current session count intCount = CInt(Application("applicationCount")) + 1 Application("applicationCount") = intCount Application.UnLock /body>