ASPBlogBrainOrdure/app/views/Categories/show.asp

<article class="card shadow-sm mb-4">
  <div class="card-body">
    <div class="mb-3">
      <a href="/categories" class="small text-decoration-none">&larr; Back to categories</a>
    </div>

    <h1 class="h2 mb-3"><%= H(category.Name) %></h1>
    <p class="fs-5 text-muted mb-4"><%= H(category.Description) %></p>

    <div class="d-flex flex-wrap gap-2">
      <a class="btn btn-outline-primary" href="/categories/<%= Server.URLEncode(CStr(category.CategoryID)) %>/edit">Edit Category</a>
      <form method="post" action="/categories/<%= H(category.CategoryID) %>/delete">
        <button class="btn btn-outline-danger" type="submit">Delete Category</button>
      </form>
    </div>
  </div>
</article>

<h2 class="h4 mb-3">Posts in this category</h2>

<% If categoryPosts.Count = 0 Then %>
  <div class="alert alert-secondary">No published posts in this category yet.</div>
<% Else %>
  <div class="row gy-3">
    <%
    Dim catPostIter, catPostItem
    Set catPostIter = categoryPosts.Iterator()
    Do While catPostIter.HasNext
        Set catPostItem = catPostIter.GetNext()
    %>
    <div class="col-12">
      <article class="card shadow-sm">
        <div class="card-body">
          <h3 class="h5 mb-1">
            <a href="/posts/<%= Server.URLEncode(CStr(catPostItem.Slug)) %>" class="text-decoration-none">
              <%= H(catPostItem.Title) %>
            </a>
          </h3>
          <% If Len(Trim(CStr(catPostItem.Summary))) > 0 Then %>
            <p class="text-muted mb-2 small"><%= H(catPostItem.Summary) %></p>
          <% End If %>
          <a class="btn btn-sm btn-outline-primary" href="/posts/<%= Server.URLEncode(CStr(catPostItem.Slug)) %>">Read</a>
        </div>
      </article>
    </div>
    <%
    Loop
    %>
  </div>
<% End If %>