[resolvido] Campo memorando retorna vazio

[amd]

Gente mudei o campo de texto para memorando no bd e agora não recupera os resultados,

se coloco o bd como texto volta a funcionar o que tem que mudar no codigo?

Desde já agradeço a ajuda.

<%

'caminho do banco de dados

abrir = "DBQ=c:\inetpub\dados\bd.mdb;Driver={Microsoft Access Driver (*.mdb)};"

%>

<%

'Abrir conexão

Set conexao = CreateObject("ADODB.Connection")

conexao.open abrir

%>

<%

set rs = conexao.execute("SELECT DISTINCT * FROM pgn ORDER By id ASC")

if rs.eof = TRUE then

%>

<% else

Do While not rs.eof

%>

<%

'Declaração de itens

id= rs("id")

texto=rs("texto")

%>

<% =rs("texto")%>

<%

rs.movenext

loop

end if

%>

[.Andreia.]

Tenta fazer assim (como memorando no BD):

<%= replace(rs("texto"), chr(13), "<br>") %>

[amd]

Tenta fazer assim (como memorando no BD):

<%= replace(rs("texto"), chr(13), "<br>") %>

veleu agota ta fiuncionando o codigo ficou assim:

<%

abrir = "DBQ=c:\inetpub\dados\bd.mdb;Driver={Microsoft Access Driver (*.mdb)};"

Set conexao = CreateObject("ADODB.Connection")

conexao.open abrir

set rs = conexao.execute("SELECT * FROM pgn ORDER By id ASC")

if rs.eof then

Response.Write("vazio")

else

Do While not rs.eof

Response.Write(rs("texto")&"<br><br>")

rs.movenext

loop

end if

%>