sorry, aber ich find hier nirgends dein update... aber mal nen anderer tipp: schlie�e deine recordsets so schnell wie's geht wieder. das wirkt sich nicht nur positiv auf die performance aus, sondern es macht zus�tzlich noch den code leserlicher.
beispiel ... rs.open rs.close set rs = nothing ... weitere aktionen rs.open rs.close set rs = nothing ... weitere aktionen rs.open rs.close set rs = nothing ... > -----Urspr�ngliche Nachricht----- > Von: [EMAIL PROTECTED] > [mailto:bounce-aspdebeginners-1054364@;aspfriends.com] Im > Auftrag von Lukas Dorn-Fussenegger > Gesendet: Dienstag, 12. November 2002 16:04 > An: ASP Diskussionsliste fuer Anfaenger > Betreff: [aspdebeginners] AW: [aspdebeginners] AW: > [aspdebeginners] Update - zwei Eintr�ge > > > Habe das Vor und Zur�ck entfernt, und das funktioniert auch > Ohne. Das Mit den Zwei erstellten Datens�tzen ist immer noch da: > > > Hier der Gesammte Quellcode: > Hab die Stelle mit dem Update mit 'xxxxxxxxxxxxxxxxxxx UPDATE > xxxxxxxxxxxxxxxxxx markiert. > > Danke! > > Mlg Lukas > > > > <%@LANGUAGE="VBSCRIPT"%> > <!--#include file="../../../Connections/Daten.asp" --> > <!--#include > file="../../../Einstellungen/alle_einstellungen.asp" --> > <!--#include file="../../../ASP/Includes/zugriff.asp" --> <% > Dim Oben__MMColParam Oben__MMColParam = "1" If > (Request.Form("UnterSeite") <> "") Then > Oben__MMColParam = Request.Form("UnterSeite") > End If > %> > <% > Dim Oben > Dim Oben_numRows > > Set Oben = Server.CreateObject("ADODB.Recordset") > Oben.ActiveConnection = MM_Daten_STRING > Oben.Source = "SELECT * FROM Seiten WHERE ID = " + > Replace(Oben__MMColParam, "'", "''") + "" Oben.CursorType = 0 > Oben.CursorLocation = 2 Oben.LockType = 1 > Oben.Open() > > Oben_numRows = 0 > %> > <% > Dim Vorlage__MMColParam > Vorlage__MMColParam = "1" > If (Request.Form("Vorlage") <> "") Then > Vorlage__MMColParam = Request.Form("Vorlage") > End If > %> > <% > Dim Vorlage > Dim Vorlage_numRows > > Set Vorlage = Server.CreateObject("ADODB.Recordset") > Vorlage.ActiveConnection = MM_Daten_STRING > Vorlage.Source = "SELECT * FROM Seiten WHERE ID = " + > Replace(Vorlage__MMColParam, "'", "''") + "" > Vorlage.CursorType = 0 Vorlage.CursorLocation = 2 Vorlage.LockType = 1 > Vorlage.Open() > > Vorlage_numRows = 0 > %> > <% > Dim Sprache__MMColParam > Sprache__MMColParam = "1" > If (Request.Form("Sprache") <> "") Then > Sprache__MMColParam = Request.Form("Sprache") > End If > %> > <% > Dim Sprache > Dim Sprache_numRows > > Set Sprache = Server.CreateObject("ADODB.Recordset") > Sprache.ActiveConnection = MM_Daten_STRING > Sprache.Source = "SELECT * FROM Sprachen WHERE ID = " + > Replace(Sprache__MMColParam, "'", "''") + "" > Sprache.CursorType = 0 Sprache.CursorLocation = 2 Sprache.LockType = 1 > Sprache.Open() > > Sprache_numRows = 0 > %> > <% > Dim Design__MMColParam > Design__MMColParam = "1" > If (Request.Form("Design") <> "") Then > Design__MMColParam = Request.Form("Design") > End If > %> > <% > Dim Design > Dim Design_numRows > > Set Design = Server.CreateObject("ADODB.Recordset") > Design.ActiveConnection = MM_Daten_STRING > Design.Source = "SELECT * FROM Designs WHERE ID = " + > Replace(Design__MMColParam, "'", "''") + "" Design.CursorType > = 0 Design.CursorLocation = 2 Design.LockType = 1 > Design.Open() > > Design_numRows = 0 > %> > <% > Dim Neu > Dim Neu_numRows > > Set Neu = Server.CreateObject("ADODB.Recordset") > Neu.ActiveConnection = MM_Daten_STRING > Neu.Source = "SELECT * FROM Seiten" > Neu.CursorType = 1 > Neu.CursorLocation = 2 > Neu.LockType = 3 > Neu.Open() > > Neu_numRows = 0 > %> > <!-- WebButler V2.0, (C) 2002/2003 by Attain:Group --> > <html> > <head> > <title>WebButler2</title> > <meta http-equiv="Content-Type" > content="text/html; charset=iso-8859-1"> > <link > href="../../../Design/CSS/Administration/default.css" > rel="stylesheet" type="text/css"> > > > <script language="JavaScript" type="text/JavaScript"> > <!-- > function MM_goToURL() { //v3.0 > var i, > args=MM_goToURL.arguments; document.MM_returnValue = false; > for (i=0; > i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'"); > } > //--> > </script> > </head> > <% > Neu.AddNew > > > ' V Seitenname > ########################################################### > if Request.Form("Seitenname") <> > "" Then > Neu("Seitenname") = > Request.Form("Seitenname") > else > Neu("Seitenname") = > System_Paket_CMS_StandardSeitenName > end if > > ' V Sprache > ############################################################## > if Request.Form("Sprache") <> "" > Then > Neu("Sprache") = > Request.Form("Sprache") > else > Neu("Sprache") = > System_Paket_Sprachen_Standard > end if > > ' V Unterseite > ########################################################### > Neu("Subvon") = > Request.Form("Unterseite") > ' V Design > ############################################################### > TMPDesign = Pfad_WebRoot > + "/Design/CSS/Vorlagen/" + CStr(Design("CSSfile")) > > ' V Seitenquelltext > generieren ########################################### > Neu("Bild") = > Vorlage("Bild") > Quelltext = > Vorlage("Quelltext") > Quelltext = > Replace(Quelltext, "[CSSFile]", TMPDesign) > Neu("Quelltext") = > Quelltext > %> > > > <% > 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX UPDATE > XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX > Neu.Update > tid = CStr(Neu("ID")) > 'Neu.MovePrevious > 'Neu.MoveNext > > '<body > onLoad="MM_goToURL('parent.frames[\'fBrowser\']','../Browser/S > eitenliste > .asp');goedit()"> > > editorurl = ("../../Komponenten/HTMLEditor/editor.asp?Seite=" > + Pfad_WebRoot + > "/Administration/CMS/tmp.asp&SeiteParam1=ID&SeiteParam1v=" + > tid + "&Tabelle=Seiten&ID=" + tid + "&Spalte=Quelltext") > response.Redirect(editorurl) > %> > <script type="text/javascript"> > <!-- > function goedit() { > window.location.href = "<%=editorurl%>"; > } > //--> > </script> > > <body onLoad=""> > <p><br> > <% sec("4") %> > </p> > <p><strong>Die Seite wurde erstellt!<br> > Sie werden nun zum Editor umgeleitet ......</strong></p> > <p> </p> </body> </html> <% > Oben.Close() > Set Oben = Nothing > %> > <% > Vorlage.Close() > Set Vorlage = Nothing > %> > <% > Sprache.Close() > Set Sprache = Nothing > %> > <% > Design.Close() > Set Design = Nothing > %> > <% > Neu.Close() > Set Neu = Nothing > %> > > > > > > > > > > > > > > > > > > > > > > > -----Urspr�ngliche Nachricht----- > Von: [EMAIL PROTECTED] > [mailto:bounce-aspdebeginners-1057482@;aspfriends.com] Im > Auftrag von [EMAIL PROTECTED] > Gesendet: Dienstag, 12. November 2002 15:59 > An: ASP Diskussionsliste fuer Anfaenger > Betreff: [aspdebeginners] AW: [aspdebeginners] Update - zwei Eintr�ge > > > Hallo, > > F�r was hast du rs.MoveNext,rs.MovePrevious drin ? > > mfg > > Martin > > -----Urspr�ngliche Nachricht----- > Von: Lukas Dorn-Fussenegger [mailto:attain.graphics@;web.de] > Gesendet: Dienstag, 12. November 2002 15:43 > An: ASP Diskussionsliste fuer Anfaenger > Betreff: [aspdebeginners] Update - zwei Eintr�ge > > > > Ich hab vor 2 Wochen schon das Problem mit dem herausfinden > der ID eines gerade erstellten datensatzes gel�st. Nun ist > leider ein weiteres > aufgetaucht: mit der Variante > > '------------------------------------------- > rs.CursorLocation = 2 ' adUseServer > rs.CursorType = 1 ' adOpenKeyset > rs.LockType = 3 ' adLockOptimistic > '------------------------------------------- > > Rs.addNew > rs("Spalte1") = "Wert1" > rs("Spalte2") = "Wert2" > rs.update > rs.MoveNext > rs.MovePrevius > ID=rs("ID") > > Werden gleich zwei Eintr�ge erstellt. Wei� von euch jemand, > woran das liegen kann? > > > > | 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/anme> lden/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/anme> lden/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/anme> lden/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
