20/08/2004, 06:33
|
 | | | Fecha de Ingreso: febrero-2003 Ubicación: Chacabuco - Buenos Aires
Mensajes: 214
Antigüedad: 22 años, 2 meses Puntos: 1 | |
Hola, prueba con esto:
Código:
<%
set oRs = Server.CreateObject("ADODB.Recordset")
oRs.ActiveConnection = (varEmpresas)
oRs.Source = "SELECT Id, Nombre FROM Autores"
oRs.CursorType = 1
oRs.LockType = 3
oRs.Open
'AGREGA UN NUEVO REGISTRO
oRs.AddNew
oRs("Nombre") = "Nombre de autor"
oRs.Update
'OBTIENE EL ID DEL REGISTRO RECIENTEMENTE INSERTADO
Dim Id_Autor
Id_Autor = oRs("id")
oRs.Close()
Set oRs = Nothing
%>
|