error '80004005'

[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>