l'array è questo

int i
i=rsIDNotizieMenu.recordcount

dim arrID()
redim arrID(i)
i=1
while not rsIDNotizieMenu.eof
arrID(i)=(rsIDNotizieMenu.Fields.Item("DA01_IDDati ").Value)
rsIDNotizieMenu.movenext
'response.Write arrID(i) & "
"
i=i+1
wend