Quebra De Linha Em Asp

[Guest Alexvpp]

Fiz um livro de visitas em asp, ultilizando banco de dados, mas, me deparei com um problema. Independente da quantidade de caracteres, não existe quebra de linha, nas mensagens o texto vai da esquerda para a direita, direto e fica muito feio esteticamente. Quem puder me ajudar, desde já agradeço.

<% ACTION = Request.Querystring("ACTION") %>

<% PAGE = CInt(Request.Querystring("PAGE")) %>

<% RCOUNT = CInt(Request.Querystring("RCOUNT")) %>

<% If RCOUNT = "" Then %>

<% RCOUNT = "0" %>

<% End If %>

<%

Dim CmdShowEntries

Dim MySQL

'** Get initial recordset

Set CmdShowEntries = Server.CreateObject("ADODB.Recordset")

MySQL = "SELECT Livro.* FROM Livro WHERE (NOT (NAME IS NULL)) ORDER BY DATE_ENTERED DESC"

CmdShowEntries.Open MySQL,Session("ConnGuestBook_ConnectionString"), 3

%>

<% HOWMANY = 10 %>

<% '** Determine Page Size

CmdShowEntries.PageSize = HOWMANY

%>

<% If ACTION = "FORWARD" Then %>

<% PAGE = PAGE + 1 %>

<% RCOUNT = RCOUNT + HOWMANY %>

<% For DACOUNT = 1 To RCOUNT %>

<% CmdShowEntries.MoveNext %>

<% Next %>

<% End If %>

<% If ACTION = "BACK" Then %>

<% PAGE = PAGE - 1 %>

<% RCOUNT = RCOUNT - HOWMANY %>

<% If RCOUNT <> 0 Then %>

<% For DACOUNT = 1 To RCOUNT %>

<% CmdShowEntries.MoveNext %>

<% Next %>

<% End If %>

<% End If %>

<% If RCOUNT = "0" Then %>

<% PAGE = 1 %>

<p align="center"> <font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">

<strong>

<% If CmdShowEntries.RecordCount > 1 or CmdShowEntries.RecordCount = 0 Then %>

Total de Assinaturas:

<% =CmdShowEntries.RecordCount %>

<% Else %>

Total de Assinaturas:

<% =CmdShowEntries.RecordCount %>

<% End If %>

</strong></font><br>

<% If CmdShowEntries.RecordCount <> 0 And HOWMANY < CmdShowEntries.RecordCount Then %>

<font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Últimas

<% = HOWMANY %>

Assinaturas</strong></font>

<% End If %>

<br>

</font></p>

<% End If %>

<% If CmdShowEntries.RecordCount = 0 Then %>

<% Response.End %>

<% End If %>

<hr color="#FF0000" width="440">

<table width="400" align="center" cellpadding="0" cellspacing="0">

<% y = 0 %>

<%

while NOT CmdShowEntries.EOF

%>

<tr>

<td width="92"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Nome:

</strong> </font></td>

<td width="308"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= CmdShowEntries("NAME") %></font></td>

</tr>

<tr>

<td><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Email:</strong>

</font></td>

<td width="308"><a href="mailto:<%= CmdShowEntries("EMAIL") %>"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= CmdShowEntries("EMAIL") %></font></a></td>

</tr>

<tr>

<td><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Site:</strong>

</font></td>

<td width="308"><a href="<%= CmdShowEntries("URL") %>" Target="_blank" ><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= CmdShowEntries("URL") %></font></a></td>

</tr>

<tr>

<td><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Data e Hora:</strong></font></td>

<td width="308"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= CmdShowEntries("DATE_ENTERED") %></font></td>

</tr>

<tr>

<td height="20"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">

<strong>Nº IP:</strong></font></td>

<td width="308"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= CmdShowEntries("IP_ADDRESS") %></font></td>

</tr>

<tr>

<td height="20"><div align="left"><font color="#FF0000" face="Verdana, Arial, Helvetica, sans-serif" size="2"><strong>Mensagem:</strong></font></div></td>

<td height="20" width="308"><font color="#FF0000" face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=CmdShowEntries("MESSAGE")%></font></td>

</tr>

<tr>

<td height="21" colspan="2">

<hr align="center" color="#FF0000" width="400"></td>

</tr>

<% CmdShowEntries.MoveNext %>

<% y = y + 1 %>

<% if y = HOWMANY then %>

<% while NOT CmdShowEntries.EOF %>

<% CmdShowEntries.MoveNext %>

<% wend %>

<% end if %>

<% wend %>

<br>

</table>

<br>

<table width="400" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td width="200"><% If RCOUNT > 0 Then %> <form method="PUT" action="guestbook.asp">

<input type="hidden" name="ACTION" value="BACK">

<input type="hidden" name="RCOUNT" value="<% =RCOUNT %>">

<input type="hidden" name="PAGE" value="<% =PAGE %>">

<p align="left"><font face="Arial">

<input type="submit" value="Página Anterior">

</font></p>

</form>

<% End If %> </td>

<td width="200"><% If PAGE = CmdShowEntries.PageCount Then %> <% Else %> <form method="PUT" action="guestbook.asp">

<input type="hidden" name="ACTION" value="FORWARD">

<input type="hidden" name="RCOUNT" value="<% =RCOUNT %>">

<input type="hidden" name="PAGE" value="<% =PAGE %>">

<p align="right"><font face="Arial">

<input type="submit" value="Próxima Página">

</font></p>

</form>

<% End If %> </td>

</tr>

</table>

[dark0]

você precisa pegar cada frase (cada linha), dividir palavra por palavra, e testar o tamanho de cada palavra.

Se tal palavra for maior que um numero especificado por vc, quebra ela, ou passa pra linha de baixo..

e assim por diante..

sacou a ideia?