Foros del web, para los que viven de bits

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

ummmm

bueno
primero que nada

porque haces esto?

ttemas = Upload.Form("ocultonumcb")

no seria

ttemas = request.Form("ocultonumcb")

o estas mandando archivos u otra cosa?

lo que yo haría...

+ leo mi base fuente select * from fotos
+ un ckeckbox con el mismo nombre IDFoto
+ recojo todos los seleccionados (request("IDFoto"), ejemplo = 1,2,4,8,9)
+ mido cuantas comas trae (para saber cuantas veces tengo que hacer un ciclo
++ for i = 1 to totalarrelgo
+ inicio el insert con el valor de mi arreglo
+ voy al siguiente i

no se si te sirva hoy ando un poco lento
suerte