ASP.Net/Server/Application Event

Application event: start, end and session event (VB.net)

   <source lang="csharp">

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

      </source>
   
  

<A href="http://www.nfex.ru/Code/ASPDownload/EmployeeDatabase.zip">EmployeeDatabase.zip( 10 k)</a>