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