一个sql语句不会写，关于业务量信息登记的

<%

dim conn,sql,rs

set conn=Server.CreateObject("adodb.Connection")

conn.provider="microsoft.jet.oledb.4.0"

conn.open Server.MapPath("/porder/porder.mdb")

sql="select 服务日期,业务员,count(公司名称) as 业务量 from  业务信息登记 group by 服务日期"

set rs=conn.Execute(sql)

if Err.number>0 then

Response.Write(Err.Description)

end if

if rs.bof  then

Response.Write "现在还有没有数据"

else

do while  not rs.eof

Response.Write rs("服务日期")&"    "&rs("业务员")&"    "&rs("业务量")&"<br>"

rs.movenext

loop

end  if

set rs=nothing

set conn=nothing



%>

希望有这样的效果
服务时间 业务员 业务量
2008-9-10 业务员A 10条
2008-9-10 业务员b 10条
2008-9-10 业务员c 88条
2008-9-10 业务员d 190条
2008-9-10 业务员e 12条
...................
2008-9-1 业务员b 10条
2008-9-1 业务员c 88条
2008-9-1 业务员d 190条