关于ASP 筛选并显示的问题

关于ASP 筛选并显示的问题
即制作论坛对发表帖子的作者进行筛选,筛选出该作者的所有帖子,并显示
<td width="81%" bgcolor="#FFFFFF">&nbsp;筛选：<select name="User">
        <%
            Set Rs = Server.CreateObject("ADODB.Recordset")
            Sql = "Select * From [User] Order By ID Asc"
            Rs.Open Sql,Conn,1,1
            If Not Rs.Eof And Not Rs.Eof Then
                Do While Not Rs.Eof
        %>
                    <option <% If CInt(User)=CInt(Rs("ID")) Then Response.Write "selected" %> value="<%=Rs("User")%>"><%=Rs("User")%></option>
        <%            Rs.MoveNext
                Loop
            End If
            Rs.Close
            Set Rs=nothing
        %></select>
        </td>
 要怎么修改啊大大们

[ 本帖最后由 lm117802453 于 2011-12-5 15:22 编辑 ]