ASP登陆框下拉菜单如何实现？如何验证？

<select name="select">
<%
set conn=server.CreateObject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("data.mdb")
set rs=server.CreateObject("adodb.recordset")
sql="select name from xxzd"
rs.open sql,conn,1,1
if rs.eof then
%>
<option value="0">暂无用户</option>
<%
end if
while not rs.eof
%>
<option value="<%=rs("name")%>"><%=rs("name")%></option>
<%
rs.movenext
wend
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</select>

<!-- #include file="conn.asp" -->
<!-- #include file="ini.asp" -->
<%
'打开数据库判断用户是否存在,info为表名,username为字段名
set rsc=server.createobject("adodb.recordset")