Array!!

Skulle vilja ha hjälp med ett array!
jag vill hämta samtliga ID nummer ifrån tabellen \"User\"
på användare och skapa ett array av det
jag lyckas loopa igenom tabellen ,hämta samtliga nummer
i tabellen separerade med ett \",\" men sedan när jag vill \"splitta\" strängen så få jag meddelande
\"Objektet måste vara en mängd\"??,, vad gör jag fel??


här är koden till loopen!_________________
Function Alla
Dim item
mySQL=\"SELECT * FROM users\"
set rstemp=conntemp.execute(mySQL)
rstemp.MoveFirst
while not rstemp.eof
strTo = strTo & rstemp(\"usrID\") & \",\"
rstemp.MoveNext
wend
strTo = right(strTo, len(strTo)-1)
strTo = left(strTo, len(strTo)-1)
strToArray = split(strTo, \",\",-1)
End Function

här är koden till anropet!_________________
Call Alla
for each item in strToArray
response.write rstemp(\"FName\")
next