Scrivere record su piu tabelle

[SAMPEI.asp]

Salve ragazzi,
avrei questo problemino, dovrei inserire all'interno del DB in 2 tabelle A e B dei dati contemporaneamente ma recuperando l'ID del record appena inserito nella tabella A.


mi spiego meglio:
registo sulla tabella A una serie di dati e ogni volta che effettuo questa manovra ho un ID progresivo che avanza contemporaneamente dovrei recuperarlo e inserirlo nella tabella B con altri dati.

io ho provato ma non riesco qualcuno potrbbe aiutarmi grazie

Set rsAdmin = Server.CreateObject("ADODB.Recordset")
strSQLA = " INSERT INTO tblA (username,admin,createdby,Timestamp) VALUES('" & strUserName & "','" & strAdmin & "','" & strUserNameSession & "','" & mySqlDate(now()) & "')"


strID ="SELECT ID FROM tblA INTO '" & var_a & "' ORDER BY ID DESC limit 1"
var_A = ("ID")

strSQLB = "INSERT INTO tblA (IDA,CREATEDBY_GRADO,TIMESTAMP_GRADO) VALUES('" & var_a & "','" & strUserNameSession & "','" & mySqlDate(now()) & "')"
Set rs_B = adoCon.Execute(strSQLB)

rsAdmin.Open strSQLA, adoCon

Set rsAdmin = Nothing
Set adoCon = Nothing

[Roby_72]

Le INSERT si eseguono, non serve aprire il recordset.
La SELECT invece richiede il recordset.
Per recuperare l'ID appena inserito devi usare
SELECT @@IDENTITY FROM tblA

Roby