帮忙看怎么错了

[bbkaren]

想要做联动的，不同的用户ID有不同的表，表内有管理区名、项目等列，一个管理区有多个项目。
现在先解决，根据ID查到管理区，用下列列表显示。

－－－－－－－－－－－－－－－－－－－－－

<SELECT id=管理区名 style="width: 122; height: 27" name=precinct size="1">
<OPTION VALUE=""></OPTION>
<%
set sqlrs=conn.execute("select precinct from ["&u_id&"] distinct")
do while not sqlrs.eof
%>
<OPTION value=<%=sqlrs%>><%=sqlrs%></OPTION>
<%
sqlrs.movenext
if sqlrs.eof then exit do
loop
sqlrs.close
set sqlrs=nothing
end if
%>
</SELECT>

－－－－－－－－－－－－－－－－－－－－－－－－－－

Microsoft VBScript 编译器错误 错误 '800a0400'

缺少语句

/glqdc/manage.asp，行205

end if

[Tal]

<SELECT id=管理区名 style="width: 122; height: 27" name=precinct size="1">
<OPTION VALUE=""></OPTION>
<%
if uid & "" <> "" then
set sqlrs=conn.execute("select distinct precinct from ["&u_id&"]")
else
set sqlrs=conn.execute("select distinct precinct from tablenames")
end if
do while not sqlrs.eof
%>
<OPTION value=<%=sqlrs(0)%>><%=sqlrs(0)%></OPTION>
<%
sqlrs.movenext
loop
sqlrs.close
set sqlrs=nothing
end if
%>
</SELECT>

[bbkaren]

if sqlrs.eof then exit do '这句多余，do while not sqlrs.eof 已经做了同样的事

为什么多余？它并不是同一处执行，执行的内容不同吧？

[bbkaren]

<OPTION value=<%=sqlrs(0)%>><%=sqlrs(0)%></OPTION>
有个0和没有是什么区别？

[chenrong0406]

你的两种语句的潜套方式不对，
do while ...........
........
if ....the
......
end if
.........
*.movenext
loop

[xeimm]

把你的 end if 去掉看看

<%=sqlrs("title")%>
从数据集中取出title的字段变量。

[angel2a]

if sqlrs.eof then exit do
去掉

[孟子E章]

<SELECT id=管理区名 style="width: 122; height: 27" name=precinct size="1">
<OPTION VALUE=""></OPTION>
<%
set sqlrs=conn.execute("select precinct from ["&u_id&"] distinct")
do while not sqlrs.eof
%>
<OPTION value=<%=sqlrs%>><%=sqlrs%></OPTION>
<%
sqlrs.movenext
if sqlrs.eof then exit do
loop
sqlrs.close
set sqlrs=nothing
%>
</SELECT>

[wesheng]

<SELECT id=管理区名 style="width: 122; height: 27" name=precinct size="1">
<OPTION VALUE=""></OPTION>
<%
set sqlrs=conn.execute("select precinct from ["&u_id&"] distinct")
do while not sqlrs.eof
%>
<OPTION value=<%=sqlrs%>><%=sqlrs%></OPTION>
<%
sqlrs.movenext
if sqlrs.eof then exit do '这句多余，do while not sqlrs.eof 已经做了同样的事
loop
sqlrs.close
set sqlrs=nothing
end if
%>
</SELECT>