laço for ou while

ae pessoal, estou com uma dúvida aqui q ta me deixando sem neurônios..rss

É o seguinte, é possível dentro de um laço eu fazer tipo assim vou mostrar um exemplo:

for i=1 to 10

relacionar=i

set rs=cn.execute("select * from pessoas where id="&relacionar)
while not rs.eof
cn.execute("insert into tabela2 (id_pessoa,nome) values('"&i&"','"&rs("nome")&"')")
rs.movenext
wend
response.write i
response.write rs("nomepessoa")
cn.execute("delete from tabela2 where id_pessoa="&relacionar)
next
Isso eu fiz somente para se ter uma idéia, eu tentei fazer isso, não aparece nada depois do primeiro código... esse código eu fiz um resumão, pq eu preciso calcular os bônus sobre níveis de pessoas diferentes, e queria exibir tudo de uma só vez, são várias pessoas, n quero fazer 1 por 1, o interessante seria aparecer tudo, em uma lista!

Alguém ajuda?!