Como Pula Linha Em Txt Do Bd Acces

[py2tz]

Em outros sitema este ex funciona mas nesse aqui não quer funcionar.

varcod = Trim(RS("noticia"))

noticia =Replace(varcod,vbCrlf,"<br>")

alguém poderia ajudar dizendo o porque não vai. O txt fica todo junto, unindo o começo com o final dos paragrafos, fica muito ruim de ler.

<%

cnpath="DBQ=" & Server.MapPath("radio.mdb")

DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open DataSource

'Abre o Recordset

Set RS = Server.CreateObject( "ADODB.Recordset" )

RS.ActiveConnection = conn

set rs=conn.execute("select*from Noticias where id="&request.querystring("id")&"")

varcod = Trim(RS("noticia"))

noticia =Replace(varcod,vbCrlf,"<br>") %>

[cyberalexxx]

tenta assim:

noticia =Replace(varcod,chr(13),"<br>")

[py2tz]

Olá Cyber

Tentei: noticia =Replace(varcod,chr(13),"<br>")

Mas não foi, não dá erro nenhum e somente junta todo o texto num bloco só como antes.

Vi o BD e lá entre um paragrafo e outro existe um espaço grande, como todos os outros BD de texto, porem os outros obedecem o <BR> mas esse ai não quer ir nem a pau.

Fausto