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

codice:
   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


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

Indice non incluso nell'intervallo: 'vCount' 

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