ASP.NET

<%@ Application Language="VB" %><br />
<br />
<script runat="server"><br />
<br />
   <br />
    Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)<br />
        ' Code that runs on application startup<br />
    End Sub<br />
    <br />
    Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)<br />
        ' Code that runs on application shutdown<br />
    End Sub<br />
    <br />
        <br />
    Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)<br />
        ' Code that runs when an unhandled error occurs<br />
    End Sub<br />
<br />
    Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)<br />
        ' Code that runs when a new session is started<br />
        Session("Loggedin") = ""<br />
        Session.Timeout = 30<br />
        CheckLoggedIn()<br />
    End Sub<br />
    <br />
    ' Called when the request has been process by the Request Handler and <br />
    ' HttpSessionState is available [This is the key piece of code that forces <br />
    ' the user is login check with each page request]<br />
    Sub Application_OnPostRequestHandlerExecute()<br />
        CheckLoggedIn()<br />
    End Sub<br />
    <br />
    'Check that the user is logged in.<br />
    Sub CheckLoggedIn()<br />
        'If the user is not logged in and you are not currently on the Login Page.<br />
        If Session("LoggedIn") = "" And InStr(Request.RawUrl, "userLogin.aspx") = 0 Then<br />
            Server.Transfer("relogin.aspx?ReturnUrl=adminhome.aspx")<br />
        End If<br />
    End Sub<br />
    <br />
    <br />
<br />
    Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)<br />
        ' Code that runs when a session ends. <br />
        ' Note: The Session_End event is raised only when the sessionstate mode<br />
        ' is set to InProc in the Web.config file. If session mode is set to StateServer <br />
        ' or SQLServer, the event is not raised.<br />
        <br />
    End Sub<br />
       <br />
</script>