Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

klebeer_

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

Por , em ASP Clássico

Recommended Posts

klebeer_    0

klebeer_
Postado

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:

 

<!--#include file="StrCOn.asp" -->
<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"<p class='texto' align='justify'> " & " <strong> " & " <font color='#000099' face='Tahoma' size='2'> " & rshome.fields("titulo_home") & "</font></strong><br>"
end if

if rshome("subtitulo_home")<>"" then 
response.write"<p class='texto' align='justify'> " & " <strong> " & " <font color='#0066FF' face='Tahoma' size='2'> " & rshome.fields("subtitulo_home") & "</font></strong><br>"
end if

if rshome("corpo_texto_home")<>"" then
response.write"<p class='texto' align='justify'> " & " <font  color='#0000FF' face='Tahoma' size='2'>" & rshome.fields("corpo_texto_home") & "</font><br><br>"
end if

rshome.movenext
loop
rshome.Close()
%>
</body>

</html>

 

Obrigado desde já.

 

Klebeer_

MSN:klebeer_@hotmail.com

Compartilhar este post

Link para o post
Compartilhar em outros sites

ska_ska    0

ska_ska
Postado

testa assim e ve se funciona...

 

soh naum esqueca de colocar a funcao na pagina, ok?

 

if rshome("corpo_texto_home")<>"" then
response.write"<p class='texto' align='justify'> " & " <font color='#0000FF' face='Tahoma' size='2'>" & Formata(rshome.fields("corpo_texto_home")) & "</font><br><br>"
end if

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito