Hola
De acuerdo con el dibujo que quiere imprimir
Moleman, yo haría algo como esto
Código asp:
Ver originalSQL ="SELECT Distinct(Fecha) FROM tabla"
set rs = oConn.Execute(SQL)
registros = rs.getrows()
For i = 0 to ubound(registros,2)
response.write registros(Mes,i) & "<br>"
SQL2 ="SELECT Fecha, Noticia FROM tabla WHERE Mes = '"®istros(Mes,i)&"'"
set rs2 = oConn.Execute(SQL2)
registros2 = rs2.getrows()
For j = 0 to ubound(registros2,2)
response.write registros2(Noticia,j) & "<br>"
Next
rs2.Close
Set rs2 = Nothing
response.write "<br><br>"
Next
rs.Close
Set rs = Nothing
Suerte