Sitemizin ziyaretçilerini saymak için global.asa dosyasını kullanacağız. Referans olması için, global.asa dosyasını sayma uygulamamızı çalıştıracak şekilde basitçe yazalım.

Global.asa:

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

Sub Application_OnStart
        ' Sunucumuz başladığında ziyaretçi sayımızı sıfırlıyoruz
	Application("AktifZiyaretci") = 0
End Sub

Sub Session_OnStart
        ' Oturum süresini 20 dk. olarak belirliyoruz
        Session.Timeout = 20
        ' Oturum başlama zamanını belirliyoruz
        ' Oturumu başlattığımızdan emin olmak için kullanıyoruz
        Session("Start") = Now
        ' Aktif ziyaretçi sayısını yeni oturum açıldığında arttırıyoruz
        Application.Lock
               Application("AktifZiyaretci") = Application("AktifZiyateci") + 1
        Application.UnLock
End Sub

Sub Session_OnEnd
        ' Aktif ziyaretçi sayısını oturum kapatıldığında bir azaltıyoruz
        Application.Lock
               Application("AktifZiyaretci") = Application("AktifZiyateci") - 1
        Application.UnLock
End Sub
</SCRIPT>