Hast du mal getestet, ob du deine SUB vielleicht zweimal aufrufst? -----Urspr�ngliche Nachricht----- Von: Zeljko Kvesic [mailto:[EMAIL PROTECTED]] Gesendet: Mittwoch, 20. M�rz 2002 09:53 An: ActiveServerPages German Betreff: [aspgerman] AW: Re: Warum macht dieser script mir den insert imme r doppelt??
Hi, also ich bin wirklich am verzweifeln.. der code unten liefert mir auch das Ergebnis wir vorher. datensatz wird doppelt angelegt.. gestern dachte ich nach 10 Stunden Arbeit mache ich ein Fehler.. aber heute morgen habe ich klare gedanken. Hat jemand noch einen Tipp?? Im voraus dankend. Gru� Zeljko Kvesic -----Urspr�ngliche Nachricht----- Von: Rainer V�lschow [mailto:[EMAIL PROTECTED]] Gesendet: Mittwoch, 20. M�rz 2002 09:02 An: ActiveServerPages German Betreff: [aspgerman] Re: Warum macht dieser script mir den insert immer doppelt?? Hallo, 1) Meiner Meinung nach, ist die Instanzierung des Command-Objektes �berfl�ssig 2) Bei einer Insert-Anweisung wird das Recordsetobjekt garnicht ben�tigt. Probiere mal folgendes zwischen: <!--#include file="../inc/Connect.asp"--> und End Sub <% SQLstr = "INSERT INTO Block (Name,TemplateID) Values('" & Request("Name") &"',"& Request("TemplateID")&")" ObjConn.execute(SQLastr) ObjConn.close set ObjConn = nothing %> Werden damit auch immerzu doppelte Datens�tze eingetragen ? Rainer Zeljko Kvesic schrieb: > > Hi an alle, > habe dieses kleine ASP geschrieben. > aber jedesmal wird das gew�nschte inhalt in die tabelle dopppelt angelegt. > Im voraus dankend > > <%@ TRANSACTION = Required LANGUAGE = "VBScript" %> > <% Option Explicit %> > > <!--#include file="../inc/Validate.asp"--> > <% > > ' The Transacted Script Commit Handler. This sub-routine > ' will be called if the transacted script commits. > > Sub OnTransactionCommit() > > %><!--#include file="../inc/Connect.asp"--> > <% > Dim RsAddBlock, ObjCmd, SourceAddNew > Dim Name, TemplateID > > Name = "'" & Request("Name") & "'" > TemplateID = Request("TemplateID") > > > Dim RsDisplayNew, RsAddNew > > Set RsAddBlock = > Server.CreateObject("ADODB.Recordset") > Set objCmd = > Server.CreateObject("ADODB.Command") > > SourceAddNew = "INSERT INTO Block " > SourceAddNew = SourceAddNew & "(Name, TemplateID) Values > (" > SourceAddNew = SourceAddNew & " " & Name & "," & > TemplateID & ")" > > RsAddBlock.Open SourceAddNew,objConn > > ObjConn.Close > > Set RsAddBlock = Nothing > Set objConn = Nothing > > > > > End Sub > > ' The Transacted Script Abort Handler. This sub-routine > ' will be called if the script transacted aborts > > Sub OnTransactionAbort() > Response.Redirect "save_fault.html" > End Sub > > %> > > | [aspgerman] als [EMAIL PROTECTED] subscribed > | http://www.aspgerman.com/archiv/aspgerman/ = Listenarchiv > | Sie k�nnen sich unter folgender URL an- und abmelden: > | http://www.aspgerman.com/aspgerman/listen/anmelden/aspgerman.asp | [aspgerman] als [EMAIL PROTECTED] subscribed | http://www.aspgerman.com/archiv/aspgerman/ = Listenarchiv | Sie k�nnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspgerman.asp | [aspgerman] als [EMAIL PROTECTED] subscribed | http://www.aspgerman.com/archiv/aspgerman/ = Listenarchiv | Sie k�nnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspgerman.asp | [aspgerman] als [email protected] subscribed | http://www.aspgerman.com/archiv/aspgerman/ = Listenarchiv | Sie k�nnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspgerman.asp
