ASPBlogBrainOrdure/app/repositories/CommentsRepository.asp

<%
' Auto-generated Repository for table [Comments]
' Generated on 5/2/2026 9:48:12 PM
' Generator: GenerateRepo.vbs v1.0
'
' Dependencies:
'   - core/lib.DAL.asp (DAL singleton for database access)
'   - core/lib.AutoMapper.asp (Automapper for object mapping)
'   - core/lib.Collections.asp (LinkedList_Class)
'   - core/lib.helpers.asp (KVUnzip, BuildOrderBy, QI, Destroy)


Class CommentsRepository_Class

    Public Function FindByID(id)
        Dim sql : sql = "Select [AuthorEmail], [AuthorName], [Body], [CommentID], [CreatedDate], [IsApproved], [PostID] FROM [Comments] WHERE [CommentID] = ?"
        Dim rs : Set rs = DAL.Query(sql, Array(id))
        If rs.EOF Then
            Err.Raise 1, "CommentsRepository_Class", RecordNotFoundException("CommentID", id)
        Else
            Set FindByID = Automapper.AutoMap(rs, "POBO_Comments")
        End If
        Destroy rs
    End Function

    Public Function GetAll(orderBy)
        Set GetAll = Find(Empty, orderBy)
    End Function

    Public Function Find(where_kvarray, order_string_or_array)
        Dim sql : sql = "Select [AuthorEmail], [AuthorName], [Body], [CommentID], [CreatedDate], [IsApproved], [PostID] FROM [Comments]"
        Dim where_keys, where_values, i
        where_values = Empty
        If Not IsEmpty(where_kvarray) Then
            KVUnzip where_kvarray, where_keys, where_values
            If Not IsEmpty(where_keys) Then
                sql = sql & " WHERE "
                For i = 0 To UBound(where_keys)
                    If i > 0 Then sql = sql & " AND "
                    sql = sql & " " & QI(where_keys(i)) & " = ?"
                Next
            End If
        End If
        sql = sql & BuildOrderBy(order_string_or_array, "[CommentID]")
        Dim rs : Set rs = DAL.Query(sql, where_values)
        Dim list : Set list = new LinkedList_Class
        Do Until rs.EOF
            list.Push Automapper.AutoMap(rs, "POBO_Comments")
            rs.MoveNext
        Loop
        Set Find = list
        Destroy rs
    End Function

    Public Function FindPaged(where_kvarray, order_string_or_array, per_page, page_num, ByRef page_count, ByRef record_count)
        Dim sql : sql = "Select [AuthorEmail], [AuthorName], [Body], [CommentID], [CreatedDate], [IsApproved], [PostID] FROM [Comments]"
        Dim where_keys, where_values, i
        where_values = Empty
        If Not IsEmpty(where_kvarray) Then
            KVUnzip where_kvarray, where_keys, where_values
            If Not IsEmpty(where_keys) Then
                sql = sql & " WHERE "
                For i = 0 To UBound(where_keys)
                    If i > 0 Then sql = sql & " AND "
                    sql = sql & " " & QI(where_keys(i)) & " = ?"
                Next
            End If
        End If
        sql = sql & BuildOrderBy(order_string_or_array, "[CommentID]")
        Dim rs : Set rs = DAL.PagedQuery(sql, where_values, per_page, page_num)
        If Not rs.EOF Then
            rs.PageSize     = per_page
            rs.AbsolutePage = page_num
            page_count      = rs.PageCount
            record_count    = rs.RecordCount
        End If
        Set FindPaged = PagedList(rs, per_page)
        Destroy rs
    End Function

    Public Function SearchTablePaged(columns_array, search_value, order_string_or_array, per_page, page_num, ByRef page_count, ByRef record_count)
        Dim sql : sql = "Select [AuthorEmail], [AuthorName], [Body], [CommentID], [CreatedDate], [IsApproved], [PostID] FROM [Comments]"
        Dim i, params()
        params = Empty
        If IsArray(columns_array) And UBound(columns_array) >= 0 Then
            sql = sql & " WHERE "
            ReDim params(UBound(columns_array))
            For i = 0 To UBound(columns_array)
                If i > 0 Then sql = sql & " OR "
                sql = sql & " " & QI(columns_array(i)) & " LIKE ?"
                params(i) = "%" & search_value & "%"
            Next
        End If
        sql = sql & BuildOrderBy(order_string_or_array, "[CommentID]")
        Dim rs : Set rs = DAL.PagedQuery(sql, params, per_page, page_num)
        If Not rs.EOF Then
            rs.PageSize     = per_page
            rs.AbsolutePage = page_num
            page_count      = rs.PageCount
            record_count    = rs.RecordCount
        End If
        Set SearchTablePaged = PagedList(rs, per_page)
        Destroy rs
    End Function

    Private Function PagedList(rs, per_page)
        Dim list : Set list = new LinkedList_Class
        Dim x : x = 0
        Do While (per_page <= 0 Or x < per_page) And Not rs.EOF
            list.Push Automapper.AutoMap(rs, "POBO_Comments")
            x = x + 1
            rs.MoveNext
        Loop
        Set PagedList = list
    End Function

    Public Sub AddNew(ByRef model)
        Dim sql : sql = "INSERT INTO [Comments] ([AuthorEmail], [AuthorName], [Body], [CreatedDate], [IsApproved], [PostID]) VALUES (?, ?, ?, ?, ?, ?)"
        DAL.Execute sql, Array(model.AuthorEmail, model.AuthorName, model.Body, model.CreatedDate, model.IsApproved, model.PostID)
        
        ' Retrieve the newly inserted ID
        On Error Resume Next
        Dim rsId : Set rsId = DAL.Query("SELECT @@IDENTITY AS NewID", Empty)
        If Err.Number <> 0 Then
            ' Fallback for Access databases
            Err.Clear
            Set rsId = DAL.Query("SELECT TOP 1 [CommentID] FROM [Comments] ORDER BY [CommentID] DESC", Empty)
        End If
        On Error GoTo 0
        
        If Not rsId.EOF Then
            If Not IsNull(rsId(0)) Then model.CommentID = rsId(0)
        End If
        Destroy rsId
    End Sub

    Public Sub Update(model)
        Dim sql : sql = "UPDATE [Comments] SET [AuthorEmail] = ?, [AuthorName] = ?, [Body] = ?, [CreatedDate] = ?, [IsApproved] = ?, [PostID] = ? WHERE [CommentID] = ?"
        DAL.Execute sql, Array(model.AuthorEmail, model.AuthorName, model.Body, model.CreatedDate, model.IsApproved, model.PostID, model.CommentID)
    End Sub

    Public Sub Delete(id)
        Dim sql : sql = "DELETE FROM [Comments] WHERE [CommentID] = ?"
        DAL.Execute sql, Array(id)
    End Sub

    Private Function RecordNotFoundException(ByVal field_name, ByVal field_val)
        RecordNotFoundException = "Comments record was not found with " & field_name & " = '" & field_val & "'."
    End Function

    Private Function QI(name)
        QI = "[" & Replace(CStr(name), "]", "]]") & "]"
    End Function

    Private Function BuildOrderBy(orderArg, defaultCol)
        Dim s : s = ""
        If IsEmpty(orderArg) Or IsNull(orderArg) Or orderArg = "" Then
            s = " ORDER BY " & defaultCol & " ASC"
        ElseIf IsArray(orderArg) Then
            Dim i : s = " ORDER BY "
            For i = 0 To UBound(orderArg)
                If i > 0 Then s = s & ", "
                s = s & QI(orderArg(i))
            Next
        Else
            s = " ORDER BY " & QI(orderArg)
        End If
        BuildOrderBy = s
    End Function
End Class

Dim CommentsRepository__Singleton
Function CommentsRepository()
    If IsEmpty(CommentsRepository__Singleton) Then
        Set CommentsRepository__Singleton = new CommentsRepository_Class
    End If
    Set CommentsRepository = CommentsRepository__Singleton
End Function
%>