求教:我这段循环语句错在哪里的?

Set rs=Server.CreateObject("Adodb.RecordSet")

google_ad_width = 250; google_ad_height = 250; google_ad_format = "250x250_as"; google_color_url = "000000";

Set rs1=Server.CreateObject("Adodb.RecordSet")

sql="select * from scjh_1 where s1=""& s4 &"" order by id"

rs.Open sql,conn,1,1

if rs.eof and rs.bof then

set bd=nothing

set rs=nothing

set rs1=nothing

exit sub

else

do while not rs.EOF

showmsg "1"

sp_id=trim(rs("s8"))

sql1="select * from cp_2 where and s1=""& sp_id &"" order by id"

rs1.Open sql1,conn,1,1

if rs1.eof and rs1.bof then

set bd=nothing

set rs=nothing

set rs1=nothing

exit sub

else

do while not rs1.EOF

showmsg "2"

yl_id=trim(rs1("s2"))

st1="""& yl_id &"""

st2=writebdtxt("原料需求计划","增加", st1)

call bd.insert_sql("yl_xqjhmx","s1",st1,0,st2)