Microsoft VBScript 运行时错误 (0x800A0009),是什么原因？

错误类型：
Microsoft VBScript 运行时错误 (0x800A0009)
下标越界: '[number: 0]'
/include/class.asp, 第 7 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)



以下是代码：
<%
dim boardcount,c
sql="select * from Board order by BoardId"
openrs(sql)
boardcount=rs.recordcount
Redim ClassName(boardcount)
ClassName(0)=""
for c=1 to boardcount
ClassName(c)=rs("boardname")
rs.movenext
next
rs.close
%>


这个应该怎么改?
有高手帮忙么?
在线等