各位高手：
我最新想做这样一个程序，就是限制学生来选择论文，每个学生只能选择一个论文题目。我的想法是在学生提交的同时，在lw表中增加该用户的id，当用户在选择论文的时候判断该用户的id是否在表lw中，如过在则提示“您已经选择”，如果没有在表中，则显示该论文题目让选生。现在我遇到的问题是老提示“您已经选择”

部分代码如下：
<%
Set rs=Server.CreateObject("adodb.recordSet")
rs.open "Select * from [PPst_User] where UserName='"&Session("PPst_UserName")&"'",conn,1,1  注明：
    Sender_ID=rs("id")
    rs.close
    Set rs=Server.CreateObject("adodb.recordSet")
    rs2.open "Select * from [lw] where usernameid='"&Session("sender_id")&"'",conn,1,1
    if rs2.eof=true then 
      Response.Write ("<script>alert('您已经选择');history.go(-1);</script>")
       Response.End()
     end if

%>

<table width="779" border="0" align="center" cellpadding="0" cellspacing="0" class="lantable">
<tr >
<td width="134" height="25" align="left" class="xiabianlan">


 <%



    Set rs=Server.CreateObject("adodb.recordSet")
    rs.open "Select * from [User] where UserName='"&Session("UserName")&"'",conn,1,1
    Sender_ID=rs("id")
    response.Write rs("UserName")
    response.Write rs("realname")
    rs.Close
    Set rs=Server.CreateObject("adodb.recordSet")
    rs.open "Select * from [use] where ID="&request("ID"),conn,1,1 

%> 
    <td width="157" align="left" class="xiabianlan">你要选择的论文题目是：</td>
    <td width="375" align="left" class="xiabianlan"><font face="宋体" size="3" color="#FF0000"><%=rs("Title")%></font></td>
    <td width="101" align="center" ><a href="save.asp?ID=<%=Rs("ID")%>">确定</a></td>

<td width="12"></td>
</tr>
</table>


 
<%    
    rs.close
    set rs=nothing
conn.close
set conn=nothing
%>

    <p align="center"><a href="sms.asp">返回</a></p>
请各位帮帮忙