Array dinamico

[areli]

Buongiorno a tutti,
ho costruito un array dinamico che dovrebbe ciclare i risultati di una query del db e metterli in un array. Ho provato in ogni modo, ma non riesco a combinare...Come risultato mi crea solo il primo array, e ripete sempre quello. Cosa ho sbagliato?

frmArray(1) = 008
frmArray(2) = 008
frmArray(3) = 008

posto il codice

<%

Dim frmArray(20)
While (NOT Recordset1.EOF) 
frmArray = (Recordset1.Fields.Item("Codice_Casa").Value)
   Repeat1__index=Repeat1__index+1
   Repeat1__numRows=Repeat1__numRows-1
   Recordset1.MoveNext()
Wend
'count è risultato di Recordset.recordcount
for i=i+1 to count
Response.write "frmArray(" & i & ") = " & frmArray(i) & "
" 
next
 
%>

Grazie in anticipo per qualsiasi aiuto!

[Galex]

nel ciclo dovrai mettere un indice all'array (ad esempio x).e incrementi x di 1 ad ogni loop.

frmArray(x) = (Recordset1.Fields.Item("Codice_Casa").Value)

e poi così comè il tutto funziona se hai sempre massimo 20 record (cioè il limite massimo che hai assegnato al tuo array),se diventano di + ti da errore

[Sypher]

se diventano di più non specifichi quanti elementi sono e puoi usare Redim Preserve nomearray(nuovoindice) per ridimensionarlo!

[Galex]

esatto