Conexion E Insercion De Datos En Dos Tablas Al Mismo Tiempo

[AlZuwaga]

Si, creo que no hay problema.
Sólo debés instanciar dos recordsets... algo así:



basedatos=server.mappath("../../datos/Ejemplo.mdb")
set conexion=server.createobject("adodb.connection")
set registros=server.createobject("adodb.recordset")
set registros1=server.createobject("adodb.recordset")
conexion.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
registros.open "SELECT * FROM tabla1",conexion,2,2
registros.addnew
registros.fields("nombre")=request.form("nombre")
registros.fields("email")=request.form("email")
registros.fields("mensaje")=request.form("mensaje" )
registros.fields("fecha")=FormatDateTime(Now, vbLongDate)
registros.update
registros.close

registros1.open "SELECT * FROM tabla2",conexion,2,2
registros1.addnew
registros1.fields("nombre")=request.form("nombre")
registros1.fields("email")=request.form("email")
registros1.fields("mensaje")=request.form("mensaje ")
registros1.fields("fecha")=FormatDateTime(Now, vbLongDate)
registros1.update
registros1.close

conexion.close
set registros=nothing
set registros1=nothing
set conexion=nothing