<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Set BD=Server.CreateObject("ADODB.Connection")
BD.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.Mappath("bd1.mdb")
BD.Open
'Conectamos con la base de datos
Set RC=Server.CreateObject("ADODB.Recordset")
'Creamos un Recordset para localizar los registros
query="SELECT * FROM Fusuario WHERE DNI='" & request.form("dni") & "'"
'Formamos el query seleccionando el campo Registro con los valores que provienen del formulario
RC.Open query,BD
if RC.EOF then
'Si RC llega al fin de fichero el registro no existe en la base de datos y se puede insertar
query="INSERT INTO Fusuario(dni, nombre, apellidos, ip, departamento, tipodeconsulta, email) VALUES('" & request.form("dni") & "','" & request.form("nombre") & "','" & request.form("apellidos") & "','" & request.form("ip") & "','" & request.form("departamento") & "','" & request.form("tipodeconsulta") & "','" & request.form("email") & "')"
BD.Execute(query)
Response.Write ("¡¡Registro insertado correctamente!!")
'Limpiamos la variable de sesion Imagen
else
Response.Redirect("erroregistro.asp")
'Si ya existe dicho registro redireccionamos a erroregistro.asp
end if
BD.Close
%>
</body>
</html>
el error me sale en "BD.Execute(query)" pero no se por que me dice esto [Microsoft][Controlador ODBC Microsoft Access] La operación debe usar una consulta actualizable.
File: /pruebas/consulta/Fusuario.asp, line 26
