dove e l'errore in questo array?

[alexinside83]

questo e il codice:

dim permessi
	permessi = Array()
	x=0
	response.Write(recsetpermessi.recordcount)
	do while NOT recsetPermessi.eof
	permessi(x)=recsetPermessi("idUser")
	x=x+1
	recSetPermessi.movenext
	loop

premetto che il recordset non e vuoto (infatti il record count mi restituisce 2 e poi ho visto che i valori ci sono)

ma il browser mi dice:

Errore di run-time di Microsoft VBScript error '800a0009'

Indice non incluso nell'intervallo: '0'

grazie a tutti

[kluster]

if not recsetpermessi.eof then
tot = recsetpermessi.recordcount - 1
dim permessi(Cint(tot))
end if
while not .....

[alexinside83]

non va...mi dice:

Errore di compilazione di Microsoft VBScript error '800a0402'

Prevista costante Integer

eppure TOT e integer...

[kluster]

hai messo
permessi(Cint(tot))

?

[alexinside83]

si...si...

[kluster]

mmm, vabbe' aggiriamo l'ostacolo
vedi se funzia

  Dim permessi()	
	x=0
	response.Write(recsetpermessi.recordcount)
	do while NOT recsetPermessi.eof
        Redim Preserve permessi(x)
	permessi(x)=recsetPermessi("idUser")
	x=x+1
	recSetPermessi.movenext
	loop

[Sypher]

dopo che hai dichiarato l'array serve il redim per ridimensionarlo!
edit: opps già l'aveva detto kluster!

[kluster]

si cmq se hai visto
si voleva dichiarlo direttamente dimensionato

dim permessi(Cint(tot))
non capisco cmq perchè va in errore, boh vabbe'