[求助]下拉菜单

呵呵 已经解决了 放这里给大家共享吧：

<select name="department">
<% '从department表中查询出部门名称，将其加到department下拉菜单中
    set rs=server.CreateObject("adodb.recordset")
    sqlstr="select depart_name from department"
    rs.open sqlstr,conn,1,3
%>
<%while not rs.eof%>
    <%
        temp=rs("depart_name")
        if temp<>"" then
    %>
            <option value="<%=temp%>"><%=temp%></option>
        <%end if
        rs.movenext
 wend
%>
<%
    rs.close
    set rs=nothing
%>
  </select>