La operación no está permitida si el objeto está abierto

[LluviaRamirez]

Listo ya quedo,
trate de arreglarlo un poco con tus comentarios pero no supe como mejorarlo :) pero con lo que hice me funciono, aunque si saben de como hacer el recorrido de rs de diferente forma se los agradecere, ya que por lo que veo voy a utilizar mucho esto.
gracias.
El codigo quedo asi:
<%
Dim rsFact, sqlFact
Dim rsFact_numRows
Set rsFact = Server.CreateObject("ADODB.Recordset")
rsFact.ActiveConnection = MM_ConFactura_STRING
rsFact.Source = "SELECT * FROM Factura WHERE Bandera='" & 0 & "'"
rsFact.CursorType = 0
rsFact.CursorLocation = 2
rsFact.LockType = 1
rsFact.Open()

rsFact_numRows = 0
%>
<%
Dim cmdUpDate, sqlUp
Set cmdUpDate = Server.CreateObject("ADODB.Command")

Dim rsCMKArt
Dim rsCMKArt_numRows

dim vardesc
While (NOT rsFact.EOF)

vardesc= rsFact("Descripcion")
response.Write(vardesc)
response.Write("<BR>")
Set rsCMKArt = Server.CreateObject("ADODB.Recordset")
rsCMKArt.ActiveConnection = MM_ConD84_STRING
rsCMKArt.Source = "SELECT * FROM Articulos Where Descripcion = '" & TRIM(rsFact("Descripcion")) & "'"
rsCMKArt.CursorType = 0
rsCMKArt.CursorLocation = 2
rsCMKArt.LockType = 1
rsCMKArt.Open()


if Not rsCMKArt.EOF then
sqlUp = "UPDATE Factura Set ClaveArtCMK= ' " & rsCMKArt("Clave") &" ' Where Descripcion='" & TRIM(rsFact("Descripcion")) & " ' "
cmdUpDate.ActiveConnection = MM_ConFactura_STRING
cmdUpdate.CommandType = 1
cmdUpDate.CommandText = sqlUp
cmdUpDate.Execute
else
response.Write("no encontro el articulo en la tabla articulos")
response.Write("<BR>")
sqlUp = "UPDATE Factura Set ClaveArtCMK= ' 00000 ' Where Descripcion='" & TRIM(rsFact("Descripcion")) & " ' "
cmdUpDate.ActiveConnection = MM_ConFactura_STRING
cmdUpdate.CommandType = 1
cmdUpDate.CommandText = sqlUp
cmdUpDate.Execute

end if

rsFact.MoveNext
Wend %>