Função Quebra Texto

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