Error al leer array

[sjam7]

Hola, tengo la siguiente linea de codigo:

Código asp:

for cual=0 to 3          
   vextras=split(vlista(cual),"|")
 
next
 

que me manda el siguiente error, como podria evitar el error este?

Microsoft VBScript runtime error '800a0009'
Subscript out of range: 'cual'
/admin/Pedidosedita.asp, line 200

[u_goldman]

Hola sjam, el error indica que tu arreglo vlista no contiene alguno de los índices, lo que podrías hacer es agregar un par de condiciones, la primera solo ejecuta el código si vlista es un arreglo, y la condición dentro del for le dice que la ejecute siempre y cuando la variable cual sea igual o mayor al número del último índice del arreglo vlista:

Código asp:

if isArray(vlista) then
   for cual=0 to 3
       if uBound(vlista) => cual then
          vextras=split(vlista(cual),"|")
       end if
    next
else
   'no tiene indices
end if
 

Saludos

[sjam7]

excelente, muchas gracias, como siempre...