Katagori - underkatagori - underkatagori ?????

Jeg har på et tidspunkt selv rodet med et sådant indeks og for mig var løsningen at lave en rekursiv funktion.

Moskjaer -->> Har du et eksempel ? hvordan opbyggede du din Database ??

Ares

Ved ikke om du kan bruge noget her:

http://www.aspfree.com/asp/startpage.asp?id=90
http://www.aspfree.com/asp/startpage.asp?id=29

Prøv at se om det er noget...

Hilsen
Jens

Ved ikke om du kan bruge noget her:

http://www.aspfree.com/asp/startpage.asp?id=90
http://www.aspfree.com/asp/startpage.asp?id=29

Prøv at se om det er noget...

Hilsen
Jens

hmmm, jeg stammer vist i dag ;-)

Jens >> Nej, desværre jeg har ikke brug for en menu med træstruktur. Jeg har faktisk slet ikke brug for en menu.
Jeg mangler en funktion der kan vise hvor i menusystemet man er.

Forside - produkter - biler

Chart.dk har det og vist nok også Jubii.dk

Ares

Tag et kig på emneindekset hos 1klik.dk, som jeg har udarbejdet. Der finder du et eksempel på det du søger.

Send eventuelt en mail til mig på info@moskjaer-data.dk, hvis du ønsker yderligere informationer.

--
Med venlig hilsen

Kurt Moskjær Andersen
Moskjær Data

Det er netop sådan det skal fungere - hvilken fremgangsmåde har du brugt ?

Ares

moskjaer>> hvorfor ikke lade alle se det ??

Jamen, her kommer den da. Koden kan givetvis optimeres:

    Function makeCatPath(id)
      If id = \"\" then
        Response.End
      end if
        Set rs = Server.CreateObject(\"ADODB.Recordset\")
        DbConnect conn
        SQL = \"SELECT * FROM kategorier WHERE id = \" & id
        rs.Open SQL, conn, 3

        If Not rs.EOF Then
            If LCase(rs(\"topcat\")) <> \"p\" Then
                writeString = makeCatPath(CInt(rs(\"topcat\"))) & \" / <B><A HREF=\"\"indeks/kategori.asp?catID=\" & rs(\"id\") & \"\"\">\" & rs(\"tekst\") & \"</A></B>\"
            Else
                writeString = \"<B><A HREF=\"\"indeks/default.asp\"\">Indeksoversigt</A></B> / <B><A HREF=\"\"indeks/kategori.asp?catID=\" & rs(\"id\") & \"\"\">\" & rs(\"tekst\") & \"</A></B>\"
            End If
        End If

        rs.Close
        makeCatPath = writeString
    End Function

--
Med venlig hilsen

Kurt Moskjær Andersen
Moskjær Data

Kan du sende mig databasen??

Jep - det vil jeg gerne jeg er bare ikke hjemme ved min computer før imorgen (søndag) - har du en email...

yep - fun4you@fun4you.dk

Du kan finde et komplet system, til denne brug her:

http://www.asp101.com/articles/jason/yahoonavbar/default.asp

mosekjaer ->

den skal jo sætte id på den ene eller den anden måde!

Hvordan?