我要做个下拉菜单从数据库读数据，这个我做到了，但是我要修改此信息时，我想让他的默认选项为我添加数据时的选项该怎么做呢？下面是我的代码，这样不能实现！！5555
diqu=另一个表中读出的数据（此表为我添加信息的表）
<select name="diqu" id="diqu">
<%
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from YZ_Area order by AreaID asc"
rs2.open sql2,conn,1,1
For i = 1 to rs2.RecordCount
if rs2.eof then
Exit For
end if
%>
<option value="<%=rs2("AreaID")%>" <%if diqu=rs2("AreaID") then response.write "selected"%>><%=rs2("AreaName")%></option>
<%
rs2.movenext
next
rs2.close
set rs2=nothing
%>
</select>

rs2.open sql2,conn,1,3

不是这个原因，我的意思是，我先添加了数据到数据库中，上面代码是修改页面，比如我添加时选择的是北京，我想在修改时直接显示北京，不显示“请选择”。

<select name="bm" id="bm">
<option value="" <%if rs("bm")="" then response.write "selected"%>>请选择编码</option>
<option value="a" <%if rs("bm")="a" then response.write "selected"%>>a</option>
<option value="b" <%if rs("bm")="b" then response.write "selected"%>>b</option>
<option value="c" <%if rs("bm")="c" then response.write "selected"%>>c</option>
</select>
不用数据库这个功能可以实现，谁可以帮帮我啊？

<select name="diqu" id="diqu">
<%
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from YZ_Area order by AreaID asc"
rs2.open sql2,conn,1,3
%>
<option value="<%=rs2("AreaID")%>" selected><%=rs2("AreaName")%></option>

<% For i = 1 to rs2.RecordCount
if rs2.eof then
Exit For
end if
%>
<option value="<%=rs2("AreaID")%>" <%if diqu=rs2("AreaID") then response.write "selected"%>><%=rs2("AreaName")%></option>
<%
rs2.movenext
next
rs2.close
set rs2=nothing
%>
</select>
试试这样行不行。
不过一般不是这样做的，修改文件时要有一个值要传过去的,用来确定你要修改哪个文件。
一般sql会这样写
sql2="select * from YZ_Area where condition order by AreaID asc"

我自己解决了
程序完全正确，变量的数据类型错了。

谢谢5楼朋友！
我传了值的，diqu就是另一个表通过ID判断出的值。
我的问题找到了，不是你说的这样，是数据类型错了。