Dobbelt sub i menu eller hur?

Jeg ønsker, at kombinere disse to script! Det har bare voldt så mange problemer, så nu er jeg nødtil at spørge.

Fra script 1 skal bruges lukke/åbne (javascritet)
Fra script 2 skal bruges udskrivsfunktionen med parentid bruges

Min problem er, hvordan jeg får skrevet <div display:none> når WriteElements kaldes i sin egen sub! Jeg har prøvet med dobbelt loops, ekstra sub til undermenuer alt uden held.

???:-) karsten_larsen


Script 1
<SCRIPT language=JavaScript>
    function showMnu(id) {
        var styleCheck = document.getElementById("mnu" + id).style.display;
        //alert(styleCheck);
       
        if (styleCheck == "inline") {
            document.getElementById("mnu" + id).style.display = "none";
        }
        if (styleCheck == "none") {
            document.getElementById("mnu" + id).style.display = "inline";
        }
    }
</SCRIPT>

<%
' skrevet af medions http://www.medions.dk/bransholm/
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\menu.mdb"
        SQL = "SELECT * FROM menu"
        Set rs = Conn.Execute(SQL)

    While NOT rs.EOF
        With Response
            .Write("<div style='Cursor:Hand; Font-Family:Verdana; Font-Size: 13px;' OnClick='showMnu(" & rs("mnuID") & ");'>" & rs("mnuNavn") & "</div>" & vbCrLf)
            .Write("<div style='Cursor:Hand; Font-Family:Verdana; Font-Size: 11px;display:none;' id='mnu" & rs("mnuID") & "'> - undermeu<br> - undermenu</div>" & vbCrLf)
        End With
    rs.MoveNext
    Wend
   
    Set rs = Nothing
    Conn.Close
    Set Conn = Nothing
%>

Script 2
<%
' skrevet af eagleye  www.eksperten.dk
Sub writeElements(pid,level)
  Dim rs, strSql
  strSql = "SELECT * FROM menu WHERE parentid=" & pid
  Set rs = Conn.Execute(strSql)
  If Not rs.Eof Then
    Do While Not rs.Eof
      Response.Write "<div style=""margin-left:" & 15 * level & "px"">"
      Response.Write rs("mnuNavn")
      Response.Write "</div>"
        WriteElements rs("mnuID"), level + 1 'udskriv alle elementer under dette
 
      rs.MoveNext
    Loop
  End If
  rs.Close
  Set rs = Nothing
End Sub %>


<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\menu.mdb"
writeElements 0,0
Conn.Close
Set Conn = Nothing
%>


<script language="JavaScript">
    window.open = SymRealWinOpen;
</script>