数组问题

<%

dim a()

redim a(i)

i=0

set rs=server.CreateObject("adodb.recordset")

rs.open "select * from Set_utype01 order by sda01i",conn,1,1

if not rs.eof and not rs.bof then

do while not rs.eof

%>

<td align="center">

<%

a(i)=rs("sda02c")

response.write rs("sda02c")

i=i+1%>

</td>

<%rs.movenext

loop

end if%>

报错内容：

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 运行时错误 错误 '800a0009'

下标越界: 'rs(...)'

/mysite/foxnew/price.asp，行124

[553 byte] By [msdn] at [2007-8-14 21:43:10]