Microsoft OLE DB Provider for OBDC Drivers error '80040e14'

[a n g e l u s]

hola jetzona,

si ese es todo tu codigo, te aconsejo que validez es simple con un IF antes de guardar los datos asi no te dara sorpresa al momento de guardar. otra cosa mira el codigo


Dim Bs
Set Bs = Server.CreateObject("ADODB.Connection")
Bs.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")

' CREA UNA CADENA PARA actualizar LOS DATOS
sql= "UPDATE Evaluaciones SET pfinal = "& pfinal &", nfinal = "& nota &", nr = "& nr &", r1 = '"& r1 &"', obs1 = '"& obs1 &"', na = "& na &", r2 = '"& r2 &"', r3 = '"& r3 &"', r4 = '"& r4 &"', obs2 = '"& obs2 &"', ng = "& ng &", r5 = '"& r5 &"', r6 = '"& r6 &"', r7 = '"& r7 &"', obs3 = '"& obs3 &"', np = "& np &", r8 = '"& r8 &"', r9 = '"& r9 &"', obs4 = '"& obs4 &"', nc = "& nc &", r10 = '"& r10 &"', obs5 = '"& obs5 &"', obs_gen = '"& obs6 &"' WHERE folio="& Folio

on error resume next
Bs.execute(SQL)
if err <> 0 then
response.write "hay un error: <br>"&err.description
end if

Bs.close