check box dinámico

[portillo18]

Buenas a todos:

Me ha surgido un problema, el caso es que saco de la base de datos una serie de registros de una tabla y por cada uno saco un check box de la siguiente manera:

Dim Rs2
Set Rs2 = Server.CreateObject("ADODB.RecordSet")
Rs2.Open SQL2, Reservas, 3, 3
%>
<td colspan="2"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Escoja el tipo de la foto:<font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<br>
<%
dim vart
vart = 0
While (Not Rs2.EOF)
rs2Id = Rs2("id")

rs2Nombre = Rs2("nombre")

%>
<input type="checkbox" name="chk<%=rs2Id%>" value="<%=rs2Id%>"><%=rs2Nombre%><br>


<%
vart = rs2Id
Rs2.MoveNext
Wend
response.write(rs2Id)
%>

<input name="ocultonumcb" type="hidden" value="<%=vart%>">
<input name="ocultoIdTema" type="hidden" value="<%=rs2Nombre%>">
<%
' Cierro el RecordSet
'=====================
Rs2.Close
Set Rs2 = Nothing
%>

Hasta aqui todo bien, me los muestra, el caso es que al enviar el formulario no se muy bien como comprobar si estan checkeados o no, mi idea seria que por cada uno que este checkeado introduzco una fila en otra tabla con los datos del check box marcado:

ttemas = Upload.Form("ocultonumcb")

For i=0 to ttemas

if upload.form("chk"&i).value = 1 Then


SQL2 = "insert into imagenes_vs_temas(id_foto, id_tema) values ('"&idImagen&"', '"&ttemas&"')"
Reservas.Execute(SQL2)
End if
Next

pd:esto ùltimo es vbscript, ayudenme porfavor!!


gracias de antemano