sammenlæg stemmer i kolonne og vis total

Hej. Jeg har en tabel der ser nogenlunde sådan ud:

month  year  kbh  aarhus  odense  esbjerg
3          2011      3          5            2          7
2          2011      4          7            3          4

alle værdier er "int" og year er "year"

Jeg har så lavet en opstilling af et par løkker og recordsets der generer en html tabel med opstilling af antal besøg pr. måned.

Hvordan får jeg nemmest lavet en række lige under oplistningen af bynavne, der med fed skrift viser det totale antal besøg for hver by?

Her er min kode:

  <%
Dim myConn
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.open(sConn)


set RSstationnames=Server.CreateObject("ADODB.recordset")
RSstationnames.Open "SELECT * FROM steder WHERE touch = -1 ORDER by navn", myConn

set RSstationcounter=Server.CreateObject("ADODB.recordset")
RSstationcounter.Open "SELECT * FROM steder WHERE touch = -1 ORDER by navn", myConn
%>
<%
set RScounts=Server.CreateObject("ADODB.recordset")
RScounts.Open "SELECT * FROM stats", myConn
%>





<table width="95%" border="1" align="center" cellpadding="10" cellspacing="0" bordercolor="#FFFFFF">
              <tr>
                <td valign="top" bordercolor="#3C6088" class="kontrol-menu"><p>Tæller</p>
                  <table width="100%" border="1" cellspacing="0" cellpadding="0">
                    <tr>
                    <td height="80"></td>
                  <%
                  stationCounter = 0
                 
                  colorcounter = 0
                 
                 
                  Do while not RSstationnames.eof
                  if colorcounter = 1 then
                  color = "#FFFFFF"
                  else
                  color = "#E3EAF2"
                  end if
                    stationname = RSstationnames("navn")
                    tecnavn = RSstationnames("tecnavn")
                    stationCounter = stationCounter + 1
                    %>
                    <td height="80" valign="top" bgcolor=<%=color%> class="Rotate90"><%=stationname%></td>
                    <%
                    colorcounter = colorcounter + 1
                    if colorcounter = 2 then
                    colorcounter = 0
                    end if
                    RSstationnames.movenext
                    loop
                    %>
                    </tr>
                    <%
                    buildTDnumber = 0
                    Do while not RScounts.EOF
                    %>
                    <tr>
                    <td class="kontrol-indholdstekst"><%=MonthName(RScounts("Month"))%> <%=RScounts("Year")%></td>
                    <%
                    colorcounter = 0
                    Do while not buildTDnumber = stationCounter
                    if colorcounter = 1 then
                  color = "#FFFFFF"
                  else
                  color = "#E3EAF2"
                  end if
                    Countertecnavn = RSstationcounter("tecnavn")
                    buildTDnumber = buildTDnumber + 1%>
                    <td align="right" bgcolor=<%=color%> class="kontrol-indholdstekst"><%=RScounts(""&Countertecnavn&"")%></td>
                   
                    <%
                    colorcounter = colorcounter + 1
                    if colorcounter = 2 then
                    colorcounter = 0
                    end if
                    RSstationcounter.movenext
                    loop%>
                    </tr>
                    <%
                    set RSstationcounter=Server.CreateObject("ADODB.recordset")
                    RSstationcounter.Open "SELECT * FROM steder WHERE touch = -1 ORDER by navn", myConn
                    buildTDnumber = 0
                    RScounts.movenext
                    loop
                    %>                 
                  </table>
                <p></p></td>
              </tr>
            </table>