Cortar string a las x palabras

[richard20]

mmm mira tendrias que hacer un bucle, creo que es la opcion se me ocurre algo asi:
dim CPal

palabras=split(cadena," ")

totalPalabras=Ubound(palabras)

for CPal=1 to 15
textoFinal = textoFinal & " " & palabras(CPal)
next
Response.write(textoFinal)
textoFinal=""
y bueno el resto lo muestras

for C2Pal = CPal to totalPalabras
textoFinal = textoFinal & " " & palabras(C2Pal)
next

Response.write(textoFinal)

Asi le veo una solucion ahi tendrias que implementarlo para que quede mejor pero creo que por ahi iria la base, espero te ayude.