
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver]Error in row
/foro/addmensaje.asp, line 52
les paso el script
<%
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
Nombre = request.form("Nombre")
Pais = request.form("Pais")
Email = request.form("Email")
url = request.form("url")
Asunto = request.form("Asunto")
Mensaje = replace(request.form("Mensaje"),chr(10),"<br>")
'en caso que el campo url tenga como único valor el valor por defecto
'se convierte a valor nulo
if url="http://" then
url = ""
end if
if Nombre="" or email="" or Asunto="" or Mensaje="" then
response.redirect "firmarlibro.asp?Mensaje=2"
else
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("libvis.mdb"))
set rs=createobject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.open "mensajes",conn
rs.addnew
rs("Nombre")=Nombre
rs("email")=Email
rs("Pais")=Pais
rs("url")=url
rs("Asunto")=Asunto
rs("Mensaje")=Mensaje
rs("Fecha")=Date()
rs.Update
rs.Close
response.redirect "default.asp"
end if
%>
la linea en cuestion que me pasa como error es rs.Update,
alguien tiene una idea de por que puede pasar esto, yo ya me queme el bocho buscando por todos lados una soluciòn, soy muy principiante en asp, asi que bueh. les pregunto a los que saben, un abrazo