Omskriv lidt asp og sql

Jeg laver nogle forskellige diagrammer og er nu nået til et som jeg ikke rigtig kan omsætte til det jeg vil have.

Jeg gemmer en dato for hver fangst i access basen. Gemt som fx 05.10.2008. I dette diagram vil jeg så gerne have antal fanget fisk (art) fordelt på måneder. Altså skal den skrive januar februar marts osv. og så lave en count for hver måned og vist i <%=antal%> Kan nogen hjælpe?

<%artsort = request.querystring("artsort")%>
<table height="200" width="200" border="0" cellspacing="0" cellpadding="0" bgcolor="#eeeeee" style="border-left: 1px solid Black; border-right: 1px solid Black; border-top: 1px solid Black;">
<tr>
    <td width="30" align="center" valign="bottom"><%=artsort%> fanget<br>-<br>-<br>-<br>-<br>-<br>-<br>-<br>-<br>-<br>-<br>-<br>-<br>-<br>-<br>-</td>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../team-emilie.mdb")
Conn.Open DSN

strSQL = "select art, count(*) as antal from logbog where art='" & artsort & "'" &"group by art"

Set rs = Conn.Execute(strSQL)

If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
%>
  <td width="50" align="center" valign="bottom"><table border="0" cellspacing="0" cellpadding="0"><tr align="center"><td><img src="../grafik/bla.jpg" height="<%=rs("antal")%>" width="5"></td><%=formatnumber(rs("antal"),1)%></tr></table></td>   
<%
  rs.MoveNext
Loop
End If
Conn.Close
Set Conn = Nothing
%>
</tr>
<tr>
    <td height="20" align="center" valign="middle" bgcolor="#FCFCFC" style="border-top: 2px double Black; border-bottom: 1px solid Black; border-left: 1px solid Black;"><%=artsort%></td>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../team-emilie.mdb")
Conn.Open DSN

strSQL = "select art from logbog where art='" & artsort & "'"
Set rs = Conn.Execute(strSQL)
nr=1
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF

%>
  <td height="20" align="center" valign="middle" bgcolor="#fcfcfc" style="border-top: 2px double Black; border-bottom: 1px solid Black;"><%=nr%></td>
<%
  rs.MoveNext
nr = nr+1
Loop
End If
Conn.Close
Set Conn = Nothing
%>
</tr>
</table>
</body>
</html>