error '80004005'

[iWolf]

Hola foreros... he buscado este error en los mensajes que hablan del tema pero no encontre algo semejante....

Antes que nada debo de decir que la pagina corria perfectamente... esta alojada en un hosting... el detalle es que de repente empezo a salirme el siguiente error:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]Error in row

/AplicarPagos.asp, line 90

esta linea 90 no es mas que un Update de ADO ... osea:

rs4.Update

y como lo dije antes esta pagina estaba funcionando bien .....

que fue lo que paso???

Si alguien me puede ayudar se los agradecere....

NOTA: Ya estoy viendo el asunto con mi proveedor de servicios de hosting por si cambiaron los permisos de W/R...

[AlZuwaga]

Fijate si este es tu caso. Es el único error que encontré con la descripción del tuyo: Error in row

[iWolf]

mmmm... creo que nop.... ya que en el enlace que me pusiste habla de otro tipo de error..... anque el mensaje es igual ... pero no es el caso.... en mi caso parece ser un detalle de que no me esta dejando actualizar.... mira te pongo el codigo completo de la pagina y te indico en donde me marca el error.... aunque te repito esta pagina estaba corriendo bien .... este error aparecio de repente....


<%
Response.Expires = 0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.Buffer = true
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"

Pol = Request.Form("Pol")
idp = Request.Form("idp")
ida = Request.Form("ida")

Archivo = Pol & ".xls"
Existe = false
set fs = Server.CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(Server.MapPath("/Activos"))
For Each file In folder.Files
if file.Name = Archivo then
Existe = true
Exit For
end if
Next
set fs = Nothing
set folder = Nothing

if Existe = false then
Response.Redirect "ErrorAplicarPagos.htm"
end if

set cne=Server.CreateObject("ADODB.Connection")
strcn = "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & Server.MapPath("/Activos/" & Pol & ".xls")
cne.Open strcn

set cna=Server.CreateObject("ADODB.Connection")
set rs1=Server.CreateObject("ADODB.Recordset")
set rs2=Server.CreateObject("ADODB.Recordset")
set rs3=Server.CreateObject("ADODB.Recordset")
set rs4=Server.CreateObject("ADODB.Recordset")

strcn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/CGI-BIN/ASEGURADORAII.mdb")
cna.Open strcn

SQL = "DELETE FROM IMPORTAR_PAGOS_TMP;"
cna.Execute SQL

SQL = "SELECT * FROM ACTIVOS;"
rs1.Open SQL,cne,3,3

