Avatar billede bingokaj Nybegynder
17. november 2000 - 13:35 Der er 1 kommentar og
2 løsninger

Loop inde i et loop

Hej med jer

jeg har et loop i asp som ser sådan ud:

                        <%
                            SQLstmt = \"SELECT * FROM elevsider_index\"
                        %>
                       
                        <% Set rs = conn.Execute(SQLstmt) %>
                          <%
                          x=0
                          DO WHILE NOT rs.EOF
                            x=x+1
                              Recid = rs(\"ID\")
                              kategori = rs(\"Kategori\")
                            %>
                                <tr>
                                <td width=\"30\"><img src=\"blank.gif\" width=\"10\" height=\"1\" border=\"0\" alt=\"\"></td>
                                <td valign=\"top\"><font color=\"black\" face=\"Verdana, Arial\" size=\"-1\"><b><a href=\"elevsider.asp?Actionvar=vis_detaljer&Recid=<%=Recid%>&kategori=<%=Recid%>\"><%=kategori%></a></b><br><br></td>
                                <td width=\"10\">&nbsp;</td>
                                <td valign=\"top\" colspan=\"2\">&nbsp;</td>
                                </tr>
                                </font>                                               
                          <%
                                  rs.MoveNext
                                  LOOP
                                  RS.Close
                          %>


Problemet er, at jeg gerne vil have at hver post som loopet generer skal have underpunkter som skal hentes fra en anden tabel i den samme database...

Nogen forslag ??
Avatar billede erikjacobsen Ekspert
17. november 2000 - 13:38 #1
Jeg vil gætte på at du med fordel kunne gøre det som en join i SQL-sætningen, i stedet for
at programmere dig ud af det i ASP. Men så  skal vi vist have flere detaljer
Avatar billede keysersoze Ekspert
17. november 2000 - 13:41 #2
har engang brugt denne:

<%

set conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"scart.mdb\")
set conn2 = Server.CreateObject(\"ADODB.Connection\")
conn2.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"scart.mdb\")
Katid=Trim(Replace(Request(\"katid\"),\"\'\",\"\"))
SQL = \"select * from Produckname order by Productname\"
Set RS = Conn.Execute(SQL)
    if not (rs.BOF or rs.EOF) then
        do while not rs.EOF
            SQL2 = \"select * from products where PNCategory=\" & rs(\"NameId\") & \" and ccategory=\" & Katid & \" order by cname\"
            Set RS2 = Conn2.Execute(SQL2)
                if not (rs2.BOF or rs2.EOF) then
                Response.Write \"<div align=\'center\'>\"
                Response.Write \"<center>\"
                Response.Write \"<table border=\'0\' cellspacing=\'2\' width=\'690\' bgcolor=\'#8DABD5\'>\"
                Response.Write \"<tr><td width=\'650\' bgcolor=\'#FFCC00\'><p align=\'left\'>\" & RS(\"Productname\") & \"</td></tr>\"
                    Do While Not RS2.EOF
                          Response.Write \"<tr><td width=\'650\' bgcolor=\'#8DABD5\'><p align=\'left\'>\" & RS2(\"cname\") & \"</td></tr>\"
                    RS2.MoveNext
                    Loop
                Response.Write \"</table>\"
                Response.Write \"</center>\"
                Response.Write \"</div>\"
                Response.Write \"<br>\"
                end if
            RS2.Close
        rs.movenext
        loop
    end if
RS.Close
Conn.Close
Conn2.Close

%>
Avatar billede kasseper Nybegynder
17. november 2000 - 13:45 #3
F.eks. SQLstmt = \"SELECT e.ID, e.Kategori, u.punkter, u.ID FROM elevsider_index e, underpunkter_tabel u WHERE e.ID = u.ID\"

Her er u din underpunkts tabel eller hvad den nu hedder !
Jeg haaber at din underpunkts tabel har et ID der er foreign key til din elevsider_index tabel, eller sagt på dansk at for hver kategori der har et selvstandigt ID findes der poster i underpunkt_tabel ID\'er for hvert underpunkt til den tabel...
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester