Buenas,
No se como puedo hacer para que una funcion me retorne un array.
Me da siempre el siguiente error.
"No coinciden los tipos ;numero: 13 ;codigo: Error de Microsoft VBScript en tiempo de ejecución"
Sabe alguien como puedo realizarlo?
Yo lo que hago es lo siguiente
dim vectorusuarios()
dim i      
i=1
do while not rsUser.eof
   reDim Preserve vectorusuarios(i)
   Set vectorusuarios(i-1)=rsUser("id")
   i=i+1
   rsUser.moveNext
loop
getUsuarios=vectorusuarios 'getusuarios es el nombre de la funcion
Ya he probado a poner tambien Set getUsuarios=vectorusuarios 
Y en la llamada a la funcion hago lo siguiente
dim vector()
vector=oUsuario.getUsuarios()
Tambien probe con set vector=oUsuario.getUsuarios()
Gracias.
Un saludo.
Ciaoooo