Do While Not rs1.EOF
SQL = "SELECT RFC,PRIMA_QUINCENAL,FBAJA FROM TITULARES WHERE POLIZA = '" & Pol & "' AND RFC = '" & rs1("RFC") & "';"
rs2.Open SQL,cna,3,3
SQL = "SELECT * FROM IMPORTAR_PAGOS_TMP;"
rs3.Open SQL,cna,3,3
rs3.AddNew
rs3.Fields("rfc") = rs1("RFC")
rs3.Fields("qna") = Request.Form("QnaAplicar")
rs3.Fields("fecha_aplicacion") = Request.Form("FAplicacion")
rs3.Fields("nombre_completo") = rs1("NOMBRE")
if rs2.EOF = true and rs2.BOF = true then
rs3.Fields("observaciones") = "No se encuentran en el sistema"
rs3.Fields("NUM_OPERACION") = 6
else
if rs2("FBaja") = "" or IsNull(rs2("FBaja")) then
SQL = "SELECT * FROM TODO_PAGOS_01_02 WHERE POLIZA = '" & Pol & "' AND RFC = '" & rs1("RFC") & "' AND CINT(QNA_APLICAR) = " & CInt(Request.Form("QnaAplicar")) & ";"
rs4.Open SQL,cna,3,3
if rs4.EOF = true and rs4.BOF = true then
rs4.AddNew
rs4.Fields("rfc") = rs1("RFC")
rs4.Fields("Qna_aplicar") = Request.Form("QnaAplicar")
rs4.Fields("Concepto") = "SYSTEM"
rs4.Fields("poliza") = Pol
rs4.Fields("Pago2") = rs1("COSTO")
rs4.Fields("fecha_pago") = Request.Form("FAplicacion")
rs4.Fields("ClaveRfc") = rs1("RFC") & Pol
Costo = rs1("COSTO")
if CCur(rs2("prima_quincenal")) = CCur(rs1("COSTO")) then
rs4.Fields("Descripcion") = "1.-OK"
rs3.Fields("observaciones") = "OK"
rs3.Fields("NUM_OPERACION") = 1
else
rs4.Fields("Descripcion") = "5.-Dif.pago. PRIMA Q<>PAGO_ACTUAL"
if CCur(rs2("prima_quincenal")) < CCur(rs1("COSTO")) then
rs3.Fields("observaciones") = "Prima Quincenal menor al pago actual"
rs3.Fields("NUM_OPERACION") = 3
else
rs3.Fields("observaciones") = "Prima Quincenal mayor al pago actual"
rs3.Fields("NUM_OPERACION") = 4
end if
end if
rs4.Update --------------------------Esta es la linea 90
else
Costo = rs4.Fields("Pago2").Value
rs3.Fields("observaciones") = "Tienen pago aplicado en esta quincena"
rs3.Fields("NUM_OPERACION") = 7
end if
rs4.Close
SQL = "SELECT * FROM PAGOS_01_02 WHERE POLIZA = '" & Pol & "' AND RFC = '" & rs1("RFC") & "';"
rs4.Open SQL,cna,3,3
if rs4.EOF = true and rs4.BOF = true then
rs4.AddNew
rs4.Fields("rfc") = rs1("RFC")
rs4.Fields("poliza") = Pol
rs4.Fields("ClaveRfc") = rs1("RFC") & Pol
end if
rs4.Fields(CInt(Request.Form("QnaAplicar"))) = Costo
rs4.Update
rs4.Close
else
SQL = "SELECT * FROM DEPENDIENTES WHERE POLIZA = '" & Pol & "' AND RFC = '" & rs1("RFC") & "';"
rs4.Open SQL,cna,3,3
if rs4.EOF = true and rs4.BOF = true then
rs3.Fields("observaciones") = "Estan dados de baja"
rs3.Fields("NUM_OPERACION") = 5
else
Do While Not rs4.EOF
if IsNull(rs4("fBaja")) or rs4("fBaja") = "" then
Cad = "Titulares dados de baja pero tienen dependientes"
rs3.Fields("NUM_OPERACION") = 2
rs4.MoveLast
else
Cad = "Estan dados de baja"
rs3.Fields("NUM_OPERACION") = 5
end if
rs4.MoveNext
Loop
rs3.Fields("observaciones") = Cad
end if
rs4.Close
SQL = "SELECT * FROM TODO_PAGOS_01_02 WHERE POLIZA = '" & Pol & "' AND RFC = '" & rs1("RFC") & "' AND CINT(QNA_APLICAR) = " & CInt(Request.Form("QnaAplicar")) & ";"
rs4.Open SQL,cna,3,3
if rs4.EOF = true or rs4.BOF = true then
rs4.AddNew
rs4.Fields("rfc") = rs1("RFC")
rs4.Fields("Qna_aplicar") = Request.Form("QnaAplicar")
rs4.Fields("Concepto") = "SYSTEM"
rs4.Fields("Descripcion") = "4.-Se encuentra dado de BAJA"
rs4.Fields("poliza") = Pol
rs4.Fields("Pago2") = rs1("COSTO")
rs4.Fields("fecha_pago") = Request.Form("FAplicacion")
rs4.Fields("ClaveRfc") = rs1("RFC") & Pol
rs4.Update
rs4.Close

SQL = "SELECT * FROM PAGOS_01_02 WHERE POLIZA = '" & Pol & "' AND RFC = '" & rs1("RFC") & "';"
rs4.Open SQL,cna,3,3
if rs4.EOF = true and rs4.BOF = true then
rs4.AddNew
rs4.Fields("rfc") = rs1("RFC")
rs4.Fields("poliza") = Pol
rs4.Fields("ClaveRfc") = rs1("RFC") & Pol
end if
rs4.Fields(CInt(Request.Form("QnaAplicar"))) = rs1("COSTO")
rs4.Update
rs4.Close
else
rs4.Close
rs3.Fields("observaciones") = "Tienen pago aplicado en esta quincena"
rs3.Fields("NUM_OPERACION") = 7
end if
end if
end if
rs3.Fields("POLIZA") = Pol
rs3.Fields("IMPORTE") = rs1("COSTO")
rs3.Update
rs2.Close
rs3.Close
rs1.MoveNext
Loop

rs1.Close
cna.Close
cne.Close

Set rs1 = Nothing
Set rs2 = Nothing
Set rs3 = Nothing
Set rs4 = Nothing
Set cna = Nothing
Set cne = Nothing

Response.Redirect "DetallePagos.asp?idp=" & idp & "&ida=" & ida & "&Pol=" & Pol
%>
<html>

<head>

<title>M&M</title>
</head>

<body background="../Imagenes/PrincipalBarra.jpg" leftmargin="20">
</body>

</html>