ASPBlogBrainOrdure/app/views/Posts/show.asp

<%
Dim postHeroBackground, postHeroClass, publishedText, readTimeText
postHeroBackground = ExtractFirstImageSrc(post.Body)
postHeroClass = "masthead masthead-post"
If Len(postHeroBackground) > 0 Then
    postHeroClass = postHeroClass & " masthead-has-image"
End If

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

<header class="<%= postHeroClass %>"<% If Len(postHeroBackground) > 0 Then %> style="background-image: url('<%= H(postHeroBackground) %>')"<% End If %>>
  <div class="overlay"></div>
  <div class="container">
    <div class="row">
      <div class="col-lg-8 col-md-10 mx-auto">
        <div class="post-heading text-center">
          <div class="post-heading-kicker">Feature story</div>
          <h1><%= H(post.Title) %></h1>
          <% If Len(publishedText) > 0 Or Len(readTimeText) > 0 Then %>
            <div class="post-meta-inline justify-content-center">
              <span>By BrainOrdure</span>
              <% If Len(publishedText) > 0 Then %><span class="meta-sep">•</span><span><%= H(publishedText) %></span><% End If %>
              <% If Len(readTimeText) > 0 Then %><span class="meta-sep">•</span><span><%= H(readTimeText) %></span><% End If %>
            </div>
          <% End If %>
        </div>
      </div>
    </div>
  </div>
</header>

<div class="row">
  <div class="col-lg-7 col-md-9 mx-auto">
    <div class="mb-4">
      <a href="<%= PostsUrl() %>" class="small text-decoration-none">&larr; Back to posts</a>
    </div>

    <article class="post-preview post-body-preview">
      <div class="post-preview-content prose fs-5 lh-lg feature-dropcap"><%= RenderPostBody(post.Body) %></div>
    </article>

    <div class="mb-5">
      <a href="<%= PostsUrl() %>" class="btn btn-outline-primary">Back to posts</a>
    </div>

    <!-- Comments -->
    <section class="mt-5">
      <%
      Dim commentsCount, commentsLoadFailed
      commentsCount = 0
      commentsLoadFailed = False

      On Error Resume Next
      If IsObject(comments) Then commentsCount = comments.Count
      If Err.Number <> 0 Then
          commentsLoadFailed = True
          commentsCount = 0
          Err.Clear
      End If
      On Error GoTo 0
      %>
      <h2 class="post-title h4 mb-3">Comments (<%= commentsCount %>)</h2>

      <% If commentsLoadFailed Then %>
        <div class="alert alert-warning mb-4">Comments are temporarily unavailable.</div>
      <% ElseIf commentsCount = 0 Then %>
        <p class="text-muted mb-4">No comments yet. Be the first to leave one below.</p>
      <% Else %>
        <%
        Dim commentIter, commentItem
        Dim commentsIterFailed
        commentsIterFailed = False

        On Error Resume Next
        Set commentIter = comments.Iterator()
        If Err.Number <> 0 Then
            commentsIterFailed = True
            Err.Clear
        End If

        Do While Not commentsIterFailed And commentIter.HasNext
            Set commentItem = commentIter.GetNext()
            If Err.Number <> 0 Then
                commentsIterFailed = True
                Err.Clear
                Exit Do
            End If

            Dim commentDateText
            commentDateText = ""
            If IsDate(commentItem.CreatedDate) Then
                commentDateText = FormatDateTime(commentItem.CreatedDate, vbLongDate)
            End If
        %>
        <div class="comment-card mb-3">
          <div class="comment-card-body">
            <div class="d-flex justify-content-between mb-2">
              <strong class="small"><%= H(commentItem.AuthorName) %></strong>
              <span class="small text-muted"><%= H(commentDateText) %></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
        If Err.Number <> 0 Then
            commentsIterFailed = True
            Err.Clear
        End If
        On Error GoTo 0

        If commentsIterFailed Then
        %>
          <div class="alert alert-warning mb-4">Some comments could not be displayed.</div>
        <%
        End If
        %>
      <% End If %>

      <!-- Comment form -->
      <div class="comment-form-shell mt-4">
        <div class="comment-form-inner">
          <h3 class="h5 mb-3">Leave a Comment</h3>
          <form method="post" action="<%= CommentsUrl() %>">
            <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>
  </div>
</div>