怎么从从库的一个表中读一个字段，显示在下拉菜单中！

[daquzi]

<select name="WD_name" id="WD_name">

<% dim ssSQL,ssWD_mame,rsdd,ir
ssSQL="select D_name from D_txy order by D_date desc"
Set rsdd= Conn.Execute(sSQL)
%>
<option value="<%=rsdd("D_name")%>"><%=rsdd("D_name")%></option>
<% rsdd.close()
set rsdd=nothing
%>
</select>
不能显示啊！

[TSD]

<select name="WD_name" id="WD_name">
<%
dim ssSQL,ssWD_mame,rsdd,i
ssSQL="select D_name from D_txy order by D_date desc"
set rsdd=server.createobject("adodb.recordset")
rsdd.open ssSSQL,conn,1,1
for i=1 to rsdd.recordcount
if rsdd.bof and rsdd.eof then exit for
%>
<option value="<%=rsdd("D_name")%>"><%=rsdd("D_name")%></option>
<%
rsdd.movenext
next
rsdd.close()
set rsdd=nothing
%>
</select>

[jiffer]

<select name="WD_name" id="WD_name">

<% dim ssSQL,ssWD_mame,rsdd,ir
set rs=server.createobject("adodb.recordset")
ssSQL="select D_name from D_txy order by D_date desc"
rs.open ssql,conn,1,1
if rs.recordcount>0 then
for I=1 to rs.recordcount
%>
<option value="<%=rsdd("D_name")%>"><%=rsdd("D_name")%></option>
<%
rs.movenext
next
end if
%>
<%
rs.close
%>
</select>

[andraw2002]

<select name="WD_name" id="WD_name">
<%
dim ssSQL,ssWD_mame,rsdd,ir
ssSQL="select D_name from D_txy order by D_date desc"
Set rsdd= Conn.Execute(sSQL)
do while not rsdd.eof
%>
<option value="<%=rsdd("D_name")%>"><%=rsdd("D_name")%></option>
<%
rsdd.movenext()
loop
rsdd.close()
set rsdd=nothing
%>
</select>

[古侠]

基本上就是这样的