求~~~~助！
<%Set cn=Server.CreateObject("ADODB.Connection")
cn.ConnectionString="DSN=weisheng;UID=sa;PWD=transit"
cn.open
Set rs=Server.CreateObject("ADODB.Recordset")
Source="Select Num,Count(Num) from card1 where (Time2-Time1)=0 group by Num"
Source="Select Num,Count(Num) from card1 where (Time2-Time1)=1 group by Num"
rs.Open source,cn
Response.Write"<TABLE BORDER ALIGN=CENTER>"
Response.Write"<TR>"
Response.Write"<TD>地区编码</TD>"
Response.Write"<TD>0天</TD>"
Response.Write"<TD>1天</TD>"
DO While Not rs.Eof
Response.Write"<TR>"
For I=o to rs.Fields.Count-1
Response.Write"<TD>"&rs(I).Value&"</TD>"
NEXT
rs.MoveNext
LOOP
rs.Close
cn.Close
Set rs=Nothing
Set cn=Nothing
%>
想一次统计出TIME2-TIME=0和1两个情况的记录数目，象上面那样写只能的到0的```1的是空白，该怎么办？？
