Hvor jeg kom fra getParent

Så du vil kun finden den aktuelle parent??

Så skal du kun ET niveau, hvilket er en direkte select:

getSingleParent(funkPID)
dim funkRS
  set funkRS= conn.execute("select RefID from menu where ID="& pageID)
  getSingleParent= funkRS("refID")
end function

... En lille fejl:
getSingleParent(funkPID)
dim funkRS
  set funkRS= conn.execute("select RefID from menu where ID="& funkPID)
  getSingleParent= funkRS("refID")
end function

Men hvad nu hvos der står

Mærker
-Til Hovedet
--Hjelme
---Æggehjelm
---Metalhjelm
--Hatte
--Huer

Og jeg klikker på "Metalhjelm" finder den så også "Til Hovedet" ?

Nej, så finder den "Hjelme".

Du bliver nød til at definere opgaven lidt bedre :)

Så det du vil er at uanset hvilket niveau du på er i din menu, så vil du finde parentID'et på det element som er lige før topelementet. Altså kun ID'er fra niveau 2 ("Mærker" er topniveau og defineret som niveau 1)

Fennec ja sorry jeg ikke udtrykte mig tydliger

Hmmmm. Ja, Den er sku lidt indviklet at klare...

Hvad indeholder ShowMenu variablen af data?

et tal
databasen har et ID og et parentID og tallet i showmenu er et ID

Så i dette tilfælde er det id'et på "Mærker"?

yes, sorry var lige ude

Prøv denne (ikke testet)

function get2TopParent(funkPID, funkReturnID)
dim funkRS
    set funkRS = Connect.execute("select RefID from menu where ID="& funkPID)
    if funkRS(0) = round(ShowMenu) then
        getParent = funkReturnID
    else
        getParent = getParent(funkRS(0), funkPID)
    end if
end function

pID = get2TopParent(123, 123)

Den kaldes med samme id i begge parametre.

Crap. Fejl igen:

function get2TopParent(funkPID, funkReturnID)
dim funkRS
    set funkRS = Connect.execute("select RefID from menu where ID="& funkPID)
    if funkRS(0) = round(ShowMenu) then
        get2TopParent = funkReturnID
    else
        get2TopParent = get2TopParent(funkRS(0), funkPID)
    end if
end function

Hej Fennec hvad er funkReturnID ??

Det ID som skal returneres.

Det fungere på den måde at det forige fundet id sendes med i funktionen. Nå man derfor har fundet det allerøverste ID, så returnere vi det foregårende ID i stedet for det aktuelle fundet.

Jeg kan simelhen ikke finde ud af at få det til at virker :o(

Den fungerede ikke helt rigtigt. Jeg har testet på en database med disse data:
id, refID
87, NULL
837, 87
856, 837
910, 856

Der har jeg brugt denne funktion:
function get2TopParent(funkPID)
dim funkRS
    set funkRS = oConn.execute("select refID from menu where ID="& funkPID)
    if funkRS(0) = round(ShowMenu) then
        get2TopParent = funkPID
    else
        get2TopParent = get2TopParent(funkRS(0))
    end if
end function

disse 3 kald returnere alle 837:
response.write get2TopParent(837) &"<br>"
response.write get2TopParent(856) &"<br>"
response.write get2TopParent(910) &"<br>"

... ShowMenu = 87 da det er top menu punktet.

oh det længe siden smid et svar

Det får du her.
.o) <-- One Eyed Jack