I NEED TO INSERT DATA INTO TWO SEPARATE TABLES

<i><b>Originally posted by : DAVID (sd42@gre.ac.uk)</b></i><br />I NEED TO INSERT DATA INTO TWO SEPARATE TABLES WHICH SHARE THE SAME PRIMARY KEY AND THE DISPLAYS THAT <br />UNIQUE PRIMARY KEY EVERY TIME A RECORD IS ENTERED<br /><br />THANKS FOR YOUR HELPPPPPPPPPP<br />

<i><b>Originally posted by : Rajeev (rajeevkb@yahoo.com)</b></i><br />ConStr = "DSN=MyDSN;UID=sa;Pwd=;"<br />Set Con = Server.CreateObject("ADODB.Connection")<br />Con.open ConStr<br />Con.BeginTran<br />'IF U HAVE PRIMARY KEY IN THIS AND ALSO AUTO INCREMENT THEN DON'T MENTION COL. NAME IN THIS SQL<br />SQL="Insert into TableName (Col2, Col3) values ('" & Request("Obj1") & "','" & Request("Obj2") & "' )"<br />Con.Execute SQL<br />SQL="Insert into TableName1 (Col11, Col22) values ('" & Request("Obj1") & "','" & Request("Obj2") & "' )"<br />Con.Execute SQL<br /><br />SQL="Select AutoID from tableName"<br />Set Rs = Server.CreateObject("ADODB.RecordSet")<br />Rs.Open SQL,ConStr<br />Rs.MoveLast<br /><br /><br />if Err.Number > 0 then<br /> Con.RollBack<br />Else<br /> Con.Commit<br /> Response.Write ("Your database has been updated with #"& Rs(0))<br />End if<br /><br />Set Con = nothing<br />Set Rs = nothing<br /><br /><br />------------<br />DAVID at 2/25/2002 4:40:12 AM<br /><br />I NEED TO INSERT DATA INTO TWO SEPARATE TABLES WHICH SHARE THE SAME PRIMARY KEY AND THE DISPLAYS THAT <br />UNIQUE PRIMARY KEY EVERY TIME A RECORD IS ENTERED<br /><br />THANKS FOR YOUR HELPPPPPPPPPP<br />