Error en split

[JavoGEVP]

Gente, buenas!
Tengo este codigo que saqué de las FAQ's.
la variable descripcion_wf es un string que saco de la base de datos.
El problema que tiene este script es que cuando el string descripcion_wf tiene menos de 10 palabras me aparece el siguiente error.

Microsoft VBScript runtime error '800a0009'
Subscript out of range: 'i'
/ci/workflow/incs/splitdesc.inc, line 9

Como puedo mejorar el script y evitar que me aparezca el error cuando el string tenga menos de 10 palabras?

Código:

<%
Function SplitDesc
   
   'Asigno cantidad de palabras que quiero cortar de la oración
   descr_corta="0 1 2 3 4 5 6 7 8 9 10"
   'Tomo como separador el espacio en blanco
   descr_corta=Split(descripcion_wf," ")
   For i =0 to 10
   Response.Write descr_corta(i)& " "
   Next
   Response.Write "..."


End Function
%>

Mil gracias de antemano!!!

[Myakire]

En Lugar de la constante 10, usa la funcion UBound

Saludos

[JavoGEVP]

Listo :D

lo solucioné con un if y la instrucción UBound!

Código:

<%
Function SplitDesc
   
   'Asigno cantidad de palabras que quiero cortar de la oración
   'descr_corta="0 1 2 3 4 5 6 7 8 9 10"
   'Tomo como separador el espacio en blanco
   descr_corta=Split(descripcion_wf," ")
   If ubound(descr_corta) > 10 Then
    For i =0 to 10
     Response.Write descr_corta(i)& " "
    Next
     Response.Write "..."
   Else
     Response.Write descripcion_wf
     Response.Write "..."
   End If

End Function
%>

Gracias Myakire

[Myakire]

¿No te quedaría mejor con For i =0 to UBound(descr_corta)?