Kategorier og underkategorier

du kan lave det på samme måde

priorTeam = ""
priorPlayer = ""
Do Until RS.EOF
    curTeam = RS("TeamName")
    If curTeam <> priorTeam Then
        If priorTeam <> "" Then
            Response.Write "</UL>"
        End If
        Response.Write "TEAM: " & curTeam & "<UL>"
        priorTeam = curTeam
    End If

    curPlayer = RS("PlayerName")
    If curPlayer <> priorPlayer Then
        Response.Write "<LI>" & RS("PlayerName")
        priorPlayer = curPlayer
    End If
   
    Response.Write "<LI><LI>" & RS("PlayerBoernsName")
   
    RS.MoveNext
Loop
Response.Write "</UL>" ' clean up the tags!

du kan også i stedtfor lave det med nogle SQL kald inde i loopet...:

SQL = "SELECT * FROM Teams"
Set RS = conn.Execute( SQL )


Do Until RS.EOF
  Response.Write "TEAM: " & curTeam & "<UL>"

  teamSQL = "SELECT * FROM Players WHERE Players.TeamID = " & RS("teamID")
  Set teamRS = conn.Execute( SQL )
  Do while not teamRS.EOF
    Response.Write "<LI>" & teamRS("PlayerName")
    'Her kan du lave en ny SQL igen som hender born
    SQL = "SELECT * FROM PlayersBorn WHERE PlayersBorn.playerID = " & teamRS("playerID")
    Set plyserBornRS = conn.Execute( SQL )
    Do while not plyserBornRS.EOF
      Response.Write "<LI><LI>" & plyserBornRS("PlayerName")
      plyserBornRS.movenext
    loop
    teamRS.movenext
  loop
   
  Response.Write "</UL>"
  RS.MoveNext
Loop


Håber du kan se ideen..

Tak for svarene, Eagleeye. Mht dit første svar vil jeg dog gerne have dit bud på, hvad SQL-sætningen skal være. Det er især WHERE-klausulen, som jeg ikke rigtig kan finde ud af

Hvis kolonnen (PlayerBoernsName) ligger i tabellen Player skulle det ikke være noget problem.

Nej, det er netop det. (PlayerBoernsName) er i en tredie tabel, hvor PlayerID er foreign key

Ja jeg kan se problemmet

Du skal nok sql'en i stkk med dette:

sql = "SELECT teams.TeamName, players.PlayerName, Borns.BornName FROM (teams LEFT JOIN players ON teams.teamID = players.teamID) LEFT JOIN Borns ON players.playerID = Borns.playerID;"

Jeg kunne desværre ikke få dit første eksempel til at fungere i 3 niveauer med 3 tabeller.

Nu fungerer det, og det fungerer glimrende. Tak for det!

strSQL = "SELECT Teams.TeamName, Players.PlayerName, Children.ChildrenName, Children.BirthDate FROM Teams INNER JOIN (Players INNER JOIN Children ON Players.PlayerID = Children.PlayerID_FK) ON Teams.TeamID = Players.TeamID_FK ORDER BY Teams.TeamName, Players.PlayerName, Children.BirthDate;"
       
Set rs = MyConn.Execute(strSQL)

response.write "<table>"

priorTeam = ""
priorPlayer = ""
Do Until rs.eof
    curTeam = rs("TeamName")
    If curTeam <> priorTeam Then
        Response.Write "<tr><td bgcolor=#000000><font color=#FFFFFF><b>"& curTeam &"</b></font></td></tr>"
        priorTeam = curTeam
    End If

    curPlayer = RS("PlayerName")
    If curPlayer <> priorPlayer Then
        Response.Write "<tr><td bgcolor=#f2f2f2><b>"& rs("PlayerName") &"</b></td></tr>"
        priorPlayer = curPlayer
    End If
   
    Response.Write "<tr><td>"& RS("ChildrenName") &"</td></tr>"
   
    RS.MoveNext
Loop

response.write "</table>"