error (0x800A0009) ke no he podido solucionar

[nana_01]

hola tengo un error, y no se cual es el problema

tengo el siguiente codigo

I = 0
For Each Valor In Request.Form("list2")
Redim Preserve Contenido(I)
if (Valor = "ROL") then
Contenido(I) = Valor
I= I + 1
Contenido(I) = "DV_ROL"
Else
Contenido(I) = Valor
I = I + 1
End if
Next

y me sale el siguiente mensaje de error

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0009)
El subíndice está fuera del intervalo: '1'
/ir/TabuDirec.asp, line 53

la linea 53 apunta a Contenido(I) = "DV_ROL"

por ke tengo este error?, osea segun yo se puede hacer (no casho mucho asp, me gusta el php :P) algun me puede dar alguna solucion para lo ke necesito hacer..........

gracias

[debspain]

hola!
estoy casi segura que lo que pasa es lo siguiente:
Fijate en las lineas:

Redim Preserve Contenido(I)
if (Valor = "ROL") then
Contenido(I) = Valor
I= I + 1
Contenido(I) = "DV_ROL"
Else
...
End if

En la primera parte del if (si Valor="ROL") augmentas la variable I en una unidad y hasta ahi muy bien, pero en la linea Contenido(I) = "DV_ROL", has olvidado que la matriz sigue teniendo el mismo numero de elemtnos que tenia antes de augmentar la I, asi que debería quedar así:

Redim Preserve Contenido(I)
if (Valor = "ROL") then
Contenido(I) = Valor
I= I + 1
Redim Preserve Contenido(I)
Contenido(I) = "DV_ROL"
Else
...
End if


Espero que te sirva! Ataluego!

[nana_01]

muchas gracias te pasaste...............

[debspain]

me alegro que te haya servido!agur!