Insertar datos a dos distintas tablas desde el mismo formulario

[univercity]

Ok. pruebalo con los cambios que le hize, si no te funciona, lo reviso de nuevo...
no te funciona porque el conflicto lo generas al intentar dos Con, estando uno ya abierto...



<%
' tomamos los datos del formulario
nombre = Request.Form("nombre")
apellido = Request.Form("apellido")
email = Request.Form("email")
password = Request.Form("password")

' creamos la conexion y los 2 recordset
Set Con=Server.CreateObject("ADODB.Connection")
Set RS=Server.CreateObject("ADODB.RecordSet")

Con.Open "gema"

' ejecutamos una consulta para cada recorset
RS.Open "SELECT * FROM Usuarios", Con, adOpenDynamic, adLockPessimistic, adCMDText


' agregamos los datos a la primera tabla
RS.AddNew
RS("nombre")= nombre
RS("apellido")= apellido
RS.Update

RS.Close
Set RS = Nothing
con.close




Set Con2=Server.CreateObject("ADODB.Connection")
Set RS2=Server.CreateObject("ADODB.RecordSet")
Con.Open "gema"
RS2.Open "SELECT * FROM UsuariosPassword", Con, adOpenDynamic, adLockPessimistic, adCMDText



' agregamos los datos a la segunda tabla
RS2.AddNew
RS2("email")= email
RS2("password")= password
RS2.Update

' cerramos los objetos y liberamos memoria
RS2.Close
Con2.Close
Set RS2 = Nothing
Set Con2 = Nothing
%>