error presentando parte de una cadena

[zero_sos]

19.- Como muestro las primeras 20 palabras deuna cadena y despues le pongo puntos suspensivos:

Cadena="1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22"
Cadena=Split(cadena," ")
For i =0 to 20
Response.Write Cadena(i)& " "
Next

lo intente de la siguiente manera:

Cadena= rs.fields("descripcion")
Cadena=Split(cadena," ")
For i =0 to 20
cadenapunto= cadenapunto + Cadena(i)& " "
Next

y en el cuerpo de mi html puse dentro de una tabla:

<td width="80%" align="center"><font face=arial size=2><%=cadenapunto%>&nbsp;</font></td>

sin embargo me esta dando el siguiente error en el Explorador:

Error Type:
Microsoft VBScript runtime (0x800A0009)
Subscript out of range: 'i'
/webnts/soporte/topcritbus.asp, line 190



Alguien tiene idea de que puede ser????, estoy apurado con el asunto... gracias por todo.

Zero.

[AlZuwaga]

Estoy casi seguro que el resultado de Cadena=Split(cadena," ") tiene menos de 20 "items" por lo que, al intentar llegar a 20, estás sobrepasando el último índice de cadena(i)

[zero_sos]

Dazuaga, perdona la molestia pero como podria controlarlo??? osea que solo lo realice si la cadena pasa de 20???

Gracias mil.

Zero.

[u_goldman]

A ver si esto te sirve:

cadena= rsFields("descripcion")

If len(cadena) > 20 Then
Reponse.Write(left(cadena, 20) & "...")
Else
Response.write(cadena)
End If

Salu2,

[zero_sos]

U_Goldman y Dazuaga muchas gracias por su ayuda funciono genial.

Zero