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

[Roby_72]

Quanti record restituisce la query?

Roby

[Shagrat]

una decina...provata direttamente su mysql e funzica non è nemmeno parametrica

[Roby_72]

Prova ad usare una variabile con un altro nome, non "count".

Roby

[Shagrat]

Function creaAlbero(dipen)
   dim corr(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
      corr(i) = CInt(rs.Fields("origine"))
      'corr(i) = 100
      i = i + 1
      rs.movenext
   loop

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

End Function

niente da fare...stesso errore

[Shagrat]

niente...ho risolto...facevo un errore cazzuto...devo tornare alle elementari ed imparare a contare :P

già che ci sono...c'è una proprietà del recordset che mi dice quanti oggetti ha dentro?

[Roby_72]

Originariamente inviato da Shagrat
già che ci sono...c'è una proprietà del recordset che mi dice quanti oggetti ha dentro?

Eh???

Roby

[Shagrat]

trovato anche questo
rs.recordcount
ma mi sa che non funzia co mysql

[Roby_72]

No, non funziona.
Devi usare COUNT(*).

Roby