opppssss....così...
le posizioni dell'array vanno da 0 a x ...quindi un array con la seconda dimensione a 2 avrà come posizioni 0 ed 1

<%
numemail=CLng(numemail)
dim array()
Redim array(numemail, 2)

While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
dim mail, nomeutente
mail=((Recordset1.Fields.Item("email").Value))
nomeutente=(Recordset1.Fields.Item("nomeutente").V alue)

array(Repeat1__numRows*-1, 0)=mail
array(Repeat1__numRows*-1, 1)=nomeutente

Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>


Ciao

Fabio