ayuda: problema para repetir registros

[selu]

Hola. He adaptado el código que me pasaste, pero no me sale bien. Se me despliega así:

Ankhara Sala Mephisto, Sala Mephisto... se repite la sala por el número de días que actúa el grupo. Pongo el código por si alguien me puede ayudar:

El recordset primero, con esta consulta:

rs1.Source = "SELECT DISTINCT Grupo FROM ProgramacionSemanal ORDER BY Grupo ASC"

Y luego:
<table>
<% Do While Not rs1.EOF %><tr>
<%
set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Source = "SELECT Grupo, Sala FROM ProgramacionSemanal WHERE Grupo ='" & rs1("Grupo") & "'"
rs2.CursorType = 0
rs2.CursorLocation = 2
rs2.LockType = 3
rs2.Open()
%><td>
<%
Response.Write rs1("Grupo") %>
</td>
<%
Do While Not rs2.EOF %><td>
<%
Response.Write rs2("Sala")
rs2.movenext
loop
%></td>
</tr>
<%
rs1.movenext
loop
set rs2 = nothing
set rs1 = nothing
%>

</table>