Valor em tabela..

[Algalord 0]

Galera...seguinte...To com um problema...

tenho uma tabela.. que tem q mostrar dinamicamente conteudo do banco de dados..como se fosse um guestbook....soh que assim...p/ mostrar esse resultado eu fiz uma tabela com LARGURA 400 PIXELS... soh que se eu digitar muita coisa sem dar espaço, a tabela aumenta de tamanho...fazendo aparecer a barra de rolagem...

Tem como fazer quebrar a linha sozinho qdo chegar no limite da tabela??? Nao sei se isso se faz no codigo ASP ou na configuração da tabela...Alguem pode ajudar???

 

Deem uma olhada, para ver o q acontece...

Vejam

 

Se quiserem eu posto o codigo...obs: fiz com o Dreamweaver MX

 

Valeu

[Eli@ne 0]

na area que você faz updata das mensagesvocê escreve assimmensage = Replace(Request.Form("mensage"), Chr(13), "<br>")

[gastao 0]

esse replace serve só qdo tem enter!!!!!!!no caso ele nao coloca espaço....eu sabia resolver esse problema, mas esqueci.....to tentando lembrar

[Eli@ne 0]

mensage = Request.Form(Replace(mensage," ","")

[Eli@ne 0]

agora eu entedifaz assim esta parte coloca encima onde fica as function<% function divideTesto(strTesto,lngCaratteri) dim appo dim strAccapo for i = 0 to Len(strTesto)\lngCaratteri strAccapo = "" if mid(strTesto, ((i+1) * lngCaratteri) , 1) <> "" and mid(strTesto, ((i+1) * lngCaratteri)+1 , 1) <> "" then strAccapo = " " end if appo = appo & mid(strTesto, (i * lngCaratteri)+1 , lngCaratteri) & strAccapo & "<BR>" next %> e modifica a parte do testo<%mensage=(divideTesto(rs("mensage"),70))%>70 è o numero de letras que pode ser juntas

[Eli@ne 0]

no caso do Algalord nao sei onde coloca a parte da funsao divideTesto

 

ele mi passo isso e eu nao deu serto tem um erro

 

encima tu coloca esta parte

function divideTesto(strTesto,lngCaratteri)

dim appo

dim strAccapo

for i = 0 to Len(strTesto)\lngCaratteri

strAccapo = ""

if mid(strTesto, ((i+1) * lngCaratteri) , 1) <> "" and mid(strTesto, ((i+1) * lngCaratteri)+1 , 1) <> "" then

strAccapo = " "

end if

appo = appo & mid(strTesto, (i * lngCaratteri)+1 , lngCaratteri) & strAccapo & "<BR>"

next

 

 

na linha 66 troca a frase que tem

<%=(visualizar.Fields.Item("comentarios").Value)%>

 

por esta e ver se da certo

<%=divideTesto(visualizar.Fields.Item("comentarios").Value)%>

ou assim

<%=comentarios(divideTesto(visualizar.Fields.Item("comentarios").Value))%>

 

 

Entao..fiz o q você me passou, mas nao funcionou..deu o seguinte erro:

 

Microsoft VBScript compilation error '800a03f6'

 

Expected 'End'

 

/bateranaweb/index.asp, line 84

 

olhas as linhas

82 <%

83 visualizar.Close()

84 Set visualizar = Nothing

85 %>

 

Uma pergunta: akela funcao tem que colocar entre <% %>?? ou pode aproveitar essa ja aberta:

<%

Dim visualizar

Dim visualizar_numRows

 

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

visualizar.ActiveConnection = MM_guestbook_STRING

visualizar.Source = "SELECT * FROM guestbook ORDER BY data DESC"

visualizar.CursorType = 0

visualizar.CursorLocation = 2

visualizar.LockType = 1

visualizar.Open()

.

.

.

.

%>