ASPBlogBrainOrdure/app/views/Categories/index.asp

<div class="d-flex align-items-center justify-content-between mb-4">
  <div>
    <h1 class="h3 mb-1">Categories</h1>
    <p class="text-muted mb-0">Browse post categories from ASPBlogBrainOrdure.</p>
  </div>
  <a class="btn btn-primary" href="/categories/new">New Category</a>
</div>

<%
Dim categoryIter, categoryItem
Set categoryIter = categories.Iterator()

If categories.Count = 0 Then
%>
  <div class="alert alert-secondary">No categories are available yet.</div>
<%
Else
%>
  <div class="row gy-3">
    <%
    Do While categoryIter.HasNext
        Set categoryItem = categoryIter.GetNext()
    %>
      <div class="col-12">
        <article class="card shadow-sm">
          <div class="card-body">
            <h2 class="h5 mb-2">
              <a href="/categories/<%= Server.URLEncode(CStr(categoryItem.CategoryID)) %>" class="text-decoration-none">
                <%= H(categoryItem.Name) %>
              </a>
            </h2>
            <p class="text-muted mb-3"><%= H(categoryItem.Description) %></p>
            <a class="btn btn-sm btn-outline-primary" href="/categories/<%= Server.URLEncode(CStr(categoryItem.CategoryID)) %>">View</a>
          </div>
        </article>
      </div>
    <%
    Loop
    %>
  </div>
<%
End If
%>