<%
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的是空白，该怎么办？？

上面得到的是1的COUNT数~~0的不能显示出来，而且1的数目显示在0的表下面

怎么分开呢？我想并排显示啊```地区编号 0天 1天

XXXXXX 4 5

不好用``SOURCE2都不识别，颜色都不变

继续求````