Dim elec()
i = 0
// Aqui va un Select y su ejecución para la categoría principal
do while not RS1.EOF %> // Listado de categorías hasta EOF
<p><input type="checkbox" name="elec1" value="ON">
<% response.write (RS1("PrimeraCategoria")) %> <p></p>
<% i = i + 1
set elec(i) = request.form("elec1") // Se pretende la elección de Subcategorías en base a la elección de la categoría Primaria
if (elec(i)<>"") then
sql2 = "select ….(subategoria elegida en base a variable “i”)"
Com1.CommandText = sql2
set RS2 = Com1.Execute()
do while not RS2.EOF %>
<p><input type="checkbox" name="sub1" value="ON">
<% response.write (RS2("SegundaCategoria")) %> <p></p>
<% RS2.Movenext
Loop
end if
RS1.Movenext
Loop
end if
Lo que pretendo hacer con este código es generar primeramente un listado en base a una instrucción SQL Select. En base al resultado de ese listado, que aparezcan nuevos elementos checkbox relacionados con subcategorías incluidas en el primer filtro. Por ejemplo, si tengo dos categorías principales que son en una base de datos “Autos” y “Motos”, si el usuario selecciona la categoría “Autos” mediante el checkbox que se llama “elec1” entonces que al presionar el botón Enviar del formulario, en la siguiente página se agreguen las subcategorías relacionadas con “Autos”, por ejemplo, en la base de datos podrían existir las siguientes: “Renault”, “Ford”… etc. El error se genera en la línea “set elec(i) = request.form("elec1")” con un mensaje que dice que hay un elemento de la matriz fuera del intervalo. ¿Alguna idea de cómo trabajar con generación de elementos de formulario (en este caso checkbox) como elementos de una matriz?
Un saludo y gracias desde ya.
