listning efter datum - komplicerad

Nu får ni nåt att bita i. Jag försöker få en nyhetssida att lista nyheterna efter denna form

Vecka 3
Söndag
Nyhet 123
Nyhet 122
Nyhet 121

Fredag
Nyhet 120

Torsdag
Nyhet 119
Nyhet 118

Måndag
Nyhet 117

Vecka 2
Samma stil ovan

Vecka 1
Samma stil som ovan

Alltså att den listar de nyheterna från de senaste tre veckorna som har info i sig. På de dagar som inte har nyhet skrivs inte dagen ut, på de dagar med flera nyheter skrivs alla dessa ut.

Förstår ni vad jag är ute efter?

Är det ungefär såhär du menar?

strSQL = "SELECT datum, rubrik, id FROM nyheter ORDER BY id DESC"
Set objRS = objConn.Execute(strSQL)

If NOT objRS.EOF Then
  Do Until objRS.EOF
    If dtmTemp <> objRS("datum") Then
      If DatePart("ww", dtmTemp) <> DatePart("ww", objRS("datum")) Then
        Response.Write("<br>Vecka " & DatePart("ww", objRS("datum"))
      End If

      Response.Write("<br>" & WeekdayName(Weekday(objRS("datum"))))
    End If

    Response.Write("<br>" & objRS("rubrik"))
    dtmTemp = objRS("datum")
    objRS.MoveNext
  Loop
End If

objRS.Close : Set objRS = Nothing

Obs! Otestad kod, funkar troligen inte vid första försöket! ;)