存储过程循环记录集

Set rsdate=server.createobject("adodb.recordset")
sql= "SELECT *  FROM table where Id=5" 
rsdate.Open sql,conn , 3, 3
     do while not rsdate.eof
          set rsdate1=server.createobject("adodb.recordset")
          sql= "SELECT *  FROM table1  where name='"&rsdate(0)&"'"
          rsdate1.Open sql,conn , 3, 3
              if rsdate1.eof and rsdate1.bof then
              sqltext="insert into table2 (id,name,vaf)values('"&rsdate(0)&"','"&rsdate(1)&"','"&rsdate(2))&"'"
              conn.execute sqltext
              end if
          rsdate1.close
          set rsdate1=nothing
      rsdate.movenext
      loop
rsdate.close
set rsdate=nothing