Função Quebra Texto

[brunoo 0]

Bommm dia :P

 

Depois de muita procura, finalmente consequi encontrar uma função que acrescentar um "<BR>" a um texto a cada valor passado fazendo assim a divisão do texto, para evitar quebras de layout.

 

Código postado por Salgado

ASP

[*]Function QuebraTexto(Texto, Caracteres)

 

[*]2. If Len(Texto) => Eval(Caracteres) Then

 

[*]3.  QuebraTexto = Left(Texto, Caracteres) &"<BR>"& QuebraTexto(Right(Texto,Len(Texto)-Caracteres), Caracteres)

 

[*]4. Else

 

[*]5.  QuebraTexto = Texto

 

[*]6. End If

 

[*]7. End Function

 

Acredito que tenho que colocar a função na página do questionário, pois imagino que a função tem que funcionar antes do envio dos dados para banco. Mas da erro ou não funciona quando acrescento no código da página.

 

ASP

[*] <% If Request.QueryString("mode") = "doit" Then

 

[*]  If Trim(Request.Form("Author")) = "" Or Trim(Request.Form("Text")) = "" Then

 

[*]  Else

 

[*]  Set objConn = Server.CreateObject("ADODB.Connection")

 

[*]  Set objRs = Server.CreateObject("ADODB.Recordset")

 

[*]  objConn.Open strConn

 

[*]  objRs.Open "SELECT * FROM Comment", objConn, 3, 3

 

[*]  objRs.AddNew

 

[*]  objRs("NewsID") = Request.QueryString("IDNews")

 

[*]  objRs("CommentAuthor") = Trim(Request.Form("Author"))

 

[*]  objRs("CommentEmail") = Trim(Request.Form("Email"))

 

[*]  objRs("CommentText") = FormatStr(Trim(Request.Form("Text")))

 

[*]  objRs.Update  

 

[*]  objRs.Close

 

[*]  objConn.Close 

 

[*] Set objConn = Nothing

 

[*] Set objRs = Nothing

 

[*] If Application(ScriptName & "CommentEmail") = 1 Then

 

[*]  Text2Send = Trim(Request.Form("Author")) & " has posted a new comment." & vbcrlf & vbcrlf

 

[*] Text2Send = Text2Send & "Check " & Application(ScriptName & "WebPageURL") & Application(ScriptName & "ScriptPath") & "noticia.asp?IDNews=" & Request.QueryString("IDNews") & " to see what was written in this comment!"

 

[*] If Len(Request.QueryString("AuthorEmail")) > 0 Then

 

[*] SendTo = Request.QueryString("AuthorEmail")

 

[*] Else

 

[*] SendTo = Application(ScriptName & "AdminEmail")

 

[*]  End If

 

[*] If SendMail("New Comment at " & Application(ScriptName & "WebPageTitle"), Trim(Request.Form("Email")), SendTo, Text2Send) = True Then

 

[*]

 

[*] End If

 

[*] Else

 

[*]  Response.Write("<meta http-equiv='Refresh' content='0; URL=noticia.asp?IDNews=" & Request.QueryString("IDNews") & "'>")

 

[*] End If

 

[*] End If

 

[*] End If

 

[*] Set objConn = Server.CreateObject("ADODB.Connection")

 

[*] Set objRs = Server.CreateObject("ADODB.Recordset")

 

[*] objConn.Open strConn

 

[*] objRs.Open NewsQuery & " WHERE IDNews = " & Request.QueryString("IDNews"), objConn, 0, 1 %>

 

[*]

 

[*]  <div id="comentario3" style="display:none;"><br>

 

[*]  <div class="fonte13">Adicionar Comentário</div>

 

[*]  <table width="100%" border="0" cellspacing="0" cellpadding="0" class="fundo10"><tr>

 

[*]  <form name="form" action="noticia.asp?mode=doit&IDNews=<% = Request.QueryString("IDNews")%>&AuthorEmail=<% = objRs("AuthorEmail") %>" method="post" onSubmit="return Validar();"><td>

 

[*]  <strong>Nome:</strong>  <input type="text" maxlength="50" name="Author" class="campo02l" title="Digite o seu Nome aqui">

 

[*]  <img src="../img/espaco.gif" width="23" height="1">

 

[*]  E-mail:  <input type="text" maxlength="50" name="Email" class="campo02l" title="Digite o seu E-mail aqui"><br><br>

 

[*]  <strong>Comentário</strong><br><textarea name="Text" class="campo0ll" title="Digite o seu Comentário aqui"></textarea><br><div class="fonte01"></div>

 

[*]  <input name="submit" type="submit" value=" Enviar " class="but01">   

 

[*]  <script>MostraLimite(document.form.elements["Text"],1025)</script><br><br>

 

[*]  </td></form></tr></table><br></div>

 

[*]

 

[*] <%  objRs.Close

 

[*] objConn.Close 

 

[*] Set objConn = Nothing

 

[*] Set objRs = Nothing

 

[*] %>

 

Alguém poderia me ajudar a colocar a função corretamente no código? http://forum.imasters.com.br/public/style_emoticons/default/kiss.gif

Obrigado http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Salgado 4]

Eu aconselho o uso quando for exibir na tela e não ao gravar no BD.

 

E qual erro deu?