Arkiv problem...

Halloj!

Mitt nyhetsarkiv börjar svämma över.
Nu har jag så att månaden först skrivs ut, sen alla nyheter den månaden sen nästa månad osv osv... allt neråt hela tiden.

Nu tänkte jag göra så att den listar månaderna två i bredd.
typ:
-------------------------------------------------------------
Oktober -02 .............................September -02
nyhet 1 ....................................nyhet 1
nyhet 2.....................................nyhet 2
nyhet 3 ....................................nyhet 3

Augusti -02
nyhet 1
nyhet 2
---------------------------------------------------------------

fast utan "........"

alltså koden ska först fixa en tr och en td för första månaden, skriva ut alla nyheter sen en /td + td sen loopa nästa månad på samma sätt. sen en /td /tr + en ny tr osv osv.....

är detta möjligt?

denna kod använder jag nu. den listar ju bara neråt i en tabell.

<table border="0" cellspacing="0" cellpadding="1" width="400">
<%

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("nyheter.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT [id], [rubrik], [datum] FROM nyheter ORDER BY datum  desc"
rs.Open SQL, Connect

pMonth = 0
while not rs.EOF
nMonth = month(cdate(rs("datum")))
manad = ucase(left(monthname(nMonth),1)) & lcase(right(monthname(nMonth),len(monthname(nMonth))-1))
if cint(pMonth) <> cint(nMonth) then
%>
 <tr bgcolor=#028FD5> 
  <td height="22" colspan="2" align="left" class="text2">
   <%=manad%> -<%=right(year(rs("datum")),2)%>
  </td>
 </tr>
<%
pMonth = nMonth

count = 0
end if

count = count + 1
If count Mod 2 = 0 then
color = "#006797"
Else 
color = "#005274"
End If
%>
 <tr bgcolor="<%=color%>">
  <td class="text" width="55" height="22">

  <%
  if len(day(rs("datum"))) = 1 then
  dag =  "0" & day(rs("datum")) & " " & mid(monthname(month(rs("Datum"))),1,3)
  else
  dag =  day(rs("datum")) & " " & mid(monthname(month(rs("Datum"))),1,3)
  end if
  response.Write dag
  %>

  </td>
  <td class="text" height="22">
   <a href="visa_nyhet.asp?id=<% = rs("id") %>"><% = rs("Rubrik") %></a>
  </td>
 </tr>

<%
antal = antal + 1
rs.MoveNext

wend
%>
</table>