Mega Code Archive

 

Categories / ASP.Net / Server

 

Application event

<%@ 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)