problema guardar datos

[omegafunky]

hola amigos antes que nada gracias por leerme y pues estoy iniciando en el ASP y ya prove varios metodos de gusrdar y ninguno me resulta, espero me puedas ayudar con esto es ASP+Access (se que access no es nada bueno pero es lo UNICO k puedo usar por el momento) asi que si me ayudan y no e smucha la molestia que sea orientado a access saludos, los datos si los pasa xk ya le puse k imprimiera lo que pasa y si lo imprime, podrian darme un ejemplo de la mejor forma de guardar? gracias

Código:

<% 
'definimos la variable de conexion 
Dim Conexion,Tabla 
Set Conexion = Server.CreateObject("ADODB.Connection") 
Set Tabla = Server.CreateObject("ADODB.Recordset") 
'conectamos a la base de datos mediante OLE ODBC dando el Driver 
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb") 
Tabla.Open "cat_proyecto",Conexion 
   Tabla.AddNew (linea 11)
    Tabla("ubi_admin") = Request("ubi_admin") 
    Tabla("ubi_geo") = Request("ubi_geo") 
    Tabla.Update 
'fin del Script 
%>

y me marca este error:

Technical Information (for support personnel)

• Error Type:
  ADODB.Recordset (0x800A0CB3)
  Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.
  /it/p1_pro.asp, line 11

[u_goldman]

Como consejo no crees un recordset para esto, hazle un execute a tu conexión:

Código:

'Si tanto ubi_admin como ubi_geo no estan vacios, inserta
if len(Request("ubi_admin")) > 0 and len(Request("ubi_geo")) > 0 then
    strSQL = "INSERT INTO cat_proyecto(ubi_amin, ubi_geo) VALUES('"&Request("ubi_admin")&"', '"&Request("ubi_geo")&"')"
    Conexion.Execute(strSQL)
    Conexion.Close()
end if

Una vez que lo consigas busca en este mismo foro algunos metodos para evitar la inyeccion de SQL, en las FAQS hay una funcion, pero primero, lo primero.

Saludos

[omegafunky]

gracias u_goldman entonces quedaria asi?

Código:

<% 
'definimos la variable de conexion 
Dim Conexion,Tabla 
Set Conexion = Server.CreateObject("ADODB.Connection") 
Set Tabla = Server.CreateObject("ADODB.Recordset") 
'conectamos a la base de datos mediante OLE ODBC dando el Driver 
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb") 
if len(Request("ubi_admin")) > 0 and len(Request("ubi_geo")) > 0 then
    strSQL = "INSERT INTO cat_proyecto(ubi_amin, ubi_geo) VALUES('"&Request("ubi_admin")&"', '"&Request("ubi_geo")&"')"
    Conexion.Execute(strSQL)
    Conexion.Close()
end if
%>

si es asi me marca esto:

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.
/it/p1_pro.asp, line 11

[u_goldman]

Si, el error te dice que tu base de datos no tiene permiso de lectura/escritura o está en modo de solo lectura, verifica ambas cosas e intenta de nuevo.

Saludos

[omegafunky]

pues ya cheque eso, le di click derecho y propiedades pero no tiene habilitada la pcion de solo lectura, como puedo hacer para que se guarden los datos?

[Shiryu_Libra]

Como otorgar permisos de Escritura

[omegafunky]

gracias amigo muy amable ya quedo por el momento jeje ya que es un proyecto algo grande, espero me sigas acesorando cuando me surgan dudas, gracias por tu apoyo =D