Share My Creation [Web] [Project Template] Pakai Server v6.00

Private Sub CreateCategoriesTable As Tag
    Dim table1 As Tag = HtmlTable.cls("table table-bordered table-hover rounded small")
    Dim thead1 As Tag = Thead.cls("table-light").up(table1)
    thead1.add(Th.sty("text-align: right; width: 50px").text("#"))
    thead1.add(Th.text("Name"))
    thead1.add(Th.sty("text-align: center; width: 120px").text("Actions"))
    Dim tbody1 As Tag = Tbody.init.up(table1)
    
    DB.SQL = Main.DBOpen
    DB.Table = "tbl_categories"
    DB.Columns = Array("id", "category_name AS name")
    DB.OrderBy = CreateMap("id": "")
    DB.Query
    For Each row As Map In DB.Results
        Dim tr1 As Tag = CreateCategoriesRow(row)
        tr1.up(tbody1)
    Next
    DB.Close
    Return table1
End Sub

#If Bundle
body1.script("$SERVER_URL$/assets/js/bootstrap.min.js")
body1.script("$SERVER_URL$/assets/js/htmx.min.js")
#Else
body1.cdnScript("https://cdn.jsdelivr.net/npm/bootstrap@5.3.8/dist/js/bootstrap.min.js", _
"sha384-G/EV+4j2dNv+tEPo3++6LCgdCROaejBqfUeNjuKAiuXbjrxilcCdDz6ZAVfHWe1Y")
body1.cdnScript("https://cdn.jsdelivr.net/npm/htmx.org@2.0.8/dist/htmx.min.js", _
"sha384-/TgkGk7p307TH7EXJDuUlgG3Ce1UVolAOFopFekQkkXihi5u/6OCvVKyz1W+idaz")
#End If