ASP按条件求和

ASP按条件求和，有一个列shu和时间，要求是列出每天的总和。

表db1

shu time

4 2009-10-19

7 2009-10-19

8 2009-10-21

3 2009-10-22

6 2009-10-22

要显示为：

2009-10-19 11

2009-10-21 8

2009-10-22 9

请知道的给个完整的代码，谢谢

Set rs=Server.CreateObject("Adodb.Recordset")
sql="select sum(shu) as a,time from db1 group by time"
rs.open sql,conn,1,1
<%
for i=1 to rs.recordcount
Response.Write rs("time")&"&nbsp;&nbsp;"&rs("a")&"<br>"
rs.movenext
next
%>