把数据库中的记录显示到下拉列表中

数据库连接
<%
if request.Form("user_name")<>"" then
user_name=request.Form("user_name")
user_sex=request.form("user_sex")
user_birthday=request.form("user_birthday")
user_nick=request.form("user_nick")
user_address=request.form("user_address")
user_size=request.form("user_size")
user_telephone=request.form("user_telephone")
user_OICQ=request.form("user_OICQ")
user_homepage=request.form("user_homepage")
Set rs1=Server.CreateObject("ADODB.Recordset")
sql1="select * from tb_user"
ins="insert into tb_user (user_name,user_sex,user_birthday,user_nick,user_address,user_size,user_telephone,user_OICQ,user_homepage) values ('"&user_name&"','"&user_sex&"','"&user_birthday&"','"&user_nick&"','"&user_address&"','"&user_size&"','"&user_telephone&"','"&user_OICQ&"','"&user_homepage&"')"
conn.execute(ins)%>
<script language="javascript">
alert("添加个人详细信息已成功！！")
window.location.href='index.asp';
</script>
<%end if%>

<%
Set rs2=Server.CreateObject("ADODB.Recordset")
sql2="select * from tb_class"
rs2.open sql2,conn,1,3
%>
向列表中添加数据
<select name="user_class" id="class_id">
              <%rs2.movefirst
     while(not rs2.eof)
     %>
              <option value="<%=rs2("class_name")%>"><%=rs2("class_name")%></option>
              <%
    rs2.movenext()
    wend
   %>
</select>