Lo dicho anteriormente sirve para mostrar las primeras 70 palabras, pero si te viene mejor lo que te voy a proponer pues lo usas, y si no pues nada aqui queda.
Es para coger las palabras que cogen por ejemplo en
400 caracteres (en verdad serian 400 y alguno, porque no te corta la ultima palabra).
Y si es para lo que imagino, poner el principio de un texto y al final poner un
Leer más... , esto te va a venir mejor, o al menos mas estetico, pues seran todos mas o menos con el mismo contenido sin depender si las palabras son mas cortas o mas largas, (creo que me estoy liando
).
<%
FUNCTION CropSentence(strText, intLength, strTrial)
Dim wsCount
Dim intTempSize
Dim intTotalLen
Dim strTemp
wsCount = 0
intTempSize = 0
intTotalLen = 0
intLength = intLength - Len(strTrial)
strTemp = ""
IF Len(strText) > intLength THEN
arrTemp = Split(strText, " ")
FOR EACH x IN arrTemp
IF Len(strTemp) <= intLength THEN
strTemp = strTemp & x & " "
END IF
NEXT
CropSentence = Left(strTemp, Len(strTemp) - 1) & strTrial
ELSE
CropSentence = strText
END IF
END FUNCTION
%>
........
<% =(CropSentence(
TEXTO ,
400 , " ...")) %>
Un saludo.