Funktion skal retunere et Array

Hejsa
Jeg har en funktion der opbygger et array:

*********
Function getArrOfURLs(strLokalomraader, strPlace)
Dim arrUrlsToReturn()
redim arrUrlsToReturn(1,0)

...sql laves...

Do Until rs.EOF
redim Preserve arrUrlsToReturn(1,ubound(arrUrlsToReturn,2)+1)
arrUrlsToReturn(0,ubound(arrUrlsToReturn,2)) = "" & rs("OmrNavn")
arrUrlsToReturn(1,ubound(arrUrlsToReturn,2)) = basisURL & rs("mappe") & "/"
rs.movenext
loop
getArrOfURLs = arrUrlsToReturn
end function
************

Den vil jeg så gerne kalde og udskrive resultatet, men det virker ikke. isArray giver false. Jeg har forsøgt dette:

************
arrOmr = getArrOfURLs(omraade,"Artikler")
if isArray(arrOmr) then
  Response.Write "<p>Se også:<br>"
  for i=lbound(arrOmr,2) to ubound(arrOmr,2)
    Response.Write "<a href="""& arrOmr(1,i) &" class=""userLink"">» Område: " & arrOmr(0,i) & "</a><br>"
  Next
  Response.Write "</p>"
else
  Response.Write "Ikke resultat"
end if
*******************

og den skriver hele tiden "Ikke resultat"

Hvorfor og hvordan skal det gøres?