Hvordan laver jeg loop inde i loop?

Du skal nok bruge to forskellige resultsets, en til det ydre loop (BestilTabel) og en til det indre loop (FFTabel). Hvis det stadig ikke fungerer, kan du forsøge med en forbindelse mere som du udfører det indre loop på (jeg er nemlig ikke sikker på om du kan have to forspørgsler kørende på den samme forbindelse).

Det skulle give noget kode i stil med dette:

'TODO: Opret en ny connection her som du kalder ConnFF
'      Den skal benyttes til at lave opslag i den FFTabel

strSQL = "Select * From KundeTabel where LoginID = '" & Session("navn") & "'"
Set rs = Conn.Execute(strSQL)
If rs.eof Then
    Response.Write "Bruger findes ikke"
Else
    strNav = "" & rs("IDkunde") & ""
End If

strSQL1 = "Select * From BestilTabel where KundeID = " & strNav & ""
Set rs = Conn.Execute(strSQL1)
While Not rs.EOF
  strPlan = "" & rs("PlanteID") & ""
  strAntal = "" & rs("AntalID") & ""
  strUdr = "" & rs("UdregnID") & ""

  strSQL2 = "Select * From FFtabel where ID = " & strPlan & ""
  Set rsFF = ConnFF.Execute(strSQL2)

  While Not rsFF.EOF
    strPlant = "<br>" & rsFF("NavnID") & strAntal & strUdr
    Response.Write strPlant       
    rsFF.moveNext
  Loop

  rs.MoveNext
Loop


Prøv det og lad høre om det kan bruges :)

Jeg får følgende fejlmeddelese:

Microsoft VBScript compilation error '800a0408'
Invalid character
/bestil/kurv2.asp, line 36
Ê Ê Response.Write "Bruger findes ikke"
^
Og brugeren er logget ind.

Prøv at fjerne mellemrum foran Response.Write i den linie der fejler (eller erstat dem med nogle nye)...

Microsoft VBScript compilation error '800a040e'

'loop' without 'do'
/bestil/kurv2.asp, line 52
Loop
^
Det er den næst sidste loop... hvor skal do ind?

CRAP! Sorry, der skal vist nok "Do" foran "While", når man slutter med "Loop". Alternativt skal "Loop" udskiftes med "Wend" (den gamle måde at loope med "While" i VB)...

Prøv at kigge det igennem... jeg kan ikke få Do og Loop og Wend til at fungere, uanset hvor og hvordan jeg sætter dem ind.

<%
' Databaseforbindelse1
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/FFdatabase.mdb")
Conn.Open DSN

' Databaseforbindelse2
Set ConnFF = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/FFdatabase.mdb")
ConnFF.Open DSN

' Den skal benyttes til at lave opslag i den FFTabel
strSQL = "Select * From KundeTabel where LoginID = '" & Session("navn") & "'"
Set rs = Conn.Execute(strSQL)

If rs.eof Then
    Response.Write "Bruger findes ikke"
Else
    strNav = "" & rs("IDkunde") & ""
End If
strSQL1 = "Select * From BestilTabel where KundeID = " & strNav & ""
Set rs = Conn.Execute(strSQL1)

While Not rs.EOF
    strPlan = "" & rs("PlanteID") & ""
    strAntal = "" & rs("AntalID") & ""
    strUdr = "" & rs("UdregnID") & ""

strSQL2 = "Select * From FFtabel where ID = " & strPlan & ""
Set rsFF = ConnFF.Execute(strSQL2)

Do

While Not rsFF.EOF
    strPlant = "<br>" & rsFF("NavnID") & strAntal & strUdr
    Response.Write strPlant
rsFF.moveNext
Loop

rs.MoveNext
Loop

Conn.Close
Set Conn = Nothing
%>

Dette burde fungere (jeg har flyttet Do ned på samme linie som While for begge while-sætninger). Husk i øvrigt at lukke begge connections efter endt visning (lige nu lukker du kun Conn, men mangler at lukke ConnFF). Du kan godt bruge samme DSN-streng til at åbne begge connections med, da det er den samme streng for begge...

Jeg har rettet koden til i det følgende:

<%
' Databaseforbindelse1
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/FFdatabase.mdb")
Conn.Open DSN

' Databaseforbindelse2
Set ConnFF = Server.CreateObject("ADODB.Connection")
ConnFF.Open DSN

' Den skal benyttes til at lave opslag i den FFTabel
strSQL = "Select * From KundeTabel where LoginID = '" & Session("navn") & "'"
Set rs = Conn.Execute(strSQL)

If rs.eof Then
    Response.Write "Bruger findes ikke"
Else
    strNav = "" & rs("IDkunde") & ""
End If
strSQL1 = "Select * From BestilTabel where KundeID = " & strNav & ""
Set rs = Conn.Execute(strSQL1)

Do While Not rs.EOF
    strPlan = "" & rs("PlanteID") & ""
    strAntal = "" & rs("AntalID") & ""
    strUdr = "" & rs("UdregnID") & ""

strSQL2 = "Select * From FFtabel where ID = " & strPlan & ""
Set rsFF = ConnFF.Execute(strSQL2)

Do While Not rsFF.EOF
    strPlant = "<br>" & rsFF("NavnID") & strAntal & strUdr
    Response.Write strPlant
rsFF.moveNext
Loop

rs.MoveNext
Loop

Conn.Close
ConnFF.Close
Set Conn = Nothing
Set ConnFF = Nothing
%>

Nu kommer følgend fejl:
ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.
/bestil/kurv2.asp, line 45

Line =     strPlant = "<br>" & rsFF("NavnID") & strAntal & strUdr

Findes der noget felt i tabellen FFTabel der hedder NavnID?

Næh..... du har ret det hedder DKnavnID!!

Og nu ser det ud til at virke....

Tester lige

Perfekt....
Så send mig lige et svar.

Tak for hjælpen

Mvh fauer

Det var så lidt :)

For mig var det løsningen på en halv dags arbejde.

Mvh fauer