Recoger campo texto largo..

[reycoy]

Hola a todos:
Resulta que tengo un formulario con un textarea mediante el cual guardo en una base de datos el texto introducido en ese textarea.
El problema me aparece una vez que quiero mostrar ese texto en otra página. Yo simplemente meto dentro de una tabla el recordset referente a ese campo y el problema es que me ensancha la tabla de manera impresionante.
¿Existe manera de controlar ese ensanchamiento?, pensaba que la propia anchura de la tabla me lo permitiría pero no es así.
Gracias como siempre.

[wilby]

Y si pruebas a meter la tabla en una capa?

[Myakire]

Si controlas la anchura de la tabla te lo permite, claro que si.
¿puedes poner el código de cómo lo haces?

[lexus]

hola, hace algun tiempo alguien me dio esta respuesta no recuerdo muy bien, pero me ha servido mucho, esto te arregla los textos largos qeu escriben para que no se te deformen tus tablas..
espero te sirva de algo
suerte


esta funcion corta palabras muy largas que veces nos dañan la estructura de nuestras tablas

Function cortarHasta(desde,cadena,caracterCortador)
'esta funcion devuelve la porcion de cadena encontrada
'hasta el caracter especificado en caracterCortador.
'si el tamaño de la cadena es menor que el
'especificado en desde, entonces, corregir el error.
dim enc
If desde > len(cadena) Then
cortarHasta = cadena
ElseIf desde < len(cadena) Then
enc = instr(desde,cadena,caracterCortador)
cortarHasta = left(cadena,enc - 1)
Else
cortarHasta = cadena
end if
end function
--------------------------------------------------------------------------------

Lo que tu deberias hacer es usar esa funcion en un bucle, e ir cortando la cadena desde el caracter ultimo. Es decir, si dices que cortas los 500 primers, desde el uno, asi;
cortarHasta(1, variable, 500)
y luego hacer
cortarHasta(501, variable, 500)
y mas tarde
cortarHasta(1001, variable, 500)



Function cortarHasta(desde,cadena,caracterCortador)
'esta funcion devuelve la porcion de cadena encontrada
'hasta el caracter especificado en caracterCortador.
'si el tamaño de la cadena es menor que el
'especificado en desde, entonces, corregir el error.
dim enc
If desde > len(cadena) Then
cortarHasta = cadena
ElseIf desde < len(cadena) Then
enc = instr(desde,cadena,caracterCortador)
cortarHasta = iif(enc>0,left(cadena,enc - 1),cadena)
Else
cortarHasta = cadena
end if
end function