Foros del Web » Programando para Internet » ASP Clásico »

error al insertar un registro

Estas en el tema de error al insertar un registro en el foro de ASP Clásico en Foros del Web. hola amigos del foro : siempre he tenido mi pagina donde el usuario puede ingresar y a la vez eliminar su email de la DB, ...
  #1 (permalink)  
Antiguo 25/10/2004, 10:09
 
Fecha de Ingreso: octubre-2004
Mensajes: 13
Antigüedad: 19 años, 7 meses
Puntos: 0
error al insertar un registro

hola amigos del foro :

siempre he tenido mi pagina donde el usuario puede ingresar y a la vez eliminar su email de la DB, pero luego de un tiempo me sale este error :
----------------------------
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

/email.asp, line 63
----------------------------
el codigo que utilizo es :
----------------------------
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conbuy.asp" -->
<%
session("numeroc")=0

Dim mmeditq
Dim mmeditcmd
Dim mmeditc
dim mmeditr
dim mensage
dim valor1, valor2, valor3, valor4
valor1 = request.form("emailing")
valor2 = request.form("emailbor")
valor3 = request.Form("emailfec")
valor4 = request.Form("emailpais")
mmeditc = MM_conbuy_STRING
mmeditq=""
mensage=""
if valor1<>"" OR valor2<>"" then
Dim rs
if valor1<>"" then
mmeditq = "select email from emails where email = '" & CStr(valor1) & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conbuy_STRING
rs.Source = mmeditq
rs.CursorType = 3
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
if rs.recordCount=0 then
mmeditr = "emailresultado.asp"
mmeditq = "insert into emails(email,fecha,pais) values('" & CStr(valor1) & "','" & CStr(valor3) & "','" & CStr(valor4) & "')"
else
mensage="No se encontro el email especificado"
mmeditq=""
end if
rs.Close()
Set rs = Nothing
end if
if valor2<>"" then
mmeditr = "emailborrado.asp"
mmeditq = "select email from emails where email = '" & CStr(valor2) & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conbuy_STRING
rs.Source = mmeditq
rs.CursorType = 3
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
if rs.recordCount=0 then
mensage="No se encontro el email especificado"
mmeditq=""
rs.Close()
Set rs = Nothing
else
mmeditq = "delete from emails where email = '" & CStr(valor2) & "'"
end if
end if
if mmeditq<>"" then
Set mmeditcmd = Server.CreateObject("ADODB.Command")
mmeditcmd.ActiveConnection = mmeditc
mmeditcmd.CommandText = mmeditq
mmeditcmd.Execute
mmeditcmd.ActiveConnection.Close
response.redirect(mmeditr)
end if
end if
%>
---------------------------------
la insercion se genera previa busqueda del email, se existir se redirecciona a una pagina con un mensaje de error.
el codigo de la coneccion esta generada con dreamweaver....
la coneccion esta ok porque desde otras paginas puedo listar todas las tablas incluso la que trato de modificar, ... ojo que este mensaje de error sale cuando trato de insertar y eliminar...

espero puedan ayudarme... es urgente... please
  #2 (permalink)  
Antiguo 25/10/2004, 11:08
Avatar de Myakire
Colaborador
 
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 22 años, 4 meses
Puntos: 146
¿Haz actualizado de servidor ultimamente?

Normalmente es por que debes actualizar el MDAC del servidor, o bien por que te hace falta otorgar permisos de lectura-escritura a la carpeta donde esta la BD's

Saludos
  #3 (permalink)  
Antiguo 25/10/2004, 12:10
Avatar de bakanzipp  
Fecha de Ingreso: noviembre-2001
Ubicación: santiago de shilli
Mensajes: 2.554
Antigüedad: 22 años, 7 meses
Puntos: 0
revisa los permisos de escritura de tu carpeta y archivo .mdb...
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 14:46.