Varias cosas a considerar:
1. Base de datos
2. Tipo de conexion: @@identity solo puede ser utilizada con OLEDB si no me equivoco.
3. Puedes utilizar NextRecordset como ya te dijo orharo[Hola]
Si usas SQL puedes hacer todo esto en una misma expresion:
Código:
sql = "INSERT INTO tabla VALUES(1,2,3); DECLARE @ident int; " & _
"SET @ident = @@IDENTITY; INSERT INTO tabla2 VALUES(@ident, valor, valor);" & _
" SELECT @@IDENTITY as nuevo_id_tabla2;"
Set cmd = Server.CreateObject("ADODB.Command")
Set ObjConn = Server.CreateObject("ADODB.Connection")
ObjConn.Open strConnect 'el string de conexion
cmd.ActiveConnection = ObjConn
Set rs = cmd.Execute.NextRecordset()
Saludos