Prova così:

codice:
      Dim Arr As object
      Dim i as integer

      i=0
      While rs.read()
        redim preserve Arr(i)
        Arr(i)=rs("campo")
        
        i += 1
      End While

      For i=0 to ubound(Arr)
        response.write (Arr(i))
      next