Insertar Datos en ContaPlus

Hola a todos

Estoy con una página en ASP y estoy entantando insertar datos en las tablas
de contaplus y hago :

set conn = server.createobject("adodb.connection")
conn.Open "Driver={Microsoft dBASE Driver
(*.dbf)};DriverID'7;Dbq=C:\ContaPro\EMP01;"

SET qry=server.createObject("adodb.recordset")
SQL="SELECT * FROM cambio"
qry.open SQL,conn,1,3
IF not qry.eof THEN
response.Write("Primero")
response.Write("<br>")
response.Write(qry("cambio2"))
response.Write("<br>")
response.Write("<br>")
response.Write("<br>")
end if
qry.close

Esto me funciona de cine, pero cuando quiero insertar o actualizar algo me
dice :

insertar :
Const adOpenKeyset = 3
Const adLockOptimistic = 3
set rs=createobject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
sqltxt="SELECT * from cambio where coddivisa='111'"
rs.Open sqltxt, conn
if rs.eof then
rs.Addnew
rs("coddivisa")="JJJ"
rs("fecha")="01/01/2001"
rs("cambio")=1
rs("cambio2")=1
rs("tasaconv")=1
rs.Update
else
rs("cambio2")="29"
rs.update
end if
rs.close

Error

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][Controlador ODBC dBase] No se puede actualizar. Base de datos u
objeto de sólo lectura.

/enlace/enlace.asp, línea 45

línea 45 : rs.Update

¿Alguiien sabe que carajo pasa?

Hola Javier.

Me suena a que es un tema de permisos. Cabría ver si el usuario que
ejecuta la página ASP tiene permiso de modificación sobre las bases de
datos. Si el acceso al servidor web es anónimo, cabría comprobar los
permisos del ususario "IUSR_nombreServidor" (aunque creo que una página
ASP que modifica datos de contabilidad no debería tener acceso anónimo).

Saludos!
Miguel

Javier escribió:
> Hola a todos
>
> Estoy con una página en ASP y estoy entantando insertar datos en las tablas
> de contaplus y hago :
>
> set conn = server.createobject("adodb.connection")
> conn.Open "Driver={Microsoft dBASE Driver
> (*.dbf)};DriverID'7;Dbq=C:\ContaPro\EMP01;"
>
> SET qry=server.createObject("adodb.recordset")
> SQL="SELECT * FROM cambio"
> qry.open SQL,conn,1,3
> IF not qry.eof THEN
> response.Write("Primero")
> response.Write("<br>")
> response.Write(qry("cambio2"))
> response.Write("<br>")
> response.Write("<br>")
> response.Write("<br>")
> end if
> qry.close
>
> Esto me funciona de cine, pero cuando quiero insertar o actualizar algo me
> dice :
>
> insertar :
> Const adOpenKeyset = 3
> Const adLockOptimistic = 3
> set rs=createobject("ADODB.Recordset")
> rs.CursorType = adOpenKeyset
> rs.LockType = adLockOptimistic
> sqltxt="SELECT * from cambio where coddivisa='111'"
> rs.Open sqltxt, conn
> if rs.eof then
> rs.Addnew
> rs("coddivisa")="JJJ"
> rs("fecha")="01/01/2001"
> rs("cambio")=1
> rs("cambio2")=1
> rs("tasaconv")=1
> rs.Update
> else
> rs("cambio2")="29"
> rs.update
> end if
> rs.close
>
> Error
>
> Microsoft OLE DB Provider for ODBC Drivers error '80004005'
>
> [Microsoft][Controlador ODBC dBase] No se puede actualizar. Base de datos u
> objeto de sólo lectura.
>
> /enlace/enlace.asp, línea 45
>
> línea 45 : rs.Update
>
> ¿Alguiien sabe que carajo pasa?