Insert sql com loop

Olá!

Preciso inserir um conteúdo a partir de um campo do meu banco.

Tenho uma tabela Produtos, onde busco os produtos selecionados.

Para cada produto selecionado, preciso que grave uma informação na minha tabela Vendidos.

Tentei dessa forma, porém só gravou o último pedido selecionado, ignorando os demais.

sql = "select * from cart where id_pedido =" & session("pedido")
set rsprodutos = GetRS(sql)

do while not rsprodutos.eof

 sql = "insert into produtos_vendidos ( "
 sql = sql & "id_pedido,"
 sql = sql & "id_produto,"
 sql = sql & "quantidade)"

 sql = sql & " VALUES ("

 sql = sql & "'" & session("pedido") & "',"
 sql = sql & "'" & rsprodutos("id_produto") & "',"
 sql = sql & "'" & rsprodutos("quantidade") & "')"

 call executecmd(sql)

 rsprodutos.movenext 'Passa pro próximo
 Loop

	Como posso realizar esse insert?

	Obrigado!