ASP.Net/Development/global.asax
Application start action
<source lang="csharp">
//File: global.asax
<script language="VB" runat="server">
Sub Application_OnStart()
Application("CompanyTelephone") = "555 4321"
End Sub </script>
</source>
Use Global.asax
<source lang="csharp">
<%@ 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"> <asp:Label
id="lblTitle" BorderWidth="7px" BorderStyle=9 Width="90%" Font-Size="25pt" Font-Name="Arial" runat="server"
/>
<asp:Label
id="lblTaxRate" runat="Server"
/>
<asp:Label
id="lblSessionStarts" runat="Server"
/>
<asp:Label
id="lblSessionStops" runat="Server"
/>
</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>
--%>
</source>