Hola estoy haciendo una aplicación ASP 3.0 con access 2003 y me da el
siguiente error a la hora de ejecutar. Decir que este error me da en
servidor ISP. ¿Que pued hacer?
Gracias.
*Os dejo el codigo por si es por culpa de ello.
Microsoft Jet Database Engine error '80004005'
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText ="insertarPersona" 'cstr(MM_editQuery)
MM_editCmd.CommandType=adCmdStoredProc
MM_editCmd.Parameters.Append=MM_editCmd.CreateParameter("@strDni",adVarChar,
adParamInput,50,cstr(request.Form("txtDni")))
MM_editCmd.Parameters.Append=MM_editCmd.CreateParameter("@strNombre",adVarCh
ar,adParamInput,50,cstr(request.Form("txtNombre")))
MM_editCmd.Parameters.Append=MM_editCmd.CreateParameter("@strPrimerApellido"
,adVarChar,adParamInput,50,cstr(request.Form("txtPrimerApellido")))
MM_editCmd.Parameters.Append=MM_editCmd.CreateParameter("@strSegundoApellido
",adVarChar,adParamInput,50,cstr(request.Form("txtSegundoApellido")))
MM_editCmd.Parameters.Append=MM_editCmd.CreateParameter("@strDireccion",adVa
rChar,adParamInput,50,cstr(request.Form("txtDireccion")))
MM_editCmd.Parameters.Append=MM_editCmd.CreateParameter("@strCodPostal",adVa
rChar,adParamInput,50,cstr(request.Form("txtCodPostal")))
MM_editCmd.Parameters.Append=MM_editCmd.CreateParameter("@strLocalidad",adVa
rChar,adParamInput,50,cstr(request.Form("txtLocalidad")))
MM_editCmd.Parameters.Append=MM_editCmd.CreateParameter("@strProvincia",adVa
rChar,adParamInput,50,cstr(request.Form("txtProvincia")))
MM_editCmd.Parameters.Append=MM_editCmd.CreateParameter("@strPais",adVarChar
,adParamInput,50,cstr(request.Form("txtPais")))
MM_editCmd.Parameters.Append=MM_editCmd.CreateParameter("@strTelefono",adVar
Char,adParamInput,50,cstr(request.Form("txtTelefono")))
MM_editCmd.Parameters.Append=MM_editCmd.CreateParameter("@strMovil",adVarCha
r,adParamInput,50,cstr(request.Form("txtMovil")))
MM_editCmd.Parameters.Append=MM_editCmd.CreateParameter("@strEmail",adVarCha
r,adParamInput,50,cstr(request.Form("txtEmail")))
MM_editCmd.Parameters.Append=MM_editCmd.CreateParameter("@strFax",adVarChar,
adParamInput,50,cstr(request.Form("txtFax")))
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
Leer las respuestas