Ok das ist doch schon etwas besser. ;-)

Also wenn er dir den ganzen inhalt der db ausgibt liegt das problem 
doch hier .

if parentID = -1 then

Also 1. Tip lasse dir doch mal in der db direct dieses SQL ausfuehren
SELECT * FROM MenuOption where MOParentID is null und schau mal was
zureuckkommt.

Das gleiche machst du 

SELECT * FROM MenuOption where MOParentID=" & parentID 

Fuer parentID  musst du einen wert geben der in der db steht aber
das ist dir sicherlich klar :-).

Wenn du es soweit hast das der SQL nur die records zurueckbringt die du
brauchst
und es klappt immer noch nicht dann wieder melden. 



Gruss

Roman Pittroff
Consulting
Bangkok, Thailand




>-----Original Message-----
>From: Rene Mitterer [mailto:[EMAIL PROTECTED]] 
>Sent: Friday, December 28, 2001 3:04 PM
>To: ASP Diskussionsliste fuer Anfaenger
>Subject: [aspdebeginners] AW: [aspdebeginners] RE: 
>[aspdebeginners] Asp Men� mit Submen�funktion?
>
>
>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�
>>&nbsp;&nbsp;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
>


| 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

Antwort per Email an