vis TOP 2 fra hver månede per år.

jeg har dette hvor jeg kan hente de 2 nyeste nyheder ud men hvordan kan jeg gøre så den vil hente de 2 nyeste nyheder ud fra hver månede per år.

code.
min del af coden er:
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT top 2 * FROM news ORDER BY [id] DESC"
rs.Open sql, cn, 3, 4

  Function MyDateFormat(thedate)
  Dim m, d, y, mdArr
  mdArr = Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December",",")
  m = mdArr(Month(CDate(thedate))-1)
  d = day(Cdate(thedate))
  y = year(Cdate(thedate))
  MyDateFormat = m & " " & d & ". " & y
  End Function

If Not (rs.BOF Or rs.EOF) Then
  response.write "nyheder<br /><br />"
i = 0
  Do While Not rs.EOF
 
  strForfatter = rs("Forfatter")
  strOverskrift = rs("Overskrift")
  strTekst = rs("Tekst")
  strDate = rs("Dato")


if month(strDate) = maaned then
if not i = 1 then
  response.write "<b>" & MyDateFormat(strDate) & " - " & strOverskrift & "<b/><br /><br />" & _
  strTekst & "<br /><br />" & _
  "Skrevet af " & strForfatter & ".<br /><br />"
i = 1
end if
else
mdArr = Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December",",")

response.write mdArr(month(strDate)-1)
response.write "<br /><b>" & MyDateFormat(strDate) & " - " & strOverskrift & "<b/><br /><br />" & _
  strTekst & "<br /><br />" & _
  "Skrevet af " & strForfatter & ".<br /><br />"
i = 0

End If
maaned = month(strDate)
  rs.MoveNext
  Loop
  Response.Write ""
  else
  Response.Write "Der er endnu ikke nogle Nyheder"
end if