Use Global.asax : global.asax « Development « ASP.Net

Use Global.asax
<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
    lblTitle.Text = Application("ApplicationName")
    lblTaxRate.Text = "Tax Rate: " & Application("TaxRate")
    lblSessionStarts.Text = "Session Starts: " _
        & Application("SessionStarts")
    lblSessionStops.Text = "Session Stops: " _
        & Application("SessionStops")
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE><% Response.Write(Application("ApplicationName")) %></TITLE>
</HEAD>
<BODY TEXT="black" LINK="darkred" VLINK="darkred" ALINK="red" LEFTMARGIN="40" TOPMARGIN="60">
<form runat="server">
<Font Face="Tahoma" Size="+1">
<asp:Label 
    id="lblTitle" 
    BorderWidth="7px"
    BorderStyle=9
    Width="90%"
    Font-Size="25pt"
    Font-Name="Arial"
    runat="server"
/>
<BR><BR>
<asp:Label
    id="lblTaxRate"
    runat="Server"
/>
<BR><BR>
<asp:Label
    id="lblSessionStarts"
    runat="Server"
/>
<BR><BR>
<asp:Label
    id="lblSessionStops"
    runat="Server"
/>
<BR>
</Font>
</Form>
</BODY>
</HTML>


<%-- Global.asax
<SCRIPT LANGUAGE="VB" RUNAT="Server">
Sub Application_OnStart
    Application("TaxRate") = 0.5125
    Application("ApplicationName") = "Sample Global.asax"
End Sub
Sub Application_OnEnd
    'code that runs when application ends
End Sub
Sub Session_OnStart
    Application("SessionStarts") = _
        Application("SessionStarts") + 1
    Session.TimeOut = 1
End Sub
Sub Session_OnEnd
    Application("SessionStops") = _
        Application("SessionStops") + 1
End Sub
</SCRIPT>



--%>
Related examples in the same category

Application start action