Problemer med udtræk

Jeg har følgende script, som jeg bruger til at lave en års oversigt over nogle arrangementer... Det virker ok, men her efter at vi er gået ind i år 2002, skal jeg ha lavet sådan så den kun tager de arrangementer der sker i år 2002, men det skal være sådan så den selv finder det aktuelle år, således at jeg ikke skal rette det hvert år!
Jeg har prøvet det neden under, men den tager kun det første arrangement i januar og viser, samt den skubber hele hjemmesiden layout, ligesom hvis man glemmer at afslutte en tabel....

dtmDate = Request.QueryString(\"date\")
If dtmDate = \"\" Then
dtmDate = Date
Else
dtmDate = CDate(dtmDate)
End if
intYear = Year(dtmDate)
strMonth = MonthName(Month(dtmDate))
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"inc/db/spejder.mdb\")
strSQL = \"SELECT * FROM Kalender where aar = \"&intYear&\" order by Mdr,dag \"
set RS = conn.execute(strSQL)

Do while Not RS.EOF
if Sidstemaaned = RS(\"mdr\") Then

Response.write \"<TABLE BORDER=0 CELLSPACING=0>\"

Response.write \"<TR><TD width=600 style=\'border-bottom: 1px solid #3C9751\'><span class=normal><IMG SRC=images/pil.gif BORDER=0 WIDTH=5 HEIGHT=10 ALIGN=bottom> <b>\" & RS(\"dag\") & \". - <a class=normal href=default.asp?side=kalender&subside=info&dato=\" & RS(\"dato\") & \">\" & RS(\"overskrift\") & \"</b></a><br>Gren(e): \" & RS(\"gren\") & \"</TD></span></tr>\"
Else
Response.write \"<tr><TD class=gron width=600><span class=overskrift>\" & MonthName(RS(\"mdr\")) & \"</span></TD></tr>\"
Response.write \"<TR><TD width=600 style=\'border-bottom: 1px solid #3C9751\'><span class=normal><IMG SRC=images/pil.gif BORDER=0 WIDTH=5 HEIGHT=10 ALIGN=bottom> <b>\" & RS(\"dag\") & \". - <a class=normal href=default.asp?side=kalender&subside=info&dato=\" & RS(\"dato\") & \">\" & RS(\"overskrift\") & \"</a></b><br>Gren(e): \" & RS(\"gren\") & \"</TD></span></tr></TABLE>\"
Sidstemaaned = RS(\"mdr\")
End if
RS.Movenext
Loop