ASPBlogBrainOrdure/app/models/POBO_Comments.asp

<%
' Auto-generated POBO for table [Comments]
' Generated on 5/2/2026 9:48:12 PM
' Generator: GenerateRepo.vbs v1.0
'
' Dependencies: core/helpers.asp (QuoteValue function)


Class POBO_Comments
    ' Public array of all property names
    Public Properties

    Private pAuthorEmail
    Private pAuthorName
    Private pBody
    Private pCommentID
    Private pCreatedDate
    Private pIsApproved
    Private pPostID

    Private Sub Class_Initialize()
        pAuthorEmail = Null
        pAuthorName = Null
        pBody = Null
        pCommentID = 0
        pCreatedDate = #1/1/1970#
        pIsApproved = 0
        pPostID = 0
        Properties = Array("AuthorEmail","AuthorName","Body","CommentID","CreatedDate","IsApproved","PostID")
    End Sub

    Public Property Get PrimaryKey()
        PrimaryKey = "CommentID"
    End Property

    Public Property Get TableName()
        TableName = "Comments"
    End Property

    Public Property Get AuthorEmail()
        AuthorEmail = pAuthorEmail
    End Property

    Public Property Let AuthorEmail(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pAuthorEmail = CDbl(val)
        Else
            pAuthorEmail = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_Comments.AuthorEmail", "Invalid value for AuthorEmail: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get AuthorName()
        AuthorName = pAuthorName
    End Property

    Public Property Let AuthorName(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pAuthorName = CDbl(val)
        Else
            pAuthorName = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_Comments.AuthorName", "Invalid value for AuthorName: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get Body()
        Body = pBody
    End Property

    Public Property Let Body(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pBody = CDbl(val)
        Else
            pBody = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_Comments.Body", "Invalid value for Body: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get CommentID()
        CommentID = pCommentID
    End Property

    Public Property Let CommentID(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pCommentID = CDbl(val)
        Else
            pCommentID = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_Comments.CommentID", "Invalid value for CommentID: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get CreatedDate()
        CreatedDate = pCreatedDate
    End Property

    Public Property Let CreatedDate(val)
        On Error Resume Next
        pCreatedDate = CDate(val)
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_Comments.CreatedDate", "Invalid value for CreatedDate: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get IsApproved()
        IsApproved = pIsApproved
    End Property

    Public Property Let IsApproved(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pIsApproved = CDbl(val)
        Else
            pIsApproved = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_Comments.IsApproved", "Invalid value for IsApproved: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get PostID()
        PostID = pPostID
    End Property

    Public Property Let PostID(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pPostID = CDbl(val)
        Else
            pPostID = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_Comments.PostID", "Invalid value for PostID: " & Err.Description
        End If
        On Error GoTo 0
    End Property

End Class
%>