Yo lo uso así.
Código ASP:
Ver originali = 0
Maximo = 60 ' Tamaño máximo permitido
Cadena = AQUI_PON_LA_CADENA_DE_TEXTO
If len ( Cadena ) > Maximo Then
Cadena2 = Split ( Cadena, " " )
Cadena = ""
Do While len ( Cadena ) + len ( Cadena2 ( i ) ) < Maximo
Cadena = Cadena & " " & Cadena2 ( i )
i = i + 1
Loop
If cadena <> "" then
cadena = cadena & " ..."
End if
End if