el problema está aquí:
<p align="justify"><font face="Arial" size="2"><%=Left(result("noticia"),1550)%>
<%
noticia = result("noticia")
noticia = Replace(noticia, chr(10), "<br>")
Response.Write(noticia)
%>
primero pones la noticia con 1550 caracteres y luego reemplazas los espacios y vuelves a imprimir la noticia, pon así:
<p align="justify"><font face="Arial" size="2"><%
noticia = result("noticia")
noticia = Replace(noticia, chr(10), "<br>")
Response.Write(left(noticia,1550))
%>
Cuéntame qué tal por si acaso, no lo he probado.