Fodeling/sortering af data

Du kan sortere det i stil med:

sql = "select * from holdnavne left join trænernavne on holdnavne.id = trænernavne.holdid order by holdnavne.gruppe, holdnavne.Holdnavn"

Lave noget som udsriver det i stil med:


oldHold=""
oldGruppe=""
response.write "<table><tr>"
do while not rs.EOF
  if oldGruppe<>rs("gruppe") then
    oldGruppe = rs("gruppe")
    response.write "<td>"
    response.write "<table><tr><td>" & oldGruppe & "</td></tr>"
  end if
  if oldHold <> rs("holdnavn") then
    oldHold = rs("holdnavn")
    response.write "<tr><td>" & rs("holdnavn") & "</td></tr>"
  end if
  response.write "<tr><td>" & rs("Trænernavn") & "</td></tr>"

  rs.movenext
  if rs.EOF then
    response.write "</table></td>"
  end if
  if not rs.EOF
    if oldGruppe<>rs("gruppe") then response.write "</td>"
  end if
loop
response.write "</tr></table>"

Det hele er i en kolonne det skulle gerne være i 3

Jeg har gjort følgende, men kan det forkortes på en eller anden måde:
<%


Set Apples2 = Server.CreateObject("ADODB.Connection")

ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; "
ConnStr = ConnStr & "DBQ=" & Server.MapPath("db/others.mdb")
Apples2.Open(ConnStr)


sql1 = "SELECT * FROM Holdnavne order By Holdnavn"

set rs1 = Apples2.execute(sql1)
if rs1.eof or rs1.bof then

else
    s = s & "<table border=""0"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"" bordercolor=""#111111"" width=""100%"" id=""AutoNumber2"">" & vbcrlf
    u = u & "<table border=""0"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"" bordercolor=""#111111"" width=""100%"" id=""AutoNumber2"">" & vbcrlf
    o = o & "<table border=""0"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"" bordercolor=""#111111"" width=""100%"" id=""AutoNumber2"">" & vbcrlf
    do until rs1.eof
    select case rs1("Gruppe")
    case "Senior"
    s = s & "        <tr>" & vbcrlf
    s = s & "          <td width=""100%"" colspan=""2""><b><font face=""Verdana"" size=""2"">" & vbcrlf
    s = s & "          " & rs1("Holdnavn") & "</font></b></td>" & vbcrlf
    s = s & "        </tr>" & vbcrlf
    Case "Ungdom"
    u = u & "        <tr>" & vbcrlf
    u = u & "          <td width=""100%"" colspan=""2""><b><font face=""Verdana"" size=""2"">" & vbcrlf
    u = u & "          " & rs1("Holdnavn") & "</font></b></td>" & vbcrlf
    u = u & "        </tr>" & vbcrlf
    Case "Oldboys"
    o = o & "        <tr>" & vbcrlf
    o = o & "          <td width=""100%"" colspan=""2""><b><font face=""Verdana"" size=""2"">" & vbcrlf
    o = o & "          " & rs1("Holdnavn") & "</font></b></td>" & vbcrlf
    o = o & "        </tr>" & vbcrlf
    end select
    sql2 = "select * from Trænernavne Where holdid = " & rs1("id") & " order by Trænernavn;"
    set rs2 = Apples2.execute(sql2)

do until rs2.eof
select case rs1("Gruppe")
case "Senior"
s = s & "        <tr>" & vbcrlf
s = s & "          <td width=""100%"" colspan=""2""><font face=""Verdana"" size=""1"">&nbsp;&nbsp;" & vbcrlf
s = s & "          </font><font face=""Verdana"" size=""2"" color=""#008000"">" & rs2("Trænernavn") & "</font></td>" & vbcrlf
s = s & "        </tr>" & vbcrlf
Case "Ungdom"
u = u & "        <tr>" & vbcrlf
u = u & "          <td width=""100%"" colspan=""2""><font face=""Verdana"" size=""1"">&nbsp;&nbsp;" & vbcrlf
u = u & "          </font><font face=""Verdana"" size=""2"" color=""#008000"">" & rs2("Trænernavn") & "</font></td>" & vbcrlf
u = u & "        </tr>" & vbcrlf
Case "Oldboys"
o = o & "        <tr>" & vbcrlf
o = o & "          <td width=""100%"" colspan=""2""><font face=""Verdana"" size=""1"">&nbsp;&nbsp;" & vbcrlf
o = o & "          </font><font face=""Verdana"" size=""2"" color=""#008000"">" & rs2("Trænernavn") & "</font></td>" & vbcrlf
o = o & "        </tr>" & vbcrlf
end select
rs2.movenext
loop
rs2.close
select case rs1("Gruppe")
case "Senior"
s = s & "        <tr>" & vbcrlf
s = s & "          <td width=""50%""><font face=""Verdana"" size=""1"">&nbsp;</font></td>" & vbcrlf
s = s & "          <td width=""50%""><font face=""Verdana"" size=""1"">&nbsp;</font></td>" & vbcrlf
s = s & "        </tr>" & vbcrlf
Case "Ungdom"
u = u & "        <tr>" & vbcrlf
u = u & "          <td width=""50%""><font face=""Verdana"" size=""1"">&nbsp;</font></td>" & vbcrlf
u = u & "          <td width=""50%""><font face=""Verdana"" size=""1"">&nbsp;</font></td>" & vbcrlf
u = u & "        </tr>" & vbcrlf
Case "Oldboys"
o = o & "        <tr>" & vbcrlf
o = o & "          <td width=""50%""><font face=""Verdana"" size=""1"">&nbsp;</font></td>" & vbcrlf
o = o & "          <td width=""50%""><font face=""Verdana"" size=""1"">&nbsp;</font></td>" & vbcrlf
o = o & "        </tr>" & vbcrlf
end select
rs1.movenext
loop
rs1.Close
s = s & "      </table>"
u = u & "      </table>"
o = o & "      </table>"
set rs2 = nothing
set rs1 = nothing
end if
Apples2.Close
        set Apples2 = Nothing
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
  <tr>
    <td width="33%"><%=s%>&nbsp;</td>
    <td width="33%"><%=u%>&nbsp;</td>
    <td width="34%"><%=o%>&nbsp;</td>
  </tr>
</table>