Hallo Liste was mache ich hier wieder mal falsch??? Ich versuche ein
Men� aus der DB zu lesen und mit den dazugeh�rigen untermen�s auszugeben
aber es haut nicht so hin wie ich will???? Was ist an folgenden Code
falsch???
<html>
<head>
<LINK HREF="egomenu.css" TYPE="text/css" REL="stylesheet">
<title>...:::Ego Design:::...</title>
<style type="text/css">
BODY {
scrollbar-face-color: #0000ff;
scrollbar-shadow-color: #00005a;
scrollbar-highlight-color: #ffffff;
scrollbar-3dlight-color: #000000;
scrollbar-darkshadow-color: #00005a;
scrollbar-track-color: #00005a;
scrollbar-arrow-color: #ffffff;
}
</style>
</head>
<%
Sub writeOptionOld(name, link)
%>
Submen�
Subsubmen�
<%
End Sub
Sub buildDesign(name, link, level)
if level = 0 then exit sub
if level = 1 then
'Response.Write "<center><h1><a target=""Hauptframe""
href=""haupt.asp"">" & name & "</a></h1></center>"
Response.Write "level = " & level & ", name=" & name &
"<br>"
else
Response.Write "level = " & level & ", name=" & name &
"<br>"
end if
End Sub
Sub writeOption (name, link, show, parentID, level)
if parentID = -1 then
Set rs = DBIExecRS("SELECT * FROM MenuOption where
MOParentID is null")
else
Set rs = DBIExecRS("SELECT * FROM MenuOption where
MOParentID=" & parentID)
end if
while not rs.eof
buildDesign name, link, level
if show = true then
writeOption rs("MOName"), rs("MOLink"), true,
rs("MOID"), level + 1
end if
rs.movenext
wend
Set rs = nothing
End Sub
%>
<body>
<SCRIPT LANGUAGE=VBSCRIPT RUNAT=SERVER SRC="dbi.vbs"></SCRIPT>
<%
writeOption "", "", true, -1, 0
%>
</body>
</html>
-------
www.fastrun.at
Oesterreichs Suchmaschine
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
