<select name="Item_unit" id="Item_unit">
<%
call opendatabase()
set Rs1=server.CreateObject("adodb.recordset")
sql="select DEPT_NAME from department"
Rs1.Open sql,conn,1,3
if not rs1.eof then
do while not rs1.eof
%>
<option <%if rs1("dept_name")="'"&rs("Item_unit")&"'" then Response.Write "selected" %>value="<%=rs1("dept_name")%>"><%=rs1("dept_name")%></option>
<%
rs1.MoveNext
loop
end if
%>
</select>
为什么不执行