Also... Der Script liest (soll:-)) zuerst die Men�punkte die in der Datenbank die MOparentid "null" haben als Hauptmen� rausschreiben. Bei Klick soll er dann die dazugeh�rigen Untermen� �ber die ID rausfiltern und ausgeben aber schon bei dem Hauptmen� hat der Script prob. Er kann einfach nicht das Hauptmen� richtig ausgeben er zeigt mir das gesammte (Men� + Untermen�) in 2 -3 facher ausf�hrung an! Ich sitze schon seit �ber 10 Std. an diesem Prob. Und komme einfach nicht dahinter??????
Mit freundlichen Gr��en Rene -----Urspr�ngliche Nachricht----- Von: Roman Pittroff [mailto:[EMAIL PROTECTED]] Gesendet: Freitag, 28. Dezember 2001 08:52 An: ASP Diskussionsliste fuer Anfaenger Betreff: [aspdebeginners] RE: [aspdebeginners] Asp Men� mit Submen�funktion? 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 ------- www.fastrun.at Oesterreichs Suchmaschine ------- 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
