Inserire in array variabili valori da sql per grafico

[Pinetto]

Ciao spero di riuscire a formulare la domanda.

Problema: ho una query di raggruppamento che mi restituisce dei valori per (sommapeso e tipoprodotto) per ogni punto vendita
Posso avere ovviamente due o più risultati per ogni punto vendita.
Per complicarmi la vita vorrei utilizzare per un grafico riassuntivo a barre in fondo alla pagina.

Penso che dovrò prima passarmi ogni record e popolare un array (come si fa?... )
Poi presumo che devo crearmi un'altro array per l'abbinamento del colore del grafico (immagine .gif) alla tipologia

Le immagini Gif della barra per il grafico sono 6 ( red,blu etc) perchè 6 sono le probabili condizioni massime al momento per la group by della query.
posto un pezzo di codice
---------------------
sql="SELECT count(id) as sommaid, citta,SUM(pesoreale) as sommapeso,avg (pesoreale)as etc etc "
' a me interessa SOMMAPESO con TIPOPRODOTTO

rs.open sql,cn,3,3

If rs.EOF then

else

dim i,array
i=0
Do while not RS.EOF
array(i)=rs("sommapeso")
i = i + 1
rs.movenext
loop end if
------------------------------------------
Qui sopra cercavo per esempio di passarmi "sommapeso" ma mi dà errore..
Potete postarmi un esempio oppure un link a qualche tutorial?
Concettualmente è corretta la procedura che vorrei usare?
Grazie.

[Santino83_02]

dim mioarray 'o forse la devi togliere, non me lo ricordo mai
dim i

i=0

do while not rs.eof

redim preserve mioarray(i)
mioarray(i)=rs("sovrappeso")

i=i+1
rs.movenext
loop

[Pinetto]

Grazie Santino,
errore sparito.
Abuso ancora della tua disponibilità.
Se devo passare anche tipoprodotto?
mioarray(i)=rs("sovrappeso")??+rs("tipoprodotto")

Come recupero i valore degli array?
Response.write ??
Grazie ancora.
Ciao

[wallrider]

guarda se ti può interessare il metodo getRows dell'oggetto recordset

[optime]

...
do while not rs.eof
   redim preserve mioarray(2,i)
   mioarray(1,i)=rs("sovrappeso")
   mioarray(2,i)=rs("tipoprodotto")
   i=i+1
   rs.movenext
loop
...

[Pinetto]

Grazie per l'interessamento.

Ora se volessi stampare questo array per vedere se prende i valori corretti?
---------------------------------
do while not rs.eof
redim preserve mioarray(2,i)
mioarray(1,i)=rs("sovrappeso")
mioarray(2,i)=rs("tipoprodotto")
i=i+1
rs.movenext
loop
-------------- ho aggiunto
For i = 0 to UBound(mioarray)
Response.Write mioarray(i) & "

------------------------
'no così mi da errrore..

Grazie
Ciao