ASP下拉列表不能显示

<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from article_type"
rs.open sql,conn,1,1
%>
<select name="typeid" size="1" class="smallSel" >
<%
dim rs,sql,sel
set rs=server.createobject("adodb.recordset")
sql="select * from article_type"'设定打开方式为只读
rs.open sql,conn,1,1 '显示该记录集中所有的内容,在这里也就是在下拉菜单中显示文章所属栏目的名称,添加文章的时候要在这里选择其栏目的名称
do while not rs.eof
sel="selected"
response.write "<option" & sel & " value='"+CStr(rs("ClassID"))+"' name=typeid>"+rs("article_type")+"</option>"+chr(13)+chr(10)
'显示了一个记录了以后自动移到下一个记录
rs.movenext
loop
rs.close'关闭打开的记录集和数据库连接
set rs=nothing
conn.close
%>
</

asp下拉列表 控制显示内容 ASP中循环显示下拉列表问题!! asp下拉列表框 ASP的下拉列表 asp 下拉列表问题 如何显示下拉列表 asp下拉列表的问题 asp下拉列表框取值的问题 ASP下拉菜列表框代码悠 ASP.NET 2.0下拉列表框问题