Aye, das kann jedem mal passieren :)))
-----Urspr�ngliche Nachricht----- Von: Stege, Mirco [mailto:[EMAIL PROTECTED]] Gesendet: Freitag, 26. April 2002 13:41 An: ASP Diskussionsliste fuer Anfaenger Betreff: [aspdebeginners] AW: Re: MoveFirst Ahhhhh, endlich kommt etwas ... also ich habe bisher keine Code mitgeschickt, weil ich nicht glaube, dass ihr damit etwas anfangen k�nnt ... ist zuviel ... aber nagut ... warum ich die ganze zeit frage? Es handelt sich um ein Problem bei der unten im Code ersten aufgef�hrten Schleife ... wenn ich sie mittels Kommentarzeichen rausnehme, funktioniert das Script einwandfrei ... wenn ich sie drin lasse wird die Schleife ausgef�hrt ... aber alles danach ist nicht mehr zu sehen ... wenn ich dann zwischen die Schleifen ein .MoveFirst einbaue ... funktionieren alle Teile , jedoch wird vom letzten Teil nur die H�lfte dargestellt (-argh- ... entschuldigt die Rechtschreibfehler) dann erscheint der allseits so bekannte und geliebte Fehler "Either BOF or EOF ... is true ... bla" Code: sLangID = Request.QueryString("sLangID") nUrsprung = 1 nCount = 0 ReDim arrNavID(nCount) Sub BuildChildTree(nOrigin, nDepth, nCounter) Dim oDataF Response.Write("<table cellspacing='0' cellpadding='0' border='0'>") Set oDataF = Server.CreateObject("ADODB.RecordSet") sSqlF = "select NavigationID, NavigationText from CS_V_Navigation where ParentID = " & nOrigin & " and IsVisible = 'Y' and LanguageID = '" & sLangID & "' and NavigationID in (select distinct NavigationID from CS_Presentation p, CS_Category c where p.CategoryID = c.CategoryID and c.ReadRight in(" & Session("strUserRights") & ") and p.PresentationPurposeID=" & PP_HOMEPAGE & ") order by SortNr" oDataF.CursorLocation = CInt(adOpenStatic) oDataF.Open sSqlF, oDBConn While Not oDataF.EOF ReDim Preserve arrNavID(nCount) arrNavID(nCount) = CInt(oDataF("NavigationID")) i = UBound(arrNavID) For x = 0 to UBound(arrNavID) Response.Write arrNavID(x) Next nCount = nCount + 1 oDataF.MoveNext Wend While Not oDataF.EOF nCounter = nCounter + 1 Response.Write("<tr><td>") For i = 1 To nDepth -1 If i = nDepth -1 Then 'If CInt(i) = CInt(nNavID) Then Response.Write("<img src='/images/lastdepth.gif' align='top' width='20' height='20' vspace='0' hspace='0'>") 'Else ' Response.Write("<img src='/images/nextdepth.gif' align='top' width='20' height='20' vspace='0' hspace='0'>") 'End If Else Response.Write("<img src='/images/straight.gif' align='top' width='40' height='20' vspace='0' hspace='0'>") End If Next If CInt(oDataF("NavigationID")) = CInt(nUrsprung) Then oData.MoveNext ElseIf CInt(oDataF("NavigationID")) = CInt(nNavID) Then Response.Write(oDataF("NavigationText")) Else Response.Write("<a href='/index.asp?nNavID=" & oDataF("NavigationID") & "&sLangID=" & sLangID & "'>" & oDataF("NavigationText") & "</a>") End If nNewDepth = nDepth + 1 BuildChildTree oDataF("NavigationID"), nNewDepth, nCounter Response.Write("</tr>") oDataF.MoveNext Wend oDataF.Close Response.Write("</table>") End Sub BuildChildTree 0, 1, 0 K�nnt ihr damit etwas anfange? -argh- ... mist ... langsam glaub ich ich habe wirklich den falschen Beruf ... baut mich mal auf ;) So Spr�che wie: "Das kann jedem mal passieren w�ren perfekt" ;)) Gruss Mirco -----Urspr�ngliche Nachricht----- Von: Rainer V�lschow [mailto:[EMAIL PROTECTED]] Gesendet: Freitag, 26. April 2002 13:33 An: ASP Diskussionsliste fuer Anfaenger Betreff: [aspdebeginners] Re: MoveFirst Hallo Mirco, - Bist du sicher, da� movefirst die durchlaufrichtung umkehrt ? - Hast du auch nicht moveprevious verwendet ? - Bist du sicher ob die SQL-Anweisung auch einer Ergebniss zur�ck liefert ? Denn wenn das Recordset leer ist, kommt diese Fehlermeldung. - Poste dochmal einen Code-Ausschnitt, denn mit unserer Glaskugel allein k�nnen wir dir nur schwer helfen, da die Ursache mannigfaltig sein kann. Rainer "Stege, Mirco" schrieb: > > Kann mir wirklich niemand helfen? > > Wenn ich MoveFirst schreibe, obwohl der Cursor schon am Listenanfang steht, > ist dann die Durchlaufrichtung (mit adOpenDynamic) umgekehrt? > > Wenn ich in meinem Script n�mlich nach dem Select Statement ein > Objekt.MoveFirst einsetze, dann kommt auf einmal der Fehler Either Eof oder > Bof ... usw. > > Ist doch im prinzip unlogisch oder nicht? > > mfG Mirco > > | 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 | 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
