Hallo :-) Ich denke mal das es hifreich fuer alle waehre wenn du erzaehlen wuerdes was nicht geht und was du willst. Denn sich denn source ohne was reinzuziehen so macht keinen sinn und spass :-), alo mehr infos bitte.
Gruss Roman Pittroff Consulting Bangkok, Thailand >-----Original Message----- >From: Rene Mitterer [mailto:[EMAIL PROTECTED]] >Sent: Friday, December 28, 2001 2:52 PM >To: ASP Diskussionsliste fuer Anfaenger >Subject: [aspdebeginners] Asp Men� mit Submen�funktion? > > >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
