Health Monitoring in ASP.NET 2

Event Class

  

#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

You might also like...

Comments

Contribute

Why not write for us? Or you could submit an event or a user group in your area. Alternatively just tell us what you think!

Our tools

We've got automatic conversion tools to convert C# to VB.NET, VB.NET to C#. Also you can compress javascript and compress css and generate sql connection strings.

“There are 10 types of people in the world, those who can read binary, and those who can't.”