ASP - El subíndice está fuera del intervalo: 'i' ¿porque

porque no me funciona esto?
<%
Dim cadena
cadena = (rs_titulares.Fields.Item("titular").Value)
cadena = Split(cadena, " ")
For i = 0 To 6
Response.Write cadena(i)& " "
Next
%>
Me dice...
El subíndice está fuera del intervalo: 'i'

cuando haces el split, cadena se comvierte en un array de n valores.
Al hacer el bucle, cambialo por este
For i = 0 To len(cadena)
De esta manera, el bucle sera de tantas dimensiones como tenga el array, de la forma que lo haces tu, cadena puede tener 4 dimensiones y cuando pase de 4 te dara el error de "El subíndice está fuera del intervalo: 'i' "

No funciona 'No coinciden los tipos'
En realidad lo que estoy tratando de hacer es mostrar un numero determinado de palabras dentro de un recorset que muestro en una pagina, aquello de "En un lugar de la mancha... [mas]"
Pero no lo consigo ¿alguien conoce algun metodo para ello?