pb de variable en asp

dedelfifine



voici le debut de mon pgm:

...
i=1
while not RSdate2.eof
date_req2=RSdate2("date")
ch = CDate(date_req2)
jour=Day(ch)
mois=Month(ch)
annee=Year(ch)
date1 = mois&"/"&jour&"/"&annee
sqlcount2="SELECT nomoteur,page, Count(Page) AS CompteDePage FROM ... ;"
set RSsqlcount2 = DbObj.execute(sqlcount2)
if RSsqlcount2.eof then
varcount=0 %>
...

<%else
pagecount=RSsqlcount2("CompteDePage")
varcount=RSsqlcount2("CompteDePage")
dim tabtot() <------- ligne 182
redim tabtot(i)
tabtot(i)=RSsqlcount2("CompteDePage")
i=i+1%>

...



voici le message d'erreur:

Erreur d'exécution Microsoft VBScript erreur '800a000d'
Type incompatible
.../pos_moteur3.asp, ligne 182