asp 怎么从循环外逐个取的循环内的每一个值

数据表
s1,s2
表结构
s1——id,name
s2——id,sid,name
表关系
s1.id=s2.sid
实现什么功能(注:在这里不能使用嵌套循环，否则就没有那种效果了)

dim id
set rs_s1 = server.createobject("ADODB.Recordset")
sql = "select * from s1"
rs_s1.open sql,conn,1,1
if not rs_s1.eof then
do while not rs_s1.eof
id=rs_s1("id")
rs_s1.movenext
loop
end if
rs_s1.close
set rs_s1 = nothing

set rs_s2 = server.createobject("ADODB.Recordset")
sql = "select * from s2 where sid="id
rs_s2.open sql,conn,1,1
if not rs_s2.eof then
do while not rs_s2.eof
rs_s2("name")
rs_s2.movenext
loop
end if
rs_s2.close
set rs_s2 = nothing

这样写是错误的在第一个循环中id=循环完了的最后的rs_s1("id")对第二个循环就没意义了
我想的是通过什么方法可以逐个获取第一个循环中的每一个值再传给第二个循环中
不知道我这样说的清楚不，那就麻烦各位帮帮忙啊！