Hola !
No estoy muy seguro, pero probá cuando muestres la leyenda, lo siguiente:
<%
Dim sMensaje
sMensaje = oRs("Leyenda")
sMensaje = Replace(sMensaje, vbCrLf, "<br>")
Response.Write(sMensaje)
%>
Espero haberte ayudado!!
Salu2
Sergio Flores<br>La Rioja, Argentina.<br><a href="http://www.lamatufia.com.ar">La Matufia</a>