<% Response.Buffer = true dim cnn,rst ' Creamos la conexin a la base de datos sin DSN set cnn = Server.CreateObject("ADODB.Connection") set rst = Server.CreateObject("ADODB.RecordSet") cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bases/suscribirse.mdb") sqltext = "SELECT * FROM suscribirse" rst.Open sqltext,cnn,3,3 'Recogemos los datos y validamos que no haya ningun campo vacio dim mail id = Request.Form("id") mail = Request.Form("mail") 'Si est todo correcto, procedemos a ingresar los datos a la base de datos rst.AddNew rst("mail")=mail rst.update ' Recuperar el ltimo ID ' ---------------------- Set cmd = Server.CreateObject("ADODB.Command") cmd.activeconnection = cnn cmd.commandtext = "SELECT * FROM suscribirse ORDER BY id DESC" Set rs = Server.CreateObject("ADODB.recordset") set rs = cmd.execute() rs.MoveFirst response.redirect ("guardado_ok.asp") %>