ASP.NET

Sub Session_Start()

       guestCount = Convert.ToInt32(Application("guestCount"))
       Application("guestCount") = guestCount + 1

 End Sub

 Sub Session_End()

       Application("guestCount") = guestCount - 1
       Session.Clear()

 End Sub

Dim m As HttpApplicationState = HttpApplicationState

If Not (Application("guestCount") Is Nothing) Then
lbl_OnlineUser_Count_Field.Text = Application("guestCount")
End If

function Sys$_Application$initialize() {
    /// <summary locid="M:J#Sys.Application.initialize" />
    if (arguments.length !== 0) throw Error.parameterCount();
    if(!this._initialized && !this._initializing) {
        this._initializing = true;
        window.setTimeout(Function.createDelegate(this, this._doInitialize), 0);
    }
}

function Sys$_Application$initialize() {
    /// <summary locid="M:J#Sys.Application.initialize" />
    if (arguments.length !== 0) throw Error.parameterCount();
    if(!this._initialized && !this._initializing) {
        this._initializing = true;
        var check, er, app = this;
        function init() { if (!app._initialized) app._doInitialize(); }

        var onload = function() {
            Sys.UI.DomEvent.removeHandler(window, "load", onload);
            init();
        }
        Sys.UI.DomEvent.addHandler(window, "load", onload);
        if (document.addEventListener) {
            try {
                document.addEventListener("DOMContentLoaded", check = function() {
                    document.removeEventListener("DOMContentLoaded", check, false);
                    init();
                }, false);
            }
            catch (er) { }
        }
        else if (document.attachEvent) {
            if ((window == window.top) && document.documentElement.doScroll) {
                var timeout, el = document.createElement("div");
                check = function() {
                    try {
                        el.doScroll("left");
                    }
                    catch (er) {
                        timeout = window.setTimeout(check, 0);
                        return;
                    }
                    el = null;
                    init();
                }
                check();
            }
            else {
                document.attachEvent("onreadystatechange", check = function() {
                    if (document.readyState === "complete") {
                        document.detachEvent("onreadystatechange", check);
                        init();
                    }
                });
            }
        }
    }
}

Yes, I know WebForms is no longer "cool", and I should have rewritten everything in the latest bleeding-edge pre-alpha CTP version of whatever was the last framework to come out of Redmond, but some of us have work to do!