ayuda: problema para repetir registros

[selu]

Hola a tod@s. A ver si me podéis ayudar. Tengo una tabla con varios campos, pero los que me interesan son dos campos: Grupos y Salas. Quiero que me salga cada grupo junto a las salas en las que actúa. Así:

Ankhara Sala Galileo, Sala Mephisto, Sala Canciller, Sala Aurora
Betún Sala Galileo, Sala Menores
...

Pero se me repite el nombre del grupo por cada sala en la que actúa. Me sale así:

Ankhara Sala Galileo
Ankhara Sala Mephisto
Ankhara Sala Canciller
Ankhara Sala Aurora
...

No sé si me falla el SQL o tendría que hacer dos ciclos...

[pramos]

Eso es Selu, tienes que hacer dos ciclos:

set rs=db.execute("select distinct nombre from grupos")
if not rs.eof
rs.movefirst
do while not rs.eof
set rs2=db.execute("select nombre, sala from grupos where nombre='" & rs("nombre") & "'"
cadena=rs("nombre") & " actuará en: "
do while not rs2.eof
cadena=cadena & ", " & rs2("sala")
rs2.movenext
loop
rs.movenext
loop
end if
set rs2=nothing
set rs=nothing


Espero te sirva, Ojo al "SELECT DISTINCT" para que no te salga varias veces el mismo grupo !

[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>