ASPBlogBrainOrdure/app/views/Posts/show.asp

<article class="card shadow-sm">
  <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>