Hallo Mirco, was passiert eigentlich wenn du anstelle von "While Not oDataF.EOF Wend" - Schleife, "Do Until oDataF.EOF.eof loop" oder "Do While not oDataF.EOF and oDataF.BOF loop" - Schleife einbaust ?
Rainer Markus Sandke schrieb: > > 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 | 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
