array in subroutine ?

[erlupacchiotto]

data un array da caricare, debbo poi cercare in piu' punti del programma dei dati di quest'array
nel codice che segue come vedete carico l'array, poi cerco dei dati
Come posso fare per mettere il tutto in 2 subroutine del tipo

dim array = CaricaArray(DB)
call CercaDatoinArray(DB, array)


function CaricaArray
..
end function


sub CercaDatoinArray(DB, array)
end sub

ma non mi funziona, suggerimenti ?
grazie per la collaborazione

dim aSponsor

' carico l'array 
set GetSponsorValidi = db.execute("select * from SponsorValidita")
aSponsor = GetSponsorValidi.GetRows()

GetSponsorValidi.close
set GetSponsorValidi = nothing
iNumRecSponsorValidi = ubound(aSponsor , 2)

'	ricerco i dati in array
for i = 0 to (iNumRecSponsorValidi-1)
 if aSponsor(iCSpIdTipo, i ) = ParmIdTipoSponsor then
	response.write aSponsor(iCSpPageToLoad, i )
 end if
next