Health Monitoring in ASP.NET 2

  
#Region " Declarations "
  Public NotInheritable Class [Event]
        Dim _EventID As String
        Dim _EventTimeUtc As Date
        Dim _EventTime As Date
        Dim _EventType As String
        Dim _EventSequence As Decimal
        Dim _EventOccurrence As Decimal
        Dim _EventCode As Integer
        Dim _EventDetailCode As Integer
        Dim _Message As String
        Dim _ApplicationPath As String
        Dim _ApplicationVirtualPath As String
        Dim _MachineName As String
        Dim _RequestUrl As String
        Dim _ExceptionType As String
        Dim _Details As String
#End Region

#Region " Properties "

        Public Property EventID() As String
            Get
                Return _EventID
            End Get
            Set(ByVal value As String)
                _EventID = value
            End Set
        End Property

        Public Property EventTimeUtc() As Date
            Get
                Return _EventTimeUtc
            End Get
            Set(ByVal value As Date)
                _EventTimeUtc = value
            End Set
        End Property

        Public Property EventTime() As Date
            Get
                Return _EventTime
            End Get
            Set(ByVal value As Date)
                _EventTime = value
            End Set
        End Property

        Public Property EventType() As String
            Get
                Return _EventType
            End Get
            Set(ByVal value As String)
                _EventType = value
            End Set
        End Property

        Public Property EventSequence() As Decimal
            Get
                Return _EventSequence
            End Get
            Set(ByVal value As Decimal)
                _EventSequence = value
            End Set
        End Property

        Public Property EventOccurrence() As Decimal
            Get
                Return _EventOccurrence
            End Get
            Set(ByVal value As Decimal)
                _EventOccurrence = value
            End Set
        End Property

        Public Property EventCode() As Integer
            Get
                Return _EventCode
            End Get
            Set(ByVal value As Integer)
                _EventCode = value
            End Set
        End Property

        Public Property EventDetailCode() As Integer
            Get
                Return _EventDetailCode
            End Get
            Set(ByVal value As Integer)
                _EventDetailCode = value
            End Set
        End Property

        Public Property Message() As String
            Get
                Return _Message
            End Get
            Set(ByVal value As String)
                _Message = value
            End Set
        End Property

        Public Property ApplicationPath() As String
            Get
                Return _ApplicationPath
            End Get
            Set(ByVal value As String)
                _ApplicationPath = value
            End Set
        End Property

        Public Property ApplicationVirtualPath() As String
            Get
                Return _ApplicationVirtualPath
            End Get
            Set(ByVal value As String)
                _ApplicationVirtualPath = value
            End Set
        End Property

        Public Property MachineName() As String
            Get
                Return _MachineName
            End Get
            Set(ByVal value As String)
                _MachineName = value
            End Set
        End Property

        Public Property RequestUrl() As String
            Get
                Return _RequestUrl
            End Get
            Set(ByVal value As String)
                _RequestUrl = value
            End Set
        End Property

        Public Property ExceptionType() As String
            Get
                Return _ExceptionType
            End Get
            Set(ByVal value As String)
                _ExceptionType = value
            End Set
        End Property

        Public Property Details() As String
            Get
                Return _Details
            End Get
            Set(ByVal value As String)
                _Details = value
            End Set
        End Property
#End Region

End Class