ASP - Grabar conjunto de registros

Hola..
Como puedo hacer para que grabe el conjunto de registros que obtengo de esa consulta... hasta ahora solo puedo garbar un registro...
<%
meli=split(request.form("dato"),",")
fcode=request.form("fax")
oacod=request.form("oax")
exp0=request.form("uni")
exp1=request.form("max")
exp2=request.form("pecode")
var1=meli(0)
var2=meli(1)
pcode=000101
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")

%>
<%
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"
%>
>

Se que tengo que usar un do while pero hasta ahora no me sale..
Gracias por la ayuda

Buenas

En vez de esto

<%
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"
%>

Prueba esto:

<%
set rs_graba=createobject("ADODB.Recordset")
while not rs_graba.EOF

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_graba.MoveNext()
wend
rs_graba.close
%>

Un saludo