asp数据组如何循环增加输出

原数据格式：
data[0] = ['教育方面','30'];
data[1] = ['医疗卫生','10'];
data[2] = ['旅游环境','22'];
data[3] = ['食品监管','1'];
data[4] = ['生活保障','0'];

我写成如下出错：
  set rs=server.CreateObject("adodb.recordset")
  sql="Select * from hsrz Where class_id="& classid &" order by month_ye asc"
  rs.open sql,conn,1,3
  count=0
  do while not rs.eof
  count=count+1
%>
data[<%=count%>] = ['<%=Rs("month_ye")%>月份','<%=Rs("yingli")%>'];
<%
rs.movenext
  loop
  rs.close
  set rs=nothing
%>

想知道data[0] 中的数字如何循环增加输出，，谢谢