Error Type: Microsoft JET Database Engine (0x80004005)

[ruxee]

Y este error?

No me daba para nada, ahora acabo de cambiar de computadora y al correr este sitio localmente me ha dado este error, alguien sabe que es?
Error Type:
Microsoft JET Database Engine (0x80004005)
Operation must use an updateable query.
/undss/SAS/securitycler/frmCSCInterno_rv.asp, line 77

[sjam7]

seran permisos de escritura? puedes poner codigo?

[El_Metallick]

pon codigo porque asi por lo que se ve como dice nuestro amigo sjam sera problema de permisos... saludos

[sjam7]

oigo un eco....a, es el buen Metallick...

[ruxee]

Gracias Tios,

<%
agencia=request.QueryString("agencia")
numreg=request.QueryString("numreg")

formulario=0 ' 0, formulario por defecto para llenar el SC
' 1, formulario de finalización, el SC se diligenció correctamente
enc=0

'**** se arma la fecha para realizar validaciones en access
dia=Day(date())
mes=Month(date())
ano=Year(date())
if len(dia)=1 then
dia="0"&dia
end if
if len(mes)=1 then
mes="0"&mes
end if
fechacomparar=mes&"/"&dia&"/"&ano
fechaformulario=mes&"/"&dia&"/"&ano
fechaver=dia&"/"&mes&"/"&ano

'Se establece la conexión con la BD y se abre las tablas correspondientes para los combos
set con=server.CreateObject("adodb.connection")
constr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + server.MapPath("../../db/PNUD.mdb")
con.ConnectionString=constr
con.Open
'tabla de categaria
set categoria=server.CreateObject("adodb.recordset")
categoria.ActiveConnection=con
categoria.Open "select * from tblCategoria order by texto",con,2,3
'tabla de tipo de documento de identidad
set tipodoc=server.CreateObject("adodb.recordset")
tipodoc.ActiveConnection=con
tipodoc.Open "select * from tbldocumento order by texto",con,2,3
'tabla de paises
set pais=server.CreateObject("adodb.recordset")
pais.ActiveConnection=con
pais.Open "select * from tblPaís order by Pais",con,2,3
'tabla de departamentos
set deptos=server.CreateObject("adodb.recordset")
deptos.ActiveConnection=con
deptos.Open "select * from tbldptosc order by Departamento",con,2,3

'tabla de Hora
set hora=server.CreateObject("adodb.recordset")
hora.ActiveConnection=con
hora.Open "select * from tblHora",con,2,3
'tabla de Medio de Transporte
set medio=server.CreateObject("adodb.recordset")
medio.ActiveConnection=con
medio.Open "select * from tblMedio order by texto",con,2,3
'registro en tblPersona
set re=server.CreateObject("adodb.recordset")
re.ActiveConnection=con
sqlpersona="select * from tblPersona where NumReg='"&numreg&"'"
re.Open sqlpersona,con,2,3
if ((not re.eof) and (not re.bof)) then
enc=1
end if

'***** se captura el temporal que actua como numero de solicitud del clearance
if request.form("solicitud")>0 then
numsolpart=request.form("solicitud")
else
set soltmp=server.CreateObject("adodb.recordset")
soltmp.ActiveConnection=con
sqlmaxsol="select max(NumSol) from tmptblSClearance"
soltmp.Open sqlmaxsol,con,2,3
numsolpart=int(soltmp(0))
if numsolpart>0 then
numsolpart=numsolpart+1
else
numsolpart=1
end if
sqlinsersol="insert into tmptblSClearance(NumSol, Fecha) values("&numsolpart&",#"&fechaformulario&"#)"
con.execute sqlinsersol
end if
'**** fin de la captura del temporal

Gracias,