recupero valore checkbox

[mexican]

Salve, allora ecco il mio problema... ho una lista di checkbox creata dinamicamente, recuperando i valori da Db.
Ora il problema consiste che io devo recuperare i checkbox selezionati e inserirli nel DB, ma non spendo e gli altri dati come faccio a recuperare quelli selezionati? Ecco il codice che tengo:

<%
strsql="Select * From Servizi"
rs.open strsql, conn,3,3
%>
<%
do untill rs.eof
%>
<tr>
<td width="162" bgcolor="#f3f3f3"><div align="left" class="Stile1"><%=rs("servizio")%> - <%=rs("prezzo")%> &euro;</div></td>
<td width="320" bgcolor="#f3f3f3" class="Stile1"><div align="left">
<input name="<%=rs("servizio")%>" type="checkbox" value="<%=rs("id_servizio")%>" />
</div></td>
</tr>
<%
rs.movenext
loop
rs.close
%>

Grazie a tutti

[Mems]

Vedo che i nomi delle checkbox li generi leggendoli dal db.
Ebbene, ti crei successivamente un array contenente i nomi di questi campi.
Con un ciclo for sulla collection request.form verifichi quali campi form selezionati hanno una corrispondenza con uno dei nomi presenti nell'array precedentemente creato e quindi fai le operazioni del caso.

[mexican]

Originariamente inviato da Mems
Vedo che i nomi delle checkbox li generi leggendoli dal db.
Ebbene, ti crei successivamente un array contenente i nomi di questi campi.
Con un ciclo for sulla collection request.form verifichi quali campi form selezionati hanno una corrispondenza con uno dei nomi presenti nell'array precedentemente creato e quindi fai le operazioni del caso.

a dire la verità so che si fa così, il fatto è che io e le array stiamo da due parti diverse :-)
Non è che potretsi farmi un piccolo esempio?

[mexican]

Qualche esempio da dove partire?

[Mems]

<%
' L'array te lo generi così
dim myArray(0)

strsql = "Select servizio From Servizi"
rs.open strsql, conn,3,3

if not rs.eof then
i = 0
redim myArray(rs.recordCount - 1)
do until rs.eof
myArray(i) = rs("servizio")
i = i + 1
rs.moveNext
loop
end if

' leggi la collection request.form e confronti i nomi dei campi con l'array
for each item in request.form
  for x = 0 to uBound(myArray)
    if item = myArray(x) then
    response.write item & "=" & request.form(item) & "
"
    exit for
    end if
  next
next
%>

[mexican]

prima di tutto grazie per la mano che mi dai.
Allora ecco il codice che ho aggiunto:

id_dominio=request.Form("id_dominio")
' L'array te lo generi così
dim myArray(0)

strsql = "Select servizio From Servizi"
rs.open strsql, conn,3,3

if not rs.eof then
i = 0
redim myArray(rs.recordCount - 1)
do until rs.eof
myArray(i) = rs("servizio")
i = i + 1
rs.moveNext
loop
rs.close
end if

' leggi la collection request.form e confronti i nomi dei campi con l'array
for each item in request.form
for x = 0 to uBound(myArray)
if item = myArray(x) then
response.write item & "=" & request.form(item) & "
"
exit for
end if
next
next
'carico nel db
for x = 0 to uBound(myArray)
if item = myArray(x) then

strsql="Select * From Servizi_Dominio"
rs.open strsql, conn,3,3
rs.addnew
rs("dominio")=id_dominio
rs("id_servizio")=item
rs.update
rs.close

exit for
end if
next

Però quando vado a salvare e cercare di caricare i dati nel db mi da un'errore:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000A)
Questa matrice è fissa o temporaneamente bloccata
/amatodomini/add_servizi.asp, line 210
che corrisponde alla linea: redim myArray(rs.recordCount - 1)

Cosa vuol dire?

[Mems]

dim myArray()

[mexican]

Originariamente inviato da Mems

dim myArray()

facendo così ora mi da quest'altro errore:
Errore di compilazione di Microsoft VBScript (0x800A0411)
Nome ridefinito
/amatodomini/add_servizi.asp, line 210, column 4
dim myArray(rs.recordCount - 1)

[Mems]

id_dominio=request.Form("id_dominio")
' L'array te lo generi così
dim myArray() '<--------- QUI'!!!

[mexican]

Originariamente inviato da Mems

id_dominio=request.Form("id_dominio")
' L'array te lo generi così
dim myArray() '<--------- QUI'!!!

c'è la dichiarazione ma mi da sempre non definito