llegal assignment Runtime 800a01f5 >> dove sbaglio?

[hakbad]

ciao ragazzi, volevo chiedervi dove sbaglio all'assegnazione della costatante CAPACITY sto cercando di risolvere la cosa da due giorni ma non ce la faccio.

dunque... un link manda le seguenti informazioni:
colore
codice
costo
quantita
descrizione
capacity

le porta in maniera corretta.

la pagina dove dovrebbe dare il risultato in più righe se presenti (è una specie di carrello ecommerce) ma mi restituisce il valore:
Microsoft VBScript runtime error '800a01f5'
Illegal assignment: 'capacity'
voyage.asp, line 22

il codice incriminato è questo:

const cartid=0
const cartcolore=1
const cartcosto=2
const cartquantita=3
const cartdescrizione=4
const capacity=5

if not isarray (session ("cart")) then
dim localcart(6,50)
else
localcart = session ("cart")
end if

colore=trim(request("colore"))
codice=trim(request("codice"))
costo=trim(request("costo"))
descrizione=trim(request("descrizione"))
quantita=trim(request("quantita"))
capacity=trim(request("capacity"))


confido in voi!

[optime]

se è CONST non puoi riassegnargli il valore! that easy

[hakbad]

infatti sto cercando di aggiungere un altro campo alla pagina dei risultati ma c'è qlsa che non non mi torna, se metto il codice in questa maniera funziona tutto:

const cartid=0
const cartcolore=1
const cartcosto=2
const cartquantita=3
const cartdescrizione=4

if not isarray (session ("cart")) then
dim localcart(4,50)
else
localcart = session ("cart")
end if

colore=trim(request("colore"))
codice=trim(request("codice"))
costo=trim(request("costo"))
descrizione=trim(request("descrizione"))
quantita=trim(request("quantita"))

if codice <> "" then
foundit = false
for i=0 to UBOUND (localcart )
if localcart (cartid,i) = codice then
foundit= true
exit for
end if
next
if not foundit then
for i=0 to UBOUND (localcart,2)
if localcart(cartid,i) = "" then
localcart(cartid,i)=codice
localcart(cartcosto,i)=costo
localcart(cartcolore,i)=colore
localcart(cartdescrizione,i)=descrizione
localcart(cartquantita,i) = quantita
exit for
end if
next
end if
end if


se cerco di aggiungere un altro valore che mi deriva dal link della pagina precedente e cioè il campo CAPACITY e lo scrivo in questa maniera mi sballa tutto:

const cartid=0
const cartcolore=1
const cartcosto=2
const cartquantita=3
const cartdescrizione=4
const capacity=5

if not isarray (session ("cart")) then
dim localcart(5,50)
else
localcart = session ("cart")
end if

colore=trim(request("colore"))
codice=trim(request("codice"))
costo=trim(request("costo"))
descrizione=trim(request("descrizione"))
quantita=trim(request("quantita"))
capacity=trim(request("capacity"))

if codice <> "" then
foundit = false
for i=0 to UBOUND (localcart )
if localcart (cartid,i) = codice then
foundit= true
exit for
end if
next
if not foundit then
for i=0 to UBOUND (localcart,2)
if localcart(cartid,i) = "" then
localcart(cartid,i)=codice
localcart(cartcosto,i)=costo
localcart(cartcolore,i)=colore
localcart(cartdescrizione,i)=descrizione
localcart(cartcapacity,i)=capacity
localcart(cartquantita,i) = quantita
exit for
end if
next
end if
end if

in teoria dovrebbe funzioanre tutto ma non va nulla e mi da l'errore.
da tenere presente che il campo CAPACITY è diverso per ogni riga per questo l'ho inserito una costante e l'ho integrato nel FOR.

[optime]

ti ho già spiegato che ad una costante non puoi riassegnare un valore. se poi ragioni come per il resto del programma, ti accorgi facilmente che ti basta scrivere così

const cartcapacity=5

[hakbad]

nnnoooooooooooo..... che errore da pivello!!! avrò riguardato e riguardato tutte le battute una ad una per vedere se avevo commesso errori calligrafici!!!! nn ci credo!!!!

[hakbad]

approfitto dei tuoi ulteriori 2 occhi per vedere dov'è l'altro errore.... ho inserito ovviamente la dicitura
dim localcart(6,50)
ma mi restituisce
Subscript out of range: number 5
le costanti le ho contate bene.... e sono sei... giusto?

[optime]

sono 6, ma lo sai che la bestia comincia a contare da zero.

[hakbad]

quando 6 fuso 6 fuso!!!! è venerdì e tra male alla schiena e occhi rossi io non ce la faccio più!!!

dim localcart(7,50)

GRAZIE!

[optime]

optime!