Subscript out of range ???

[Shagrat]

Function creaAlbero(dipen)
   dim count(10)
   dim i
   str = "select origine, count(origine) as cont from stanze group by origine"
   set rs = Server.CreateObject("ADODB.recordset")
   rs.Open str, conn
   i=0

   do until rs.EOF
      count(i) = CInt(rs.Fields("origine")) 
      'count(i) = 100
      i = i + 1
      rs.movenext
   loop

   for i = 0 to Ubound(count)-1
       response.write count(i)&"-->"& count(i)&"
"
   next

End Function

questo è l'errore...ma non capisco cosa sbaglio...

Microsoft VBScript runtime error '800a0009' 

Subscript out of range: 'i' 

/test/index.asp, line 32

quella in rosso è la riga 32