Problemas para mover el recordset

[LluviaRamirez]

Hola, Estoy haciendo una consulta a 3 diferentes tablas en 2 diferentes BD, al momento en que voy guardadno los datos con un Update, tengo problemas para mover el recordset, ya que me envia el error de EOF y BOF, ya no se por donde moverle ya le he puesto la validacion con While not rsFactura.eof, y aun asi me sigue mandando error. Les anexo el codigo y espero que alguien sepa que estoy haciendo mal.

El rs que liga todo es rsFactura

<%
Dim rsFactura
Dim rsFactura_numRows

Set rsFactura = Server.CreateObject("ADODB.Recordset")
rsFactura.ActiveConnection = MM_ConFactura_STRING
rsFactura.Source = "SELECT Articulo FROM dbo.Factura Where Bandera= '" & 0 & "' group by Articulo"
rsFactura.CursorType = 0
rsFactura.CursorLocation = 2
rsFactura.LockType = 1
rsFactura.Open()

rsFactura_numRows = 0
%>
<%While (NOT rsFactura.EOF)
Dim rsFact, sqlFact
Dim rsFact_numRows
Set rsFact = Server.CreateObject("ADODB.Recordset")
rsFact.ActiveConnection = MM_ConFactura_STRING
rsFact.Source = "SELECT * FROM dbo.Factura WHERE Articulo = '"& rsFactura("Articulo")&"'"
rsFact.CursorType = 0
rsFact.CursorLocation = 2
rsFact.LockType = 1
rsFact.Open()

rsFact_numRows = 0
%>
<% 'Limpo la descripcion de comillas simples
Dim var
var = TRIM(rsFact("Descripcion"))
var = replace(var,"'","")
%>
<%response.Write(var)
-While (NOT rsFact.EOF)
Dim rsCMKArt
Dim rsCMKArt_numRows

Set rsCMKArt = Server.CreateObject("ADODB.Recordset")
rsCMKArt.ActiveConnection = MM_ConD84_STRING
rsCMKArt.Source = "SELECT * FROM dbo.Articulos Where Descripcion = '" & (var) & "'"
rsCMKArt.CursorType = 0
rsCMKArt.CursorLocation = 2
rsCMKArt.LockType = 1
rsCMKArt.Open()

rsCMKArt_numRows = 0
response.Write(rsCMKArt("Clave"))
%>
<%
Dim sqlUp, rsUpdate
Set rsUpdate = Server.CreateObject("ADODB.Recordset")

sqlUp = "UPDATE Factura Set ClaveArtCMK= '"&rsCMKArt("Clave")&"' Where Articulo='"& rsFact("Articulo")&"'"
rsUpdate.Open sqlUp,MM_ConFactura_STRING
%>
<%
rsCMKArt.MoveNext
rsFact.MoveNext
Wend
rsFactura.MoveNext
Wend
%>