Udtræk af database

Hej

Jeg har denne stump kode hvor jeg en liste med alle genre fra en database. Jeg skal så ud for genren, skrive hvor mange film der findes i den pågældende genre.

Problemet ligger i, at i min tabel FILM er værdierne i kolonnen GENRE kommasepareret. For en film kan være listet i flere forskellige genre.

Som mit udtræk viser nu, virker det fint, hvis en film kun har 1 genre, men så snart en film har flere genre fejler den, nogen som kan hjælpe mig ?


<%
                    strGenre = "select * from genre order by genre"
                    Set RSGenre = conn.Execute(strGenre)
                    While Not RSGenre.EOF
                   
                    'Set rsCount = Conn.Execute("SELECT COUNT(*) AS count FROM film WHERE Genre " & rsGenre("genreID") & " ")
                    Antal = rsCount("count")
                    rsCount. close
                    set rsCount= Nothing
                    %>
                    <tr>
                        <td><a href="?Page=List&ID=<%= RSGenre("GenreID")%>"><%= RSGenre("Genre")%></a></td>
                        <td align="right"><font color="C0C0C0">(<%=antal%>)</font></td>
                    </tr>
                    <%
                    RSGenre.MoveNext
                    Wend
                    Set RSGenre=Nothing
                    %>