Microsoft VBScript compilation error '800a0411'

Name redefined

/adrotator.inc, line 34

Dim BArray(1000)
----^