ASPBlogBrainOrdure/app/models/POBO_Posts.asp

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


Class POBO_Posts
    ' Public array of all property names
    Public Properties

    Private pBody
    Private pCategoryID
    Private pCreatedDate
    Private pIsPublished
    Private pPostID
    Private pPublishedDate
    Private pSlug
    Private pSummary
    Private pTitle
    Private pUpdatedDate

    Private Sub Class_Initialize()
        pBody = Null
        pCategoryID = 0
        pCreatedDate = #1/1/1970#
        pIsPublished = 0
        pPostID = 0
        pPublishedDate = #1/1/1970#
        pSlug = Null
        pSummary = Null
        pTitle = Null
        pUpdatedDate = #1/1/1970#
        Properties = Array("Body","CategoryID","CreatedDate","IsPublished","PostID","PublishedDate","Slug","Summary","Title","UpdatedDate")
    End Sub

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

    Public Property Get TableName()
        TableName = "Posts"
    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_Posts.Body", "Invalid value for Body: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get CategoryID()
        CategoryID = pCategoryID
    End Property

    Public Property Let CategoryID(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pCategoryID = CDbl(val)
        Else
            pCategoryID = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_Posts.CategoryID", "Invalid value for CategoryID: " & 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_Posts.CreatedDate", "Invalid value for CreatedDate: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get IsPublished()
        IsPublished = pIsPublished
    End Property

    Public Property Let IsPublished(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pIsPublished = CDbl(val)
        Else
            pIsPublished = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_Posts.IsPublished", "Invalid value for IsPublished: " & 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_Posts.PostID", "Invalid value for PostID: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get PublishedDate()
        PublishedDate = pPublishedDate
    End Property

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

    Public Property Get Slug()
        Slug = pSlug
    End Property

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

    Public Property Get Summary()
        Summary = pSummary
    End Property

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

    Public Property Get Title()
        Title = pTitle
    End Property

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

    Public Property Get UpdatedDate()
        UpdatedDate = pUpdatedDate
    End Property

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

End Class
%>