Sql-sætning tæller kun en gang!

Jeg ønsker at udtrække de 10 mest set billeder med data fra to tabeller. Jeg kan dog kun få den til, at udtrække en post med dette script:

strSQL =  "SELECT TOP 10 * FROM tekst ORDER BY hits desc"
          Set rs = Conn.Execute (strSQL)%>
       
        <table width="80%" border="0" align="center" cellspacing="5">
<%
i = 0
While Not rs.EOF
if i mod 1 = 0 then
response.write "<tr>"
end if
%>
            <td>
             
          <table width="100%" border="0" align="center" cellpadding="0" cellspacing="5" class="ramme">
                <tr>
                  <td width="125" align="right" valign="top" >
                    <div align="left">Hits : <% = rs("hits")%>
                      <a href="vis.asp?rid=<%=rs("id") & "&amp;t=" & rs("kategori")%> ">
                      <%billed_url = rs("billede")
                      if billed_url<>"" then
                      Response.write "<br>" & "<br>" & "<img src='" & "thumbnails100" & "/" & Mid(billed_url,9) & "' class=""minus_ramme"" alt=""billede"" title=""lystfiskerensnet"" >"
                          end if%></a>                     
                    </div>
                   
                    </td>
                  <td align="left" valign="middle"><br> <strong><% = rs("titel")%></strong><br>
                    Indsendt af:&nbsp;&nbsp;<% = rs("indsendt") %><br>
                        <%    Str = rs("bemarkning") 
If len(Str) > 35 Then
  Response.write(left(Str, 35) & "  .....")
Else
  Response.Write Str
end if
                   
                    %>
                    <br>
                   
                    <a href="vis.asp?rid=<%=rs("id") & "&amp;t=" & rs("kategori")%> "> <B>>> se mere</B><br></a> </td>
                </tr>
                <tr>
                <td width="150">
                  <% sql2 = "SELECT DISTINCTROW Count([kommen].[vote]) AS [Sum Of vote], Avg([kommen].[vote]) AS [Gennemsnit Of vote] FROM kommen WHERE kategori="&("id")
        Set Rs = Conn.Execute(Sql2)
                StrVote = rs("Sum Of vote")
                If StrVote < "1" Then
                  Response.Write ""
                          Else 
    response.write "<b> Point:</b> " & "&nbsp;" & "&nbsp;" & CInt(rs("Gennemsnit Of vote"))  & "&nbsp;" & "&nbsp;" & "<b> Stemmer:</b>" & "&nbsp;" & "&nbsp;" & rs("Sum Of vote")  End If %>
                </td>
               
                <td>&nbsp;</td>
                </tr>
              </table>
</td>


<%


i = i+1
if i mod 1 = 0 then
response.write "</tr>"
end if
RS.MoveNext
wend
Conn.Close
Set Conn = Nothing
%>

Hvad pokker går galt????