koden ser således ud:
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/_vti_log/main.mdb")
Conn.Open DSN
strSQL = "Select * From aa_menu ORDER BY id"
Set rs = Conn.Execute(strSQL)
Do
strNavn = rs("menunavn")
Response.Write "<a href=""?id=" & rs("id") & """>" & strNavn & "</a>"
rs.MoveNext
if not rs.eof then Response.Write strLink & " | "
if rs.eof then Response.Write strLink
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
<div id="Layer1" style="position:absolute; width:200px; height:115px; z-index:1; left: 411px; top: 161px">
<p>Basic tekst</p>
<hr>
<%
if not len(Request.Querystring("id"))=0 then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/_vti_log/main.mdb")
Conn.Open DSN
strSQL = "Select * From aa_menu Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)
Response.Write rs("tekst")
Conn.Close
Set Conn = Nothing
end if
%>
<div id="Layer2" style="position:absolute; width:200px; height:115px; z-index:2; left: -397px; top: -14px">
<p>undermenuer:</p>
<hr>
<p> </p>
<p> </p>
</div>
<hr>
</div>
</body>
</html>
