Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
        Dim SessionLoginName As String
        SessionLoginName = Session.SessionID +  "Logon" 
        Session(SessionLoginName) =  0 
    End Sub