Mega Code Archive
Get variables from global asax
<![CDATA[
<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
lblAppName.Text = Application("ApplicationName")
lblAppName.ForeColor = System.Drawing.Color.FromName _
(Application("FontColor"))
lblMessage.ForeColor = System.Drawing.Color.FromName _
(Application("FontColor"))
End Sub
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
lblMessage.Text = FormatCurrency(txtOrderTotal.Text * _
Application("ShippingCharge"))
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Coding the Application_OnStart Event</TITLE>
</HEAD>
<form runat="server">
<asp:label
id="lblAppName"
font-size="14"
runat="server"
/>
<BR><BR>
<asp:label
id="lblMessage"
runat="server"
text="Enter your order total to
see the shipping charge"
/>
<BR><BR>
<asp:textbox
id="txtOrderTotal"
columns="25"
maxlength="30"
runat=server
/>
<BR><BR>
<asp:button
id="butOK"
text=" OK "
onclick="SubmitBtn_Click"
runat="server"
/>
</Form>
</BODY>
</HTML>
<%--
<%@ Import Namespace="System.Diagnostics" %>
<%@ Import Namespace="System.Data.OLEDB" %>
<SCRIPT LANGUAGE="VB" RUNAT="Server">
Sub Application_OnStart()
Application("TaxRate") = 0.5125
Application("appConn") = New OleDbConnection( _
"PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" & Server.MapPath _
("EmployeeDatabase.mdb;"))
Application("ApplicationName") = "My Site"
Application("FontColor") = "Red"
Application("ShippingCharge") = .03
End Sub
Sub Application_OnEnd()
' Dim MyLog as New EventLog
' MyLog.Log = "Application"
' MyLog.Source = "My Test ASP.NET Application"
' MyLog.WriteEntry("The application ended at " _
' & Now() & ".")
End Sub
Sub Session_OnStart()
Application("SessionStarts") = Application("SessionStarts") + 1
Session.TimeOut = 1
' Session("TheEventLog") = New EventLog
' Session("TheEventLog").Log = "Application"
' Application.Lock
Application("TotalUsers") = Application("TotalUsers") _
+ 1
Application.Unlock
'If Len(Session("WhenEntered")) = 0 Then
' Response.Redirect("welcome.aspx")
' Session("WhenEntered") = Now()
'End If
End Sub
Sub Session_OnEnd()
Dim MyLog as New EventLog
MyLog.Log = "Application"
MyLog.Source = "A session that started on " _
& Session("WhenEntered") & " ended at " _
& Now()
Application("SessionStops") = _
Application("SessionStops") + 1
End Sub
'Sub Application_Error(Sender as Object, e as EventArgs)
' Response.Redirect("errorshappen.aspx")
'End Sub
</SCRIPT>
--%>
EmployeeDatabase.zip( 10 k)
]]>