ASPBlogBrainOrdure/app/views/Posts/show.asp

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

    <h1 class="h2 mb-2"><%= H(post.Title) %></h1>

    <%
    Dim publishedText
    publishedText = ""
    If IsDate(post.PublishedDate) Then
        If CDate(post.PublishedDate) > #1/1/1970# Then
            publishedText = FormatDateTime(post.PublishedDate, vbLongDate)
        End If
    End If

    If Len(publishedText) > 0 Then
    %>
      <p class="text-muted"><%= H(publishedText) %></p>
    <%
    End If

    Dim postBody
    postBody = H(post.Body)
    postBody = Replace(postBody, vbCrLf, "<br>")
    postBody = Replace(postBody, vbCr, "<br>")
    postBody = Replace(postBody, vbLf, "<br>")
    %>

    <div class="fs-5 lh-lg"><%= postBody %></div>
  </div>
</article>

<!-- Comments -->
<section class="mt-2">
  <h2 class="h4 mb-3">Comments (<%= comments.Count %>)</h2>

  <% If comments.Count = 0 Then %>
    <p class="text-muted mb-4">No comments yet. Be the first to leave one below.</p>
  <% Else %>
    <%
    Dim commentIter, commentItem
    Set commentIter = comments.Iterator()
    Do While commentIter.HasNext
        Set commentItem = commentIter.GetNext()
    %>
    <div class="card shadow-sm mb-3">
      <div class="card-body">
        <div class="d-flex justify-content-between mb-2">
          <strong class="small"><%= H(commentItem.AuthorName) %></strong>
          <span class="small text-muted"><%= H(FormatDateTime(commentItem.CreatedDate, vbLongDate)) %></span>
        </div>
        <%
        Dim commentBody
        commentBody = H(commentItem.Body)
        commentBody = Replace(commentBody, vbCrLf, "<br>")
        commentBody = Replace(commentBody, vbCr, "<br>")
        commentBody = Replace(commentBody, vbLf, "<br>")
        %>
        <p class="mb-0"><%= commentBody %></p>
      </div>
    </div>
    <%
    Loop
    %>
  <% End If %>

  <!-- Comment form -->
  <div class="card shadow-sm mt-4">
    <div class="card-body">
      <h3 class="h5 mb-3">Leave a Comment</h3>
      <form method="post" action="/comments">
        <input type="hidden" name="PostID" value="<%= H(post.PostID) %>">
        <input type="hidden" name="PostSlug" value="<%= H(post.Slug) %>">
        <div class="mb-3">
          <label class="form-label" for="AuthorName">Name <span class="text-danger">*</span></label>
          <input class="form-control" type="text" id="AuthorName" name="AuthorName" required>
        </div>
        <div class="mb-3">
          <label class="form-label" for="AuthorEmail">Email <span class="text-muted small">(optional, not displayed)</span></label>
          <input class="form-control" type="email" id="AuthorEmail" name="AuthorEmail">
        </div>
        <div class="mb-3">
          <label class="form-label" for="Body">Comment <span class="text-danger">*</span></label>
          <textarea class="form-control" id="Body" name="Body" rows="4" required></textarea>
        </div>
        <button class="btn btn-primary" type="submit">Submit Comment</button>
        <p class="small text-muted mt-2 mb-0">Comments are reviewed before appearing.</p>
      </form>
    </div>
  </div>
</section>