Errore "Overflow: 'CInt'" senza modifiche alla pagina

[silgmaris]

Come è possibile che una pagina che funziona da mesi, (estrae dati su delle foto da un database e ne elenca il numero per ogni gruppo), senza che si sia modificato anche il contenuto del database, una bella mattina mi va in errore???

Microsoft VBScript runtime error '800a0006'
Overflow: 'CInt'

La riga incriminata è questa:

TotaleFotografie = TotaleFotografie + cint(RSFotografie("TotaleFotografie"))
TotaleFotografieLetture = TotaleFotografieLetture + cint(RSFotografie("TotaleFotografieLetture")) 
RSFotografie.MoveNext

Come lo risolvo???

P.S. Ho scoperto anche che l'errore lo da al quinto giro del Loop... ??? Bah!

[optime]

perché CInt arriva fino ad 32.767 usa CLng

[silgmaris]

Grazie!