Update con checkbox

[Pandolfo]

Ragazzi sto lavorando su un negozio virtuale e sto creando una lista di articoli preferiti scelti dall' utente.

Una volta nella lista dei preferiti l' utente può inserire nel carrello l' articolo che vuole selezionandolo mezzo checkbox e cliccando su aggiungi.

Il problema è che se nella lista ci sono + articoli e lui non li spunta tutti il sistema si blocca e mi da errore.

Pensavo che inserendo la linea in rosso avrei potuto evitare la cosa ma niente...

Di seguito anche l' errore che mi da.

Qualche idea?

In blu la linea dell' errore

   Dim SQL, id_records, valore1,carrello
 id_records=split(request.form("id"),",")
 carrello = request.form("carrello")
 if carrello = "" then carrello = request.cookies("igproshoppe") end if   
 carrello2 = Replace(carrello, " ", "")
 aryPrezzi = split(carrello2,",")
 vCount = 0
 for each id in id_records
 valore1 = aryPrezzi(vCount)   
 if Session("codiceordine")<> "" then
 SQL = "UPDATE carrello SET carrello='"&valore1&"', codiceordine='"&Session("codiceordine")&"' WHERE id=" & id
 elseif Session("codiceordine") = "" then
 
 Dim gg,mm,aa,hh,mn,ss
 gg = Day(Date())
 mm = Month(Date())
 aa = Year(Date())
 hh = Hour(Time())
 mn = Minute(Time())
 ss = Second(Time())
 session("codiceordine")= mn&"X"&hh&"V"&ss&""&mn&"B"&gg
 SQL = "UPDATE carrello SET carrello='"&valore1&"', codiceordine='"&Session("codiceordine")&"' WHERE id=" & id
 end if
 conn.Execute(SQL)
 vCount = vCount + 1
 next
    conn.Close
    Set conn = Nothing

Errore di run-time di Microsoft VBScript error '800a0009' 

Indice non incluso nell'intervallo: 'vCount' 

/restyling ig pro shop/aggiorna-carrello3.asp, line 12

[wegawhite]

Inserisci una condizione con la quale conti i checkbox seelzionati e se solo uno è selezionato non fai lo split ed il conseguente array.

[Pandolfo]

un esempio???

[santino83_11_04]

tu dai per scontato che

aryPrezzi

sia un array


invece di darlo per scontato TESTALA questa tua convinzione:

if isArray(aryPrezzi) then

'posso svolgere il programma

else

'non faccio nulla?

end if