<%
dim rs
set rs=server.createobject("adodb.recordset")
rs.open"select * from CallNoUser where startdate>'2006-07-02' and groupNo<>'softphe' order by GroupNo compute sum(ThisTime) by groupNo ",conn,1,1
if rs.eof then
response.write("")
else
%>表字段1 表字段2 表字段3 表字段4 表字段5
<%
do while not rs.eof
%><%=rs("表字段1")%> <%=rs("表字段2")%> <%=rs("表字段3")%> <%=rs("表字段4")%> <%=rs("表字段5")%>
<%
rs.movenext
loop
%>
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>