Avanceret grupperingsudtræk

Er det noget i denne stil?

SQL = "Select CountyID from Pages group by CountyID;"
SET RS = Conn.Execute(SQL)

Do while NOT RS.EOF
    subSQL = "Select Name from County where CountyID = '"& RS("CountyID") &"';"
        SET subRS = Conn.Execute(subSQL)
   
    Response.Write("<b>" & subRS("Name") & "</b>")
 
        subsubSQL = "Select * from Pages where CountyID = '"& RS("CountyID") &"' and Main = 1;"
        SET subsubRS = Conn.Execute(subsubSQL)

        Do while NOT subsubRS.EOF
            Response.Write("<b>" & subsubRS("Titel") & "</b>")
 
            subsubsubSQL = "Select * from Pages where CountyID = '"& RS("CountyID") &"' and Main = 2";
            SET subsubsubRS = Conn.Execute(subsubsubSQL)

            Do while NOT subsubRS.EOF
                    Response.Write("-&nbsp;<a href=&quot;" & subsubsubRS("Parent") & "&quot;>" & subsubsubRS("Titel") & "</a>")
            subsubRS.MoveNext
            loop
        subsubRS.MoveNext
        loop
RS.MoveNext
loop

Hej,

Ja det er helt sikkert noget i den stil, jeg har rettet lidt i det fordi der manglede et par do whiles osv...og det virker næsten...men kun næsten..

Den kode jeg har nu er:

<%
SQL = "Select County from Pages WHERE County > 0 group by County "
SET RS = Conn.Execute(SQL)

Do while NOT RS.EOF
    subSQL = "Select * from County where CountyID = " & RS("County")
    set rs2 = Conn.Execute(subSQL)
   
    Do While not rs2.eof
   
    Response.Write("<b>" & ucase(rs2("Name")) & "</b><br>")
 
        subsubSQL = "Select * from Pages where County = "& RS("County") &" and Main = 1"
        SET subsubRS = Conn.Execute(subsubSQL)

        Do while NOT subsubRS.EOF
            Response.Write("<b><a href='" & subsubRS("pageid") & "'>" & subsubRS("Title") & "</b></a><br>")
             
            subsubsubSQL = "Select * from Pages where County = "& RS("County") &" and Main = 2"
            SET subsubsubRS = Conn.Execute(subsubsubSQL)

            Do while NOT subsubsubRS.EOF
                    Response.Write "<a href='" & subsubsubRS("pageid") & "'>" & "- " & subsubsubRS("Title") & "</a><br>"
            subsubsubRS.movenext
            loop
                   
        subsubRS.MoveNext
        loop
       
    rs2.movenext
    loop
   
   
RS.MoveNext
loop
%>

Jeg får ingen errors men det viser det bare ikke helt korrekt. Kan du gennemskue det?

Kan du ikke skrive hvordan den viser det og så hvordan det skal se ud?

Jeg tror der er noget med din database.
Når man tilføjer en underside, som bliver den kædet sammen med alle de hovedsider  der tilknyttet en bestemt county. Jeg forstår det sådan at en underside kun skal tilknyttes en bestemt hovedside under en bestemt county. Hvis det er forstået rigtgt, så gøres det nemmest ved at laven tabel til hvor du ligger under siderne og så ligger du hovedsiderne i den nu værende.

f.eks

table hoved
-----------
hovedID
title
countyID

table pages
-----------
pageID
hovedID
title

table county
------------
countyID
name

Hvis jeg har forstået det rigtigt :-)

Hej,

Jeg har godt nok ikke lavet database strukturen som dig, men det hele har løst sig nu. Det var bare fordi der var nogle tal der ikke var kommet helt rigtigt når man oprettede nye sider.

Du får mange tak for hjælpen.

/pfp

Hej igen,

Jeg ville blive meget glad, hvis du har tid til at hjælpe mig lidt her også:
http://www.eksperten.dk/spm/427724

/pfp