intanto fatemi capire se so minimamente usare gli array

per inserirli in un array monodimensionale array(num)
ho fatto così

codice:
  While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) 
dim nome
nome=((Recordset1.Fields.Item("nome").Value))

array(Repeat1__numRows*-1)=(nome)
 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
Wend
%>
>
e poi per stampare il contenuto

codice:
<% for ii = 0 to Ubound(array) %>
<%= array(ii) &";" %>
<% next %>
ora veniamo al dunque

in un database ho la tabella persone

devo prendere ad esempio i dati dal campo mail e nome

mettiamo che voglia usare un array fatto come detto prima array(m, n)

e voglia inserire i mail in "m" e i nomi in "n"

come faccio a mettere i valori nell'array?

e successivamente comme faccio a prelevarli?

ho provato così ad inserire i dato ma non funziona dà errore alla riga rossa

codice:
numemail=CLng(numemail)
 dim array()
 Redim array(numemail, numemail) 

 While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) 
dim mail, nomeutente
mail=((Recordset1.Fields.Item("email").Value))
nomeutente=(Recordset1.Fields.Item("nomeutente").Value)
 
 array(Repeat1__numRows*-1, Repeat1__numRows*-1)=(mail, nomeutente) 
 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
Wend
%>