Ir para conteúdo
Fórum Script Brasil
  • 0

Quebra De Linha Do Banco De Dados.

Prof. Jonatas

Perguntado por Prof. Jonatas,

 Share

Pergunta

Prof. Jonatas

Prof. Jonatas

Postado
Postado

Galera eu to fazendo um painel de notícias no asp... as notícias são buscadas de um banco dados, o que acontece é o seguinte:

Quando o texto é muito grande tudo na mesma linha não vai pra linha debaixo, continua na mesma linha.

Por exemplo a notícia não pode passar a largura de 190px, está dentro de uma tabela, mas mesmo assim quando a notícia é maior ela contina até o final na mesma linha, como posso corrigir isso ?

Para deixar o texo ir para a linha debaixo, quando atingir o tamanho certo.

valeu galera... aguardo ;)

Link para o comentário
Compartilhar em outros sites

9 respostass a esta questão

Posts Recomendados

  • 0
Prof. Jonatas

Prof. Jonatas

Postado
  • Autor
Postado

Mas como assim amigo ???? esses dados são buscados de um banco de dados.. meu cliente que vai digitar a notócia em um página de edição, não tem cabimento ele digitar <br> dentro do textbox.... :huh:

supomos que ele queira apenas copiar e colar a notícia para dentro do site dele, ele vai ter que ficar olhando na index pra ver onde ele tem que por <br>.. .isso não é legal.

Tem que haver um jeito de ter uma quebra de linha automática no texto... alguém sabe ? :unsure:

Link para o comentário
Compartilhar em outros sites
  • 0
victormartins

victormartins

Postado
Postado

então você teria que utilizar o replace, tem como você postar seu codigo para eu poder colocar para você o replace?

vo posta e dps você adapta pro seu site:

strUnformattedMessage = Request.Form("add_msg")
msg = Replace(strUnformattedMessage, vbcrlf, "<br>" & vbcrlf)

o Request.Form("add_msg") você substitui o add_msg pelo nome do campo da noticia

Link para o comentário
Compartilhar em outros sites
  • 0
Prof. Jonatas

Prof. Jonatas

Postado
  • Autor
Postado

Segue abaixo meu código, como faço pra inserir este script no meu código?

Valeu a ajuda brother

<% 
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.connectionstring = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" _ 
& Server.Mappath("Db/noticias.mdb") & ";User Id=;Password=;" 
Conn.Open 

Set RS_Max = Server.CreateObject("ADODB.Recordset")
RS_Max.CursorType = adOpenKeyset
RS_Max.Open "SELECT  * FROM noticia order by numero", Conn

%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.linha {  border-color: black black #CCCCCC; border-style: solid; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 1px; border-left-width: 0px}
-->
</style>
</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" scroll=no>
<table width="200" border="0" cellspacing="0" cellpadding="0" height="154">
  <tr>
    <td valign="top"><marquee direction=up height=100 scrolldelay=5 SCROLLAMOUNT=1> 
      <table width="191" border="0" cellspacing="0" cellpadding="0" height="146" align="center">
        <tr> 
          <td height="10" class="linha" width="59"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Data:</font></b></td>
          <td height="10" class="linha" width="132"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs_max("data")%></font></td>
        </tr>
        <tr> 
          <td height="2" class="linha" width="59"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">T&iacute;tulo:</font></b></td>
          <td height="2" class="linha" width="132"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs_max("Titulo")%></font></td>
        </tr>
        <tr> 
          <td valign="top" class="linha" width="59" height="7"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Not&iacute;cia:</font></b></td>
          <td valign="top" class="linha" width="132" height="7">&nbsp;</td>
        </tr>
        <tr> 
          <td valign="top" class="linha" colspan="2"><b></b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs_max("Comentario")%></font></td>
        </tr>
      </table>
      </marquee>
    </td>
  </tr>
</table>
</body>
</html>

Link para o comentário
Compartilhar em outros sites
  • 0
Prof. Jonatas

Prof. Jonatas

Postado
  • Autor
Postado

página do cadastro

<%

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.connectionstring = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" _ 
& Server.Mappath("Db/noticias.mdb") & ";User Id=;Password=;" 
Conn.Open 

Set RS_Max = Server.CreateObject("ADODB.Recordset")
RS_Max.CursorType = adOpenKeyset
RS_Max.Open "SELECT  * FROM noticia order by numero", Conn
%>

<html>
<head>
<title>Acompanhamento de Produ&ccedil;&atilde;o - BEG BRASIL</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.campos {  font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #000000; text-decoration: none; background-color: #FFFFFF; border: #CCCCCC; border-style: solid; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px}
-->
</style>

</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" scroll=no>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
  <tr>
    <td>
      <form name="form1" method="post" action="upd06.asp">
        <p>
          <input type="text" name="textfield" value="<%=rs_max("data")%>">
        </p>
        <p> 
          <input type="text" name="textfield2" value="<%=rs_max("titulo")%>">
        </p>
        <p> 
          <textarea name="textfield3" cols="30" rows="5"><%=rs_max("comentario")%></textarea>
        </p>
        <p>
          <input type="submit" name="Submit" value="Salvar">
        </p>
        <p>&nbsp;</p>
      </form>
    </td>
  </tr>
</table>
</body>
</html>

Link para o comentário
Compartilhar em outros sites
  • 0
Prof. Jonatas

Prof. Jonatas

Postado
  • Autor
Postado

Código do Upd06

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.connectionstring = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" _ 
& Server.Mappath("Db/noticias.mdb") & ";User Id=;Password=;" 
Conn.Open

data = Request.Form("data")
titulo = Request.Form("titulo")
comentario = Request.Form("comentario")


sql = "UPDATE noticia SET data='"&data&"', titulo='"&titulo&"', comentario='"&comentario&"' where numero='1' "

conn.execute(sql)
Response.redirect("default.asp")

%>

Link para o comentário
Compartilhar em outros sites
  • 0
victormartins

victormartins

Postado
Postado

tenta:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.connectionstring = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" _ 
& Server.Mappath("Db/noticias.mdb") & ";User Id=;Password=;" 
Conn.Open

data = Request.Form("data")
titulo = Request.Form("titulo")
msg = Request.Form("comentario")
comentario = Replace(msg, vbcrlf, "<br>" & vbcrlf)

sql = "UPDATE noticia SET data='"&data&"', titulo='"&titulo&"', comentario='"&comentario&"' where numero='1' "

conn.execute(sql)
Response.redirect("default.asp")

%>

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...