Problema con select multiplo

[Grinder]

Ho un input da un select multiplo che dovrebbe aggiornare un database:

garanzia = Request.querystring("garanzia")
garanzia = replace(garanzia, ", ", ",")
garanzia = split(garanzia,",")

for i = 0 to UBound(garanzia)
garanzia = garanzia(i)
next

*******************

rs("comp_01") = replace(garanzia(0),",","")
rs("comp_02") = replace(garanzia(1),",","")
rs("comp_03") = replace(garanzia(2),",","")
rs("comp_04") = replace(garanzia(3),",","")
rs("comp_05") = replace(garanzia(4),",","")
rs("comp_06") = replace(garanzia(5),",","")
rs("comp_07") = replace(garanzia(6),",","")
rs("comp_08") = replace(garanzia(7),",","")
rs("comp_09") = replace(garanzia(8),",","")

Solo che mi dice:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000A)
Questa matrice è fissa o temporaneamente bloccata: 'garanzia'
/remtech/Admin/insert_mult.asp, line 24

[santino83]

queste linee non hanno senso

garanzia = replace(garanzia, ", ", ",")
garanzia = split(garanzia,",")

for i = 0 to UBound(garanzia)
garanzia = garanzia(i)
next

soprattutto questa:

garanzia = garanzia(i)

ma che stai cercando di fare??

for i = 0 to UBound(garanzia)

if i<10 then
indice="0" & i
else
indice=i
end if
rs("comp_" & indice) = replace(garanzia(i),"'","''")

next

[Baol74]

garanzia = split(Request.querystring("garanzia"),", ")
for i = 0 to UBound(garanzia)
rs("comp_" & Right("0" & cStr(i+1) ,2)) = replace(garanzia(i),",","")
next
Rs.Update()

[Grinder]

Il form mi genera una stringa con fino a 9 elementi garanzia, quindi il primo elemento scelto deve andare in rs("comp_01"), il secondo in rs("comp_02") e così via fino a rs("comp_09")

[santino83]

guarda se ti va bene quello detto da baol

[optime]

garanzia=split(garanzia...

poraccio, lo metti in crisi

[Grinder]

Si funziona, ho ancora qualche problema, ma sto cercando di risolverlo!

[Grinder]

Ho un problema che non riesco a risolvere. Per far funzionare bene le pagine ho bisogno che i campi che rimangono vuoti vengano colmati con un "#", ho provato con una condizione, ma non me la considera

for i = 0 to UBound(garanzia)
	 if garanzia(i) = "+" then
	   garanzia(i) = "#"
	 end if
       rs("comp_" & Right("0" & cStr(i+1) ,2)) = replace((replace(garanzia(i),"+","")),", ","")
    next

[optime]

vuoi farlo sul vuoto, ma testi "+". fila?

[Grinder]

La mia intenzione sarebbe quella di riepire i campi che non possono (perchè non ci sono abbastanza selezioni disponibili) o non vengono selezionati, con un cancelletto. Proprio adesso ho provato a mettere un cancelletto per ogni comp_0x un cancelletto e ho notato che viene sempre svuotato il campo successivo alla selezione fatta!