If URL er lig med "/mappe1/ Then?

Forkert formuleret:

URL = "/mappe1/mappe2/

Menupunkt1 bgcolor="#F00000"
Menupunkt2 bgcolor="#FF0000"
Menupunkt3 bgcolor="#FF0000"
Menupunkt4 bgcolor="#FF0000"

URL = "/mappe1/mappe2/mappe3/
Menupunkt1 bgcolor="#FF0000"
Menupunkt2 bgcolor="#F00000"
Menupunkt3 bgcolor="#FF0000"

Håber det kan illustrere, hvad det er jeg vil :o)
Menupunkt4 bgcolor="#FF0000"

URL = "/mappe1/mappe2/
Menupunkt1 bgcolor="#F00000"
Menupunkt2 bgcolor="#FF0000"
Menupunkt3 bgcolor="#FF0000"
Menupunkt4 bgcolor="#FF0000"

URL = "/mappe1/mappe2/mappe3/
Menupunkt1 bgcolor="#FF0000"
Menupunkt2 bgcolor="#F00000"
Menupunkt3 bgcolor="#FF0000"
Menupunkt4 bgcolor="#FF0000"

Jeg ville helst have det ind i et CSS-dokument. Kan det lade sig gøre?

#steen_hansen
Overvejet brugen af en database?
Alternativt, findes der altid 4 menupunkter som skal have forskellige style, for hver url?

Nej, jeg har ikke overvejet brugen af DB. Er du frisk på den? :o)

Og nej, der bliver 2 forskellige menuer: 1 inden man logger ind, og en anden, når man er logget på.

Jeg skal måske lige sige, at det ser sådan her ud i CSS:

A.menu
{
    WIDTH: 100%; DISPLAY: block;
    PADDING: 5px 0px 5px 5px;
    FONT:bold 11px Verdana, Arial, Helvetica;
    TEXT-DECORATION: none;
    COLOR: white;
}
A.menu:active, A.menu:link, A.menu:visited
{
    BACKGROUND-COLOR: #393939;
    COLOR: E7E7E7;
    TEXT-DECORATION: none;
}

Det er en menu magen til den du finder på bt. dk og sh-online.dk

Jeg fandt noget gammel kode (jeg har ikke lavet det, kan ikke lige gennemskue det hele), som blev brugt til at finde frem til URL'en. Kan noget af det bruges?

<%
    'Find hvilket menupunkt der er trykket på
    set ConnTemp=server.CreateObject("ADODB.Connection")
    ConnTemp.Open Database

    'hvorerjeg = "http://"&request.ServerVariables("SERVER_NAME")&request.ServerVariables("URL")
    hvorerjeglang = request.ServerVariables("URL")&"?"&request.ServerVariables("QUERY_STRING")
    hvorerjeg = request.ServerVariables("URL")
    hvorerjeglang = replace(hvorerjeglang,"'","''")

    sqllang="SELECT * FROM TBLMenu WHERE hovedomr = " & hovedomr & " AND url='"&hvorerjeglang & "'"
'    Response.Write(SQLLang)
'    response.end

    Set RSTemp=ConnTemp.Execute(SQLLang)

    If RSTemp.EOF Then
        SQLTemp="SELECT * FROM TBLMenu WHERE hovedomr = " &hovedomr & " AND URL = '" & hvorerjeg & "'"
        Set RSTemp = ConnTemp.Execute(SQLTemp)
        If RSTemp.EOF Then
            punkt=""
        Else
            punkt=" <b>:</b> " & RSTemp("navn")
        End If
    Else
        punkt=" <b>:</b> " & RSTemp("navn")
    End If

    RSTemp.Close
    Set RSTemp = Nothing
    ConnTemp.Close
    Set ConnTemp = Nothing
%>

Jeg prøver mig lidt frem med dette her, lægger hele svaret senere:

<%
sURL = Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")
sURL = Left(sURL, (InStrRev(sURL, "/")))
If sURL = "True" Then
 
End If
%>