Aktivitetskalender hvor måneder vises ud fra Select bokse

Hej
Jeg har en side der med en repeat region lister mine records op fra en tabel aktivitetskalender.

For at overskueliggøre listen for mine brugere vil jeg gerne have det lavet således at man via to select bokse vælger hhv. måned og år, hvorpå så posterne fra den valgte måned vises.

Dette er, hvad jeg indtil videre har:
<%
Dim RSaktivitetskalender
Dim RSaktivitetskalender_numRows

Set RSaktivitetskalender = Server.CreateObject("ADODB.Recordset")
RSaktivitetskalender.ActiveConnection = MM_ballumby_STRING
RSaktivitetskalender.Source = "SELECT titel, FraDato, arrangor, TilDato, tidspunkt, sted  FROM aktivitetskalender  ORDER BY FraDato"
RSaktivitetskalender.CursorType = 0
RSaktivitetskalender.CursorLocation = 2
RSaktivitetskalender.LockType = 1
RSaktivitetskalender.Open()

RSaktivitetskalender_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
RSaktivitetskalender_numRows = RSaktivitetskalender_numRows + Repeat1__numRows
%>

og

<form action="" method="post" name="form1">
              <br>
              <table width="249"  border="0" align="center" cellpadding="0" cellspacing="0">
              <tr valign="bottom">
                <td width="109">V&aelig;lg m&aring;ned:<br>
                  <select name="month" id="month">
                    <option value="0" selected>-V&aelig;lg-</option>
                    <option value="1">Januar</option>
                    <option value="2">Februar</option>
                    <option value="3">Marts</option>
                    <option value="4">April</option>
                    <option value="5">Maj</option>
                    <option value="6">Juni</option>
                    <option value="7">Juli</option>
                    <option value="8">August</option>
                    <option value="9">September</option>
                    <option value="10">Oktober</option>
                    <option value="11">November</option>
                    <option value="12">December</option>
                  </select> </td>
                <td width="71">V&aelig;lg &aring;r:<br>
                  <select name="year" id="year">
                    <option value="1" selected>2005</option>
                    <option value="2">2006</option>
                    <option value="3">2007</option>
                  </select>                  </td>
                <td width="69"><input type="submit" name="Submit" value="    Vis    "></td>
              </tr>
            </table>
          </form></td>
              </tr>
            <tr>
                <td><hr size="1"></td>
            </tr>
              <%
While ((Repeat1__numRows <> 0) AND (NOT RSaktivitetskalender.EOF))
%>
             
              <tr>
                <td><u><%=(RSaktivitetskalender.Fields.Item("FraDato").Value)%>
                    <%if not RSaktivitetskalender.Fields.Item("tidspunkt") = "00:00:00" then %>
                    kl. <%= DoDateTime((RSaktivitetskalender.Fields.Item("tidspunkt").Value), 4, 1033) %>                    <%end if%>
                </u></td>
              </tr>
              <tr>
                <td><span class="style27 style28 style29 style30 style31"><%=(RSaktivitetskalender.Fields.Item("titel").Value)%></span></td>
              </tr>
              <tr>
                <td>                Arrang&oslash;r:
                <strong> <%=(RSaktivitetskalender.Fields.Item("arrangor").Value)%></strong></td>
              </tr>
              <tr>
                <td><hr size="1"></td>
              </tr>
              <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  RSaktivitetskalender.MoveNext()
Wend
%>

Nogen der kan hjælpe?