<% set rs = Server.CreateObject("adodb.recordset") sql ="select min(mytime) as mintime,max(mytime) as maxtime,myday,name from mydate group by myday,name" rs.open sql,conn,1,1 do while not rs.eof Response.Write rs("name")&" " Response.Write rs("myday")&" " Response.Write rs("mintime")&" " Response.Write rs("maxtime")&" " Response.Write "<br>" rs.movenext loop rs.close set rs =nothing
%>