Tilretning af menu 2

Som fortsættelse af http://www.eksperten.dk/spm/300024 ønsker jeg nu at menuen ikke klapper sammen når brugeren er inde på det pågældende menupunkt.

Eksempel:

Menupunkt 1
Menupunkt 2
  UnderMenupunkt 2-1
  UnderMenupunkt 2-2
Menupunkt 3
  UnderMenupunkt 3-1
  UnderMenupunkt 3-2
Menupunkt 4

Brugeren klikke på f.eks.  UnderMenupunkt 2-2

Så ser menuen sådan ud når siden loades:

Menupunkt 1
Menupunkt 2
Menupunkt 3
Menupunkt 4

Den burde se sådan ud:

Menupunkt 1
Menupunkt 2
  UnderMenupunkt 2-1
  UnderMenupunkt 2-2
Menupunkt 3
Menupunkt 4


Her er min menu kode:

<body onLoad="skiftKlasse(0,'none','showit','hideit','div');skiftKlasse(0,'none','mnbutblank','mnplus','img');skiftKlasse(0,'none','expblank','expandit','img');skiftKlasse(0,'none','expblank2','expandit2','img'); showHideLayers('HideOnloadDiv','','hide');">
        <div id="HideOnloadDiv" style="position:absolute; left:0px; top:0px; width:100%; height:100%; background-color:#ffffff; visibility:visible; z-index:2"></div>
        <div id="Layer1" style="position:absolute; left:25px; top:25px; width:160px; z-index:1">
            <p class="oclinks">
                <a href="java script:;" onClick="skiftKlasse(0,'none','hideit','showit','div');skiftKlasse(0,'none','mnplus','mnminus','img')">
                    <br>
                    <strong>&Aring;ben</strong></a> | <a href="java script:;" onClick="skiftKlasse(0,'none','showit','hideit','div');skiftKlasse(0,'none','mnminus','mnplus','img')">
                    <strong>Luk</strong></a>
            </p>
            <br>
            <br>
            <!-- #include file="databaseconn.asp" -->
            <%
                tal = 1
                under = 0
                SQL = "SELECT * FROM menu"
                Set rs = Conn.Execute(SQL)
               
                do while not rs.eof
                    SQL = "SELECT * FROM undermenu where menuid='" & rs("id") & "'"
                    Set res = Conn.Execute(SQL)
                    under = 0
                    if not res.eof then
                        under = 1
                        response.Write "<p class=""mndivhdr"" onClick=""skiftKlasse(1,'mn" & tal & "','showit','hideit','div');skiftKlasse(1,'but" & tal & "','mnminus','mnplus','img')"">" & vbCrLf
                        response.Write rs("navn") & "</P>" & vbCrLf
                    else
                        'response.Write "<p class=""mndivhdr"">"
                        insert_link "mndivhdr", rs("link"), rs("navn")
                        response.Write "</p>" & vbCrLf
                    end if
                    if not res.eof then
                        under = 1
                        response.Write "<div id=""mn" & tal & """ class=""hideit"">" & vbCrLf
                        do while not res.eof
                            'response.Write "<p class=""sublinks"">"
                            insert_link "sublinks", res("link"), res("navn")
                            response.Write "</p>" & vbCrLf
                            res.movenext
                        loop
                    end if

                    if under = 1 then
                        response.Write "</div>" & vbCrLf
                    end if
                    rs.movenext
                    tal = tal + 1
                loop
               
            %>
        </div>

Siden kan ses her:  http://80.160.119.108/miljoselskab/www/index.asp?page=forside.asp

log ind med exp og exp