Dynamisk menu af fennec
Jeg har prøvet at følge fennec eksempel i spørgsmål: http://www.eksperten.dk/spm/468587#rid4357797Men jeg jeg kan ikke udskrive menuen, er der nogen der kan se hvad jeg gør galt?
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
'wilweb.dk
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/data/menu.mdb")
conn.Open DSN
Function TegnMenu(ThisID,Indrykning)
dim FunkRS
'select rodpunkter eller underpunkter
if ThisID <> "" then
'Underpunkter
set FunkRS = conn.Execute("select * from menu where pID="& ThisID)
else
'Roden af menuen
set FunkRS = conn.execute("select * from menu where pID is null")
end if
do while not FunkRS.eof
'tegn menupunktet
response.write Indrykning & "<a href="""& FunkRS("link") &""">"& FunkRS("menu") &"</a><br>"&chr(13)
'kald funktionen igen for at finde evt underpunkter
TegnMenu FunkRS("id"),Indrykning&" "
FunkRS.MoveNext
loop
End function
TegnMenu "",""
%>
</body>
</html>
