Conjunto de registros

[kschwartz]

Saludos
Al hacerlo con do while trata de garbar la misma fila y ...

Código:

<%set rs_cur=createobject("ADODB.Recordset")
sqltxt2="select FACCODIGO,PLLLLAVECUR,CURCODIGO,CURDESC,PAECODIGO FROM VW_PAC_PROGRAMACION WHERE PRECODIGO LIKE '%"&pcode&"%' and OACCODIGO LIKE'%"&oacod&"%' and FACCODIGO LIKE'%"&fcode&"%' and SEMCODIGO LIKE '%"&var1&"%' and SECCODIGO LIKE '%"&var2&"%'" 
rs_cur.open sqltxt2,"DSN=xxx;PWD=xxx" 
llave=RS_cur("PLLLLAVECUR")
%>

<%do while not rs_cur.eof%>
<% set rs_graba=createobject("ADODB.Recordset")
sqltxt3="INSERT INTO S_A_WWW_LLAVE VALUES('" &exp0& "','" &exp1& "',000101,'" &oacod& "','"&fcode&"','"&exp2&"','"&llave&"',0)" 
rs_graba.open sqltxt3,"DSN=xxx;PWD=xxx" %>

<%
rs_cur.movenext
loop
%>

Que puedo hacer?????