Ver Mensaje Individual
  #2 (permalink)  
Antiguo 01/08/2004, 00:30
mmdmay
 
Fecha de Ingreso: julio-2004
Mensajes: 29
Antigüedad: 20 años, 9 meses
Puntos: 0
Hice una función (muy facilita) que me dá la primera parte de un campo, a lo mejor te puede servir

Function Los_primeros(cuantos,de,campo)

' la palabra "de" no tiene ningun uso, pero ayuda a la comprensión
if cuantos < len(campo) then
ww = mid(campo,1,cuantos)
if mid(campo,cuantos + 1,1) = " " then
Los_primeros = ww & "...."
else
for ind = cuantos to 1 step -1
if mid(ww,ind,1) = " " then
Los_primeros = mid(ww,1,ind) & "...."
ind = 0
end if
next
end if
end if
End Function

y para llamarla es así

response.Write(Los_primeros(50,de,campo))

50, o los caracteres que necesites en cada caso.

espero que te sirva