<%
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
%>