errore che non capisco

[techno]

Salve a tutti ed auguri

Volevo chiedere il perchè di questo errore:
Microsoft VBScript runtime error '800a0009'

Subscript out of range: '6'

/page/games/list.asp, line 168

lo script è il seguente:

Dim ArrNew(5)
Set recNew=connGMS.Execute("Select Top 5 IDG From archivio Where IDP='"&IDP&"' order by Data Desc")
Dim ciclo
ciclo=0
Do while not (recNew.EOF)
ArrNew(ciclo)=recNew.fields("IDG") ***
ciclo= ciclo + 1
recNew.moveNext
loop
Set recNew= nothing 

la riga di errore che fa riferimento è quella dove ci sono i tre asterischi

[optime]

perché avrai più di 5 elementi nel recordset... fatti stampare CICLO e controlla

[techno]

si lo so che ci sono + di 5 elementi ma scus aio gli ho deto top 5 mi dovrebbe stampare solo i primi 5 in ordine data o mi sbaglio
correggimi tu

[optime]

potrebbero esserci degli ex-aequo... fatti stampare ciclo e colntrolla

[techno]

difatti ciclo arriva fino ad 8 ecco come me lo stampa
012345678

ma scusa se gli ho detto top 5!!!

[techno]

forse è meglio dare una condizion nel while??? invece del top 5????

[optime]

ti ho già detto il motivo!

nel ciclo do...loop metti

if ciclo>5 then exit do

[techno]

ok quindi devo mettere una condizione grazie

[techno]

ok grazie risolto con and not (ciclo=5)

volevo evitare questo ma come hai ben detto non è possibile.
grazie ancora