Første og sidste ID i en rekrusiv menu

Denne while-løkke kan vel gøre det.

StartID = Request.QueryString("ID") ' Valgte ID

' Find valgte ID
Set RS = "select * from tabel where ID=" & CStr(StartID)
' Sålænge der findes en ParentID hentes den i stedet for
do while (CInt(RS("ParentID")) <> 0)
  Set RS = "select * from tabel where ID=" & RS("ParentID")
loop
' Udskriv ID
Response.Write("ID=" & RS("ID"))

Fik ikke forklaret mig ordenligt - det skal _så_vidt_muligt laves som et array. Vil ikke lave unødige connections til databasen

Vil du så indlæse alle records i et array først. ?

yeps - har siddet og kigget på http://activedeveloper.dk/aspdigital/2001081401.asp men kan ikke få det til at virke når jeg også vil angive at side.asp?id=xx (xx er et tal)

Hvis du anvender det nederste kodeeksempel skal du være opmærksom på at der er fejl i det.

Variablen arrResult skal rettes til arrRecords. (2 steder)

Jeg har fået den til at virke.

også hvis du i din sql sætning tilføjer "where id = 4"
Har godt set at der er fejl i scriptet - har også fået det til at virke, men ikke når der kommer et id på..

Så prøv denne:

<%
set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("test.mdb")

StartID = CInt(Request.QueryString("ID")) ' Valgte ID

set rs = server.createobject("adodb.recordset")
sqlTable = "select * from menuarr order by ID"
rs.open sqlTable, con, 1

if not rs.eof then
  Dim Cnt, LastID, ValgteID
  ReDim strItems(rs.RecordCount) ' Gør plads til menunavne
  arrRecords = rs.getrows()

  buildTop(arrRecords) ' Overfør menunavne til strItems

  for i = 0 to Cnt ' udskriv menu
    if ValgteID = i then
      Response.Write("<b>" & strItems(i) & "</b>"& "<br>")
    else
      Response.Write(strItems(i) & "<br>")
    end if
  next
  Response.Write("Valgte: " & ValgteID & "<br>")
end if
rs.Close
Set rs = Nothing

'\\ først vores funktion der henter alle toppunkter ud
Cnt = 0
sub buildTop(arrRecords)
  strDisplayTop = ""
  for i=0 to ubound(arrRecords,2)
    '\\ hent records hvor parentid = 0
    if arrRecords (2,i) = 0 then
      if arrRecords(0,i) = StartID then
        ValgteID = Cnt ' Valgte ID er en hovedmenu
      end if
      LastID = Cnt
      strItems(Cnt) = arrRecords(0,i) & ", " & arrRecords(1,i)
      Cnt = Cnt + 1
      buildSub arrRecords, arrRecords(0,i), 0
    end if
  next
end sub

'\\ vores funktion til at bygge subs
sub buildSub(arrRecords,intParentid,intIndent)
  for j=0 to ubound(arrRecords,2)
    '\\ her looper vi igennem vores array for at finde de records
    '\\ der er sub til vores parent record
    if arrRecords(2,j) = intParentid then
      if arrRecords(0,j) = StartID then
        ValgteID = LastID ' Her er valgte hoved ID til submenuen
      end if
      '\\ her opbygger vi vores "indrykning"
      strIndent = ""
      for x=0 to intIndent
        strIndent = strIndent & "&nbsp;"
      next
      '\\ og her opbygges vores streng med subs, samt henter subs til subs ... osv
      strItems(Cnt) = strIndent & arrRecords(0,j) & ", " & arrRecords(1,j)
      Cnt = Cnt + 1
      buildSub arrRecords, arrRecords(0,j), intIndent+1
    end if
  next
end sub

%>

Løsning blev skrottet, og aldrig realiseret...