Add HTML post editor

core/helpers.asp

@@ -321,6 +321,25 @@ Function H(s)
     End If
 End Function
 
+Function RenderPostBody(ByVal body)
+    Dim raw
+    If IsNull(body) Or IsEmpty(body) Then
+        RenderPostBody = ""
+        Exit Function
+    End If
+
+    raw = CStr(body)
+    If InStr(1, raw, "<", vbTextCompare) > 0 And InStr(1, raw, ">", vbTextCompare) > 0 Then
+        RenderPostBody = raw
+    Else
+        raw = Server.HTMLEncode(raw)
+        raw = Replace(raw, vbCrLf, "<br>")
+        raw = Replace(raw, vbCr, "<br>")
+        raw = Replace(raw, vbLf, "<br>")
+        RenderPostBody = raw
+    End If
+End Function
+
 '------------------------------------------------------------------------------
 ' Canonical application URL helpers
 ' - Categories use numeric IDs