<%
sub toHTML()
	dim i
	i = len(Body)
	'Strip trailing blank lines
	while	(right(Body,1) = chr(13)) or (right(Body,1) = chr(10))
		Body = left(Body,i-1)
		i = i-1
	wend

	'Change newlines to HTML paragraphs and breaks
	Body = Replace(Body,"<br>" & vbCrLf,"<br>")
	Body = Replace(Body,vbCrLf & vbCrLf,"<p>")
	Body = Replace(Body,vbCrLf,"<br>")
end sub
%>