Quebra De Linha

[premiere]

pessoal estou tentando usar um sistema de noticias mas quando ele exibe o texto digitado vem tudo numa mesma linha, como faço para que ele exiba com os parágrafos conforme digitado? segue o codigo

<%

thequery="SELECT * FROM News order by news_date desc"

executesql(thequery)

while not rs_main.eof

response.write "<hr color=""black""><B>"

response.write rs_main("news_title")

response.write " </b>-<font size=""1"">"

response.write rs_main("news_date")

response.write "</font><pre><font face=""verdana"">"

response.write rs_main("news_contents")

response.write "<BR></pre>postado por:" & rs_main("news_postedby") & ""

response.write "<BR><BR>"

rs_main.movenext

wend

%>

[.Andreia.]

response.write replace(rs_main("news_contents"), chr(13), "<br>")

[premiere]

obrigado Andrea

eu substitui a linha mas continua do mesmo jeito

[Henderson]

Tenta mudar na hora de inserir no banco então.

Na página que insere a notícia no banco, você poe assim

var = Replace(Request.Form("campo"), chr(13), "<br>")

E a linha do seu código acima pode voltar pro jeito normal.

Não tenho certeza absoluta de qe é assim, mas é uma tentativa.

[premiere]

mesmo assim não deu certo

[.Andreia.]

perai, se por exemplo:

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

não vai quebrar linha, diferente se for:

aaaaaaaaa aaaaaa aaa a aaa a a aaa aaaaa aaaaaa

[Diego Lazzari]

e como quebrar uma linha quando for:

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

perai, se por exemplo:

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

não vai quebrar linha, diferente se for:

aaaaaaaaa aaaaaa aaa a aaa a a aaa aaaaa aaaaaa

[bareta]

ai tu tem q contar a palavra.. ^^

uma forma simples é dar um loop no conteudo na hora de exibir... a função peguei pronta em algum lugar... ( não lembro) e também não testei... mais a idéia é essa....

da um split nos espaços e conta o tamanho das palavras, se for maior que o limite poe um espaço ou um br.

Function Quebra()
dim i, retorno, matriz
matriz = split(VarOrdemTXT, " ")
retorno = ""
for i = 0 to uBound(matriz)
do while len(matriz(i)) > 75
retorno = retorno & left(matriz(i),75) & " "
matriz(i) = mid(matriz(i), 75 +1)
loop
retorno = retorno & matriz(i) & chr(32)
retorno = Replace(retorno, chr(13), "<br />")
next
Quebra = retorno
End function