Annonceindlæg fra Barco
Er jeres mødelokaler sikre nok?
Den moderne arbejdsplads er i stigende grad afhængig af mødelokaler til at fremme samarbejde, men dette skift medfører også stigende sikkerhedsudfordringer.
17. januar 2004 - 13:44
#3
ja, jeg kan vist godt bruge den her kode: <% set conn2 = server.createobject("ADODB.connection") path = Server.MapPath("DB.mdb") conn2.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}" SQL2 = "SELECT * from kategori" set RS2 = Conn2.Execute(SQL2) %> <br> <table width="162"> <% do until rs2.eof %><tr> <td><a href="default.asp?id=<%=rs2("gaa_til")%>&menu=<%=rs2("id")%>" class="menu"><%=rs2("navn")%></a><br> <% if int(Request.QueryString("menu")) = rs2("id") then set conn3 = server.createobject("ADODB.connection") path = Server.MapPath("DB.mdb") conn3.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}" SQL3 = "SELECT * from submenu where katid = " & rs2("id") & "" set RS3 = Conn3.Execute(SQL3)%> <% Do until rs3.eof %> <table width="100%"> <tr> <td width="100%"><a href="default.asp?menu=<%=rs2("id")%>&id=<%=rs3("gaa_til")%>" class="lillemenu"><%=rs3("subnavn")%></a></td> </tr> </table> <% rs3.movenext loop rs3.close set rs3 = nothing end if %> </td> <% RS2.movenext loop Conn2.Close Set Conn2 = Nothing %> </tr> </table> men hvordan laver jeg en database til den her kode
Slettet bruger
17. januar 2004 - 13:48
#4
lav to tabeller kategori (id, gaa_til, navn) submenu (id, katid (fremmednøgle fra kategori tabellen), subnavn