ASP.Net/Server/Application Event

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

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

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