Stifinder system over Access database

Man er nødt til at have noget ASP (eller noget andet ss scripting) med for at få snablen ned i Access.

En løsning hvor man bruger ASP til at hente sagerne fra Access, og til at generere JS til siden har jeg brugt et par gange.

Hvis du bruger dette:

<!--#include file=\"global.var\" -->
<%
Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open Datasource1
set frugtmanagement=connect.execute(\"select * from menupunkt where menupunkt_sub=\'frugtmanagement\'\")
set overlevelsesudstyr=connect.execute(\"select * from menupunkt where menupunkt_sub=\'overlevelsesudstyr\'\")
%>


<style type=\"text/css\">
<!--
input {
        background:white;
        font-size:9px;
        font-family=verdana;
        color:000000;
        height:11;
        width:50;
        border:0;
        marginheight:0;
        topmargin:0;
}
// -->
</style>
<html>
<head>

<script language=\"JavaScript\">
function clickTree()
{ var dest_id, origin, dest
  origin = window.event.srcElement
  if (origin.className == \"tree1_class\")
  { dest_id = origin.id + \"_sub\"
    dest = document.all(dest_id)
    if (dest.style.display == \"none\")
      { dest.style.display = \"\"
        origin.src = \"minus.gif\" }
      else { dest.style.display = \"none\"
            origin.src = \"plus.gif\" }
  }
}

document.onclick = clickTree;
</script>

</head>
<body bgcolor=\"#9FAED0\" text=\"#000000\" vlink=\"#000000\" link=\"#000000\" alink=\"#000000\" leftmargin=3 rightmargin=0>
<div id=tree1>
    <img src=\"minus.gif\" id=branch1 class=tree1_class><font size=1>Menu<br>
    <div id=branch1_sub style=\"margin-left:10px;\">
          <img src=\"plus.gif\" id=branch1_1 class=tree1_class><font size=1>Frugtmanagement<br>
          <div id=branch1_1_sub style=\"margin-left:10px; display:None;\">
            <%
            do until frugtmanagement.eof or frugtmanagement.bof%>
            <img src=\"blank_9x9.gif\"><a href=info.asp?info=<%=frugtmanagement(\"menupunkt_navn\")%> target=main><%=frugtmanagement(\"menupunkt_navn\")%></a><br>
            <%
            frugtmanagement.movenext
            loop%>
          </div>
          <img src=\"plus.gif\" id=branch1_2 class=tree1_class><font size=1>Overlevelsesudstyr<br>
          <div id=branch1_2_sub style=\"margin-left:10px; display:None;\">
            <%
            do until overlevelsesudstyr.eof or overlevelsesudstyr.bof%>
            <img src=\"blank_9x9.gif\"><a href=info.asp?info=<%=overlevelsesudstyr(\"menupunkt_navn\")%> target=main><%=overlevelsesudstyr(\"menupunkt_navn\")%></a><br>
            <%
            overlevelsesudstyr.movenext
            loop%>
          </div>
    </div>   
</div>


</body>
</html>
<%connect.close%>

Skal du have en database med flg. kolonner.
menupunkt_id
menupunkt_navn
menupunkt_sub

mht. de records du vil åbne, skal du ligge dem i navnet. Hvis du opretter en f.eks. \"status\" kolone, kan du ved IF THEN ..  med 1 og 2 bestemmer havd de må og ikke må.

P.S. min global.var ser således ud:
<%
Datasource1 =\"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\"&server.mappath(\"menu.mdb\")
%>

MVH
Stig

Har selv løst problemet, med et javascript, som jeg har fundet på www.aspfree.com