hide/unhide

jeg har lavet det sådan at der dukker en ny selectbox på nå man klikker på et felt i en anden selectbox, men det virker ikke i netscape, kan man få den til det,?, her er hele sidens kildekoden:
<table>
    <tr><td></td></tr>
    <tr>
        <td class=\"normal\"><img src=\"../grafik/jemo_blank.gif\"></td>
        <td>
<form action=\"opretpunkt-exe.asp\" name=\"opret\" method=\"post\" >
        <% sql=\"SELECT COUNT(*) AS hoejde FROM menu\"
                Set rs_antal=db_base.execute(sql)
                antal=rs_antal(\"hoejde\")+1%>
            <select name=\"menu\" size=\"<%= antal %>\" class=\"normal\" onclick=\"fnDispThis(this[this.selectedIndex].value)\">
            <%
            menu(0)
           
            function menu(tilhoreid)
                taeller=taeller+1
                sql=\"select * from menu where tilhoerid=\"&tilhoreid&\" order by hiraki\"
                set rs_functionsmenu=db_base.execute(sql)
                while not rs_functionsmenu.eof
               
                    if rs_functionsmenu(\"tilhoerid\") then
                        tilhoerid=rs_functionsmenu(\"tilhoerid\")
                        while not tilhoerid=0
                            sql=\"select * from menu where id=\"&tilhoerid&\"\"
                            set rs_tjek_tilhoreid=db_base.execute(sql)
                                tilhoerid=rs_tjek_tilhoreid(\"tilhoerid\")
                                neveau=neveau&\"&nbsp;&nbsp;&nbsp;\"
                        wend
                    end if
                    response.write\"<Option value=\"&rs_functionsmenu(\"id\")&\">\"&neveau&rs_functionsmenu(\"menu\")&\"</option>\"
                    neveau=\"\"
                    menu(rs_functionsmenu(\"id\"))
                rs_functionsmenu.movenext
                wend
            end function%>
</select>

        </td>

<SCRIPT LANGUAGE=javascript>


constMaxItem=100

function fnDispThis(active)
{
<% sql =\"select * from menu order by id\"
    set rs_menutingtest=db_base.execute(sql)
    while not rs_menutingtest.eof %>
   
    if (<%= rs_menutingtest(\"id\") %>!=active)
        {
        document.all(\"sub\"+<%= rs_menutingtest(\"id\") %>).style.display=\"NONE\"
        }
    else
        {
        document.all(\"sub\"+active).style.display=\"BLOCK\"
        }
   
   
    <%rs_menutingtest.movenext
    wend%>

}

</SCRIPT>
       
        <td class=\"normal\"><img src=\"../grafik/jemo_blank.gif\"></td>
        <td class=\"normal\" valign=\"top\">
   
    <%
    sql=\"select * from menu order by hiraki asc\"
    set rs_menu_til_indhold_kiraki=db_base.execute(sql)
    while not rs_menu_til_indhold_kiraki.eof %>
    <div  id=\"sub<%= rs_menu_til_indhold_kiraki(\"id\") %>\" style=\"Display:\'NONE\';\">
    <%= rs_menu_til_indhold_kiraki(\"menu\") %><br>
    <select size=\"3\" name=\"hieraki<%= rs_menu_til_indhold_kiraki(\"id\") %>\" >
    <%
    sql=\"select * from indhold where menuid=\"&rs_menu_til_indhold_kiraki(\"id\")&\" order by hiraki asc\"
    set rs_vaelg_indhold=db_base.execute(sql)%>

    <%
    while not rs_vaelg_indhold.eof %>
   
    <Option value=\"<%= rs_vaelg_indhold(\"id\")%>\"><%= rs_vaelg_indhold(\"overskrift\")%></option>
    <%rs_vaelg_indhold.movenext
    wend
    %>
</select>   
</div>
<% rs_menu_til_indhold_kiraki.movenext
wend %>
   
        </td>
    </tr>


<tr>
        <td></td>
        <td><input type=\"submit\"></td>
    </tr>
   
</table>
</form>