Então, se você não conseguiu fazer pelo DISTINCT, faz ela fazer uma consulta depois que você vê as datas...
Ex
SET RS = Server.CreateObject("ADODB.Recordset")
RS.open "SELECT * FROM NOTICIA WHERE ... seu codigo da data" 'Nessa consulta tu pega data
Do
If Not Rs.EOF Then
SET GGS = Server.CreateObject("ADODB.Recordset")
GGS.open "SELECT * FROM NOTICIA WHERE .... seu codigo da data" ' Nessa você manda ela imprimir as datas puxando a data da consulta anterior
GGS.Close()
SET GGS = Nothing
RS.movenext
END IF
Loop While not RS.eof
RS.Close()
SET RS = Nothing
Fiz isso em uma consulta que preciso imprimir os pedidos da data tal e listar todos eles (já que eu uso banco de dados access e infelizmente não consegui usar select distinct nele ), a desvantagem que se você não fechar as consultas depois sobrecarrega o banco pra caramba.