nel ciclo for...next memorizzi la data corrente e - se diversa dall'ultima stampata - stampi una riga, cosi' ( + o - ... )

codice:
FOR ....
   IF DataCorrente <> DataMemorizzata Then
      Response.Write "<hl>"
   END IF
   ... altre cose
   DataMemorizzata = DataCorrente
NEXT