求助！统计图表问题，从数据库获取数值。

[jeesir]

cs数据库中的2个字段如下：
why qy
苹果 1
梨子 2
苹果 3
苹果 4
梨子 5
香蕉 6

我想通过图表（饼图），显示各水果的比例。在网上下载了龚鸣的图表程序，但里面数据是静态的：
如下：<%dim total(7,1)
total(1,0)="中国经营报"
total(2,0)="招聘网"
total(3,0)="51Job"
total(4,0)="新民晚报"
total(5,0)="新闻晚报"
total(6,0)="南方周末"
total(7,0)="羊城晚报"

total(1,1)=200
total(2,1)=1200
total(3,1)=900
total(4,1)=600
total(5,1)=1222
total(6,1)=413
total(7,1)=800
%>

下面是我写的代码：

<!--#include file="conn.asp"-->
<%
Dim aa()
Dim bb()

a=1

set rs=server.createobject("adodb.recordset")
sql="SELECT [why],count(qx) AS NUM FROM cs GROUP BY [why]"
  rs.open sql,conn,1,1
    do until rs.eof

aa(a)="rs(0)"
bb(a)="rs(1)"

a=a+1
    rs.movenext
    loop
  rs.close
%>

<%
dim total(4,1)‘“4”是我自己数的，不懂怎么通过数据库计算。

total(1,0)=aa(1)
total(2,0)=aa(2)
total(3,0)=aa(3)
total(4,0)=aa(4)

total(1,1)=bb(1)
total(2,1)=bb(2)
total(3,1)=bb(3)
total(4,0)=aa(4)
%>

测试运行错误，请问我写的代码哪错了，或者应该怎么实现？

[netWild]

<!--#include file="conn.asp"-->
<%
Dim rs,sql,i
set rs=server.createobject("adodb.recordset")
sql="SELECT [why],count(qx) AS NUM FROM cs GROUP BY [why]"
rs.open sql,conn,3,1
Dim total(rs.recordCount,1)
For i = 1 To rs.recordCount
	total(i,0) = rs(0)
	total(i,1) = rs(1)
rs.movenext
loop
rs.close
%>

[jeesir]

netWild ,提示错误。

Microsoft VBScript 编译器错误 (0x800A0402)
缺少整型常数
/cs/xlfx.asp, line 7, column 10
Dim total(rs.recordCount,1)
---------^

我用response.write(rs.recordcount)显示为"4”

[netWild]

不好意思，疏忽了，修改如下：

<!--#include file="conn.asp"-->
<%
Dim rs,sql,i
set rs=server.createobject("adodb.recordset")
sql="SELECT id,filename FROM filelist"
rs.open sql,conn,3,1
ReDim total(rs.recordCount,1)
For i = 1 To rs.recordCount
    total(i,0) = rs(0)
    total(i,1) = rs(1)
rs.movenext
next
rs.close
%>

[jeesir]

感谢netWild已经解决了。