Ver Mensaje Individual
  #2 (permalink)  
Antiguo 29/03/2005, 03:00
Avatar de Xculio
Xculio
 
Fecha de Ingreso: enero-2005
Ubicación: San Miguel de Basauri, muy cerquita de Bilbo
Mensajes: 42
Antigüedad: 19 años, 3 meses
Puntos: 0
Coge los 150 caracteres y comprueva que no terminen en " ",

si termina--->left(cadena,149)

sino--->ve restando hasta que termine en " ",

cuando lo encuentres restale uno mas y lo mismo.

algo hasi...

if len(cadena) < 150 then
Response.Write(cadena)
else
cont = 150
While mid(cadena,cont,1) <> " "
cont = cont - 1
wend
cont = cont - 1
Response.Write(left(cadena,cont) & "...")
end if

Prueba a ver, lo he hecho a batalla y sin comprovar, sera algo hasi.

Espero haberte ayudado.