使用ASP从表中取值填充下拉列表框？

[jngxx]

比如说，部门号、部门名称，如何作成动态的从表中取

[jngxx]

BrentIvan(Ivan)，我是想要这样的效果，
<td>部门：</td>
<td><select name="as_depid" size="1">
<OPTION selected value=010>一部</OPTION>
<OPTION value=020>二部</OPTION>
</select>
</td>
其中的名称对应编号。还有我使用Sybase11数据库，ASP怎么连呀？

[BrentIvan]

1。
<%
sSql = "Select 部门号，部门名 From tablename Where somecondition"
Set rst = cnn.Execute(sSql)
%>
<select>
<%
Do While Not rst.Eof
%>
<option value="<%= rst("部门号") %>"><%= rst("部门名") %></option>
<%
rst.MoveNext
Loop
%>

2.
DB_NAME ="Driver={Sybase System 11};SRVR=servername;DATABASE=dbname;UID=sa;PWD=;"

cnn.Open DB_NAME

[BrentIvan]

<%
sSql = "Select columnname From tablename Where somecondition"
Set rst = cnn.Execute(sSql)
%>
<select>
<%
Do While Not rst.Eof
%>
<option value="<%= rst("columnname") %>"><%= rst("columnname") %></option>
<%
rst.MoveNext
Loop
%>
</select>

[BrentIvan]

<%
sSql = "Select columanname From tablename Where somecondition"
Set rst = cnn.Execute(sSql)
%>
<select>
<%
Do While Not rst.Eof
%>
<option value="<%= rst("columnname") %>"><%= rst("columnname") %></option>
<%
rst.MoveNext
Loop
%>