Recuperar valores de varios selects.

[carlunchos]

Hola Myakire, atento a lo que me pasaste y luego de dar vueltas y vueltas , tengo lo siguiente:

response.write "<form name=form2 method=post action='guarda_datos.asp?cantidad="&i&"'>"

response.write "<table border=1 width='70%'>"
response.write "<tr>"
response.write "<td align=center>Visto</td>"
response.write "<td align=center>Opcion</td>"
response.write "<td align=center>Id</td>"
response.write "<td align=center><font color=black size=2 face=Arial,Verdana,Times>Observacion</font></td>"
response.write "</tr>"
response.write "<font color="&color&" size=2 face=Arial,Verdana,Times>"&titulo&" - <a href='conversion2.asp?modif=1&cent1="&cent1&"' title = 'Modificar Correcciones'>"&cent1&"</a></font>"
i = 0
do while not rst.EOF
i = i + 1
response.write "<tr>"

response.write "<td align=center><input type=checkbox name='chk_visto' value='si'></td>"
response.write "<td align=center bgcolor="&color&">"
response.write "<select name='sel_sino' size=1>"
response.write "<option value='SI'>SI</option>"
response.write "<option value='NO'>NO</option>"
response.write "</select>"
response.write "</td>"
response.write "<td align=center><input type=text name='id_correccion' disabled value="&rst("id_correccion")&" size=5 maxlenght=5</td>"
response.write "<input type=hidden name='id_correccion' value="&rst("id_correccion")&">"
response.write "<td align=left><font color=black face=Arial size=2>"&rst("detalle_correccion")&"</font></td>"
rst.movenext
loop
rst.close
response.write "<input type=hidden name=cantidad value="&i&">"
response.write "<input type=hidden name=cent1 value='"&cent1&"'>"
response.write "</tr>"
response.write "<tr>"
response.write "<td bgcolor="&color&" colspan=4 align=center><br><input type=submit name=submit2 value='Guardar Datos'></td>"

response.write "</form>"


En la pagina guarda_datos.asp tengo:

Set rst = Server.CreateObject("adodb.recordset")

for veces = 1 to request.form("sel_sino").count

if request.form("sel_sino")(veces)="SI" or request.form("sel_sino")(veces)="NO" then


dato = request.form("sel_sino")(veces)
dato1 = request.form("id_correccion")(veces)

if request.form("chk_visto")(veces) = "si" then dato2 = "si"
if request.form("chk_visto")(veces) = "" then dato2 = "no"

response.write "Vale = "&veces&"<br>"
sql = "Insert Into guarda_correccion (central,chk_visto,sel_sino,id_correccion) values ('"&cent1&"','"&dato2&"','"&dato&"','"&dato1&"') "
rst.open sql, strProvider,1,3
end if

next

tras lo cual me aparece el error :

sel_sino = SI, NO, SI
submit2 = Guardar Datos
id_correccion = PL301, PL302, PL303
chk_visto = si
cantidad = 3
Vale = 1

Objeto Request error 'ASP 0105 : 80004005'

Índice fuera de rango

/Actas_conv/guarda_datos.asp, line 37

Un índice de matriz está fuera de rango.


Este error aparece si no tildo todos los checkboxes "chk_visto". Si estan todos tildados no aparece el error y se guardan en base.
Le di vueltas pero no doy en el clavo. Alguna sugerencia?.

Gracias.