Sortere efter bynavn og angiv bynavn som deloverskrift

Hej.
Jeg vil lave en liste som henter sine værdier fra en database.

jeg har følgende tabeller:

steder:
id  navn
1    København 
2    Århus
3    Odense


attraktioner:
titel        beskrivelse  relation
Kgs Nytorv        bla bla      1
Odense ZOO    bla bla      3
Den Gamle By  bla bla      2
osv.

attraktioner.Relation relaterer til steder.id


jeg vil gerne have det således at jeg får en liste der ser ud som følger:

KØBENHAVN:
Den Lille Havfrue
Tivoli
Kgs. Nytorv

ÅRHUS:
Den Gamle By
Marselisborg
Moesgaard

ODENSE
HC Andersens hus
Odense ZOO

osv.

Jeg har lavet følgende:

RSsteder.Open "SELECT steder.navn, slides.titelDa, slides.relation FROM steder, slides WHERE steder.id = slides.relation ORDER by steder.navn", myConn


<%
navn = ""
Do While Not RSsteder.EoF
    navn = RSsteder("navn")
dettenavn = UCase(navn)

    If dettenavn <> navn Then
        navn = detteNavn%>
                <%Response.Write navn%>
    <%End If
%>
                  </span>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td width="35%" height="15" valign="top"><%=RSSteder("titel"&language&"")%></td>
  </tr>
</table>
                    <%
RSsteder.MoveNext
Loop
%>



Men det giver resultatet:
KØBENHAVN:
Den Lille Havrue
KØBENHAVN:
Kgs. Nytorv
KØBENHAVN:
Tivoli
osv.

Hvordan får jeg den til kun at skrive KØBENHAVN een gang, og så opliste alle de attraktioner der relaterer til København osv...