Publicado em 9 de jan.

[Resolvido] Erro na quebra de linhas....simplesmente não faz

Olá Pessoal, olha eu denovo por aqui e pedindo um "help" novamente.

Agora o que está acontecendo é que quando a página puxa do Banco de Dados o texto "corpo_texto_home", o mesmo não vem com quebra de linhas como foi inserido no Banco de Dados, ja vi aqui alguma coisa parecida, e um código como este, mas eu tentei e não deu certo, talvez não tenha colocado ele lugar certo:

Função..

Function Formata(TXT)

 TXT = Replace(TXT, chr(13), "<BR>")

 Formata = TXT

End Function

Para Usar a Função..

Var = Formata(Request.Form("CAMPO")) --> no caso usei o "corpo_texto_home"

ALGUEM PODERIA ME AJUDAR? :rolleyes:

Banco de Dados tenho a tabela home e dentro os seguintes campos:

id_home, titulo_home, subtitulo_home, corpo_texto_home, imagem_home

Na página eu tenho o seguinte código:

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Home</title>

</head>

<body>
<p>
 <%
	DIM rshome

	Set rshome = Server.CreateObject("ADODB.Recordset")
	rshome.ActiveConnection = MM_StrCOn_STRING
	rshome.Source = "select * from home"
	rshome.CursorType = 3
	rshome.CursorLocation = 3
	rshome.LockType = 2
	rshome.Open()

Do While not rshome.Eof

if rshome("imagem_home")<>"" then
response.write("<img src='images/" & rshome.fields("imagem_home") &"'>")
end if

if rshome("titulo_home")<>"" then
response.write" " & " " & " " & rshome.fields("titulo_home") & " "
end if

if rshome("subtitulo_home")<>"" then
response.write" " & " " & " " & rshome.fields("subtitulo_home") & " "
end if

if rshome("corpo_texto_home")<>"" then
response.write" " & " " & rshome.fields("corpo_texto_home") & " "
end if

rshome.movenext
loop
rshome.Close()
%>

</body>

</html>

Obrigado desde já.

Klebeer_

MSN:klebeer_@hotmail.com

Discussão (2)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

Carregando comentários...