hay algun error en este codigo?

[dobled]

La verdad es que deseo reemplazar unos valores que tengo que traer de otra base pero este codigo no hace nada !! mmmm

<!--#include file="conex.asp" -->
<%
NxSQL ="SELECT carton, id FROM ipfichaprod "
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open NxSQL, oConn,3,1

Do while not RS.eof
nro_carton = TRIM(Rs("carton"))
id = Rs("id")

SQL="SELECT nro_tecnico, id_carton FROM ipcarton WHERE nro_tecnico = '"&nro_carton&"' "
Set RS_carton = Server.CreateObject("ADODB.Recordset")
RS_carton.Open SQL, oConn,3,1

id_car = RS_carton("id_carton")

SQL1="UPDATE ipfichaprod SET carton = '"&id_car&"' WHERE id = '"&id&"' "
Set RST = oConn.Execute(SQL1)

Rs.MoveNext
Loop
%>

[ACHAVARRIA]

Esta Sección tiene un error :

id_car = RS_carton("id_carton")

En ningun momento le dices a ADO cual es el registro que deseas.

Ejemplo:

RS_carton("id_carton").movefirst ó
RS_carton("id_carton").movelast ó

aplicando un ciclio de control con un Do.....Loop

Me explico !!!!

[jercer]

Si no te genera ningun error es que no pasa por el bucle o solo pasa una vez, porque si no te daría error al intentar crear dos veces el mismo objeto sin haberlo cerrado y eliminado antes (Set RS_carton = Server.CreateObject("ADODB.Recordset")).
Para ver si pasa alguna vez sustituye:

SQL="SELECT nro_tecnico, id_carton FROM ipcarton WHERE nro_tecnico = '"&nro_carton&"' "
Set RS_carton = Server.CreateObject("ADODB.Recordset")
RS_carton.Open SQL, oConn,3,1

por:

SQL="SELECT nro_tecnico, id_carton FROM ipcarton WHERE nro_tecnico = '"&nro_carton&"' "
response.write "paso, numero:" & nro_carton & ",id:" & id
Set RS_carton = Server.CreateObject("ADODB.Recordset")
RS_carton.Open SQL, oConn,3,1

Seguramente no te escriba nada por lo que la sql primera no presenta resultados.