Amigo copio la linea que tu me dices pero no me anda y no se que pasa, puedes fijarte y corregirlo? Aqui te paso como lo agregue yo en el codigo a lo que tu me pasaste.
<%
Dim ObjDB
Dim ObjRS
Dim Sql
Dim Variable (este campo variable sería el numero que tengo que extraer de la primer tabla)
strConnection = "aca iria la conexion con la base de datos access"
Set ObjDB = Server.CreateObject("ADODB.Connection")
ObjDB.Open strConnection
'Esta es la tabla que tiene el campo autonumerico y de la cual tengo que extraer el valor que
les digo que ya se ingreso con el Insert de la SQL.
Sql = "Insert Into Nombre Tabla (NOMBRE,APELLIDO) values ('"
Sql = Sql&request.Form("nombre")&"','"
Sql = Sql&request.Form("apellido")&"');"
Set ObjRS = ObjDB.Execute(Sql)
sql= "SELECT Max(ID) AS Variable FROM Nombre Tabla;"
Set ObjRS = ObjDB.Execute(Sql)
'Estas serían las otras SQL que ingresan los datos en las otras tablas.
Sql = "Insert Into La otra tabla (ID,NOMBRE,EMAIL) values ('"
Sql = Sql&Variable&"','"
Sql = Sql&request.Form("nombre")&"','"
Sql = Sql&request.Form("email")&"');"
Set ObjRS = ObjDB.Execute(Sql)
Sql = "Insert Into La otra tabla (ID,NOMBRE,DIRECCION,) values ('"
Sql = Sql&Variable&"','"
Sql = Sql&request.Form("nombre")&"','"
Sql = Sql&request.Form("direccion")&"');"
Set ObjRS = ObjDB.Execute(Sql)
%>
No se que pasa que no anda.
El error que me tira es en la linea que te marque con negrilla. Y no carga ningun dato en esa tabla.
Agradecería muchisimo que postes el codigo que te paso con la linea como tu dices que iria.
