Hola Mamon, aqui otro codido para mostrar solo algunas palabras de una cadena:
<%
Cadena = "este es una cadena que puede tener + ó - de 20 palabras"
' De un BD cadena = tu_recordset("nombre")
Cadena=Split(Cadena," ")
d = UBound(Cadena,1)+1 'd es el valor hasta donde recorre la cadena
if d > 20 then
d = 20
else
d = UBound(Cadena,1)
end if
For c =0 to d
Response.Write(""&Cadena(c)&" ... ")
Next
%>
Espero te sirva
