Imports System
Partial Class Admin_Admin
    Inherits System.Web.UI.MasterPage

    

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("AdminID") Is Nothing Then
            Response.Redirect("AdminLogin.aspx?sesn=expire")
            Exit Sub
        End If
        If Not IsPostBack Then
            'Button1.Style.Add("display", "none")
            'Button1.Attributes.Add("onclick", "return setTimer();")

            'Dim s As SessionState.HttpSessionState
            'Dim s1 As SessionState.HttpSessionState
            's = Session
            's1 = Session("adminid")

            'Session("Test") = "Testing"

            'Dim hs As HttpSessionState
            'hs.

            ''s1.Timeout = 1
            'Session.Timeout = 1

            If Session("AdminID") = Nothing Then
                Response.Redirect("AdminLogin.aspx")
            End If
        End If
        'Button1.Attributes.Add("onclick", "return Test();")
    End Sub

    'Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    '    'Session.Abandon()
    'End Sub
End Class