找错

[feiyusx]

dim rs0,rs1
dim sql,Sql1
sql="Select lev from member where flag like '%0%' order by lev and lev>=1"
Set rs0=Server.CreateObject("Adodb.RecordSet")

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

rs0.Open Sql,conn,1,3

do while not rs0.Eof

LastLev=rs0.Fields("Lev")
rs0.MoveNext

rs1.Open "Select Flag from member where Lev=" &LastLev& " order by Flag",conn,1,3
do while not rs1.Eof
LastFlag=rs1.Fields("Flag")
rs1.Move(1)
response.write LastFlag &"<br><p>"
response.write rs1.Fields("flag") &"<br>"
rs1.MoveNext
loop
rs0.Close

Loop

rs1.Close




错误:response.write rs1.Fields("flag") &"<br>"发生意外