Prova questa funzione
codice:
function truncateparola(stringa, parole)
arrpar=Split(stringa," ")
newstr=""
for i=0 to parole-1
newstr=newstr & arrpar(i) & " "
next
truncateparola=newstr
end function
'esempio
sStringa="Phasellus iaculis nisi in pede. Phasellus id nisl id velit aliquam facilisis. Duis ullamcorper augue eu massa. Pellentesque sed risus. Sed eget enim ut nulla pellentesque vulputate. Nullam est nunc, auctor non, condimentum rhoncus, pellentesque a, enim. Nulla fermentum mi sed orci. Nulla lacinia dignissim ligula. Nunc iaculis nonummy turpis. Integer ut mi. Aenean ultricies dapibus ante. Duis eu magna. Fusce molestie ipsum. Vivamus libero erat, lobortis eu, dignissim sit amet, scelerisque id, pede. Curabitur nunc dui, adipiscing in, fringilla nec, porta nec, lacus. Aliquam erat volutpat. Etiam et nulla vel orci vestibulum tincidunt. Donec non mauris."
trunc=truncateparola(sStringa,25)
Response.Write trunc
se vuoi troncare alla 50 parola compresi gli spazi allora devi richiamare la funzione passando come parametro parole=25