Imports System.Web
Imports System.Web.SessionState
Public Class Global Inherits System.Web.HttpApplication
Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
Dim myEventLog As System.Diagnostics.EventLog
Dim ex As Exception = Server.GetLastError()
myEventLog = New System.Diagnostics.EventLog()
myEventLog.Log = "Application"
myEventLog.Source = "Default"
myEventLog.WriteEntry(ex.ToString())
End Sub
End Class