Se me ocurre algo así, aunque no lo probé:
Código:
Bandera = ""
Do while not rs.EOF
Response.Write rs("Fecha") & " " & rs("Servicio") & " " & rs("cont")
Bandera = rs("Fecha")
Rs.MoveNext
If Bandera = rs("Fecha") then
Response.Write " " & rs("Servicio") & " " & rs("cont")
Bandera = Rs("Fecha")
End if
Loop