Error de Microsoft VBScript en tiempo de ejecución error '800a0009' El subíndice est

[pylg]

Tengo este código correspondiente a un formulario de un backend en el que me sale el siguiente mensaje de error:

Error de Microsoft VBScript en tiempo de ejecución error '800a0009'

El subíndice está fuera del intervalo: '6'

/extranet/editrecord.asp, línea 412



Código de la página
i=0
lFields = rs_.Fields.count

i=0
for each fld in rs_.fields
if not bAdd then
sValue = rs_(fld.name)
end if

if fld.ActualSize < 95 then iSize = fld.ActualSize else iSize=95 end if
response.write vbcrlf & "<tr>"

if fld.properties("IsAutoIncrement") then
else
response.write "<td class=""smallerheader"" width=100>" & fld.name

LINEA 412:
if arrFieldsRequired(i) = "si" then response.write "<span class='smallertext'>*</span>"

response.write "</td>" & vbcrlf
end if

[Adler]

Hola

Tienes un ciclo que va desde 0 hasta 5, pero en esta línea if arrFieldsRequired(i) le estás forzando a que vaya hasta 6.

arrFieldsRequired(0)
arrFieldsRequired(1)
arrFieldsRequired(2)
arrFieldsRequired(3)
arrFieldsRequired(4)
arrFieldsRequired(5)
arrFieldsRequired(6) --- > No existe

Suerte

[pylg]

¿Y cómo hago para que no vaya a 6?

Es que me estoy volviendo loca ya que estoy modificando un código creado por otra persona y voy solucionando algunas cosas pero en otras..... me voy tirando de los pelos.

Gracias

[Valery-Net]

Para que vaya hasta 6 deben haber necesariamente 6 campos en el RecordSet pero sólo hay 5

[Esfinge02]

lo unico que tendiras que aser es que el ciclo en lugar de ir del 0 al 5 solo valla del 0 al 4 de esta manera solo recorrera 5 posisciones y no 6 ya que el 0 tambien cuenta como una posiscion.