Bu kodun çalışabilmesi için global.asa dosyası ana Klasöre kopyalanmak zorundadır.

Sub Application_OnStart
Application("ZiyaretciSayisi") = 0
End Sub

Sub Session_OnStart
Application.Lock
Application("ZiyaretciSayisi") = Application("ZiyaretciSayisi") + 1
Application.UnLock
End Sub

Sub Session_OnEnd
Application.Lock
Application("ZiyaretciSayisi") = Application("ZiyaretciSayisi") - 1
Application.UnLock
End Sub

Yapılması gereken bir diğer işlem .asp sayfalarında EnableSessionState yönergesi false olarak yerleştirilmemelidir.