深圳福田区长王伟:asp高手帮我啊！！！！

我有个推广系统，里面有防作弊，一个IP只能注册一次增加点数，但现在失效了，1个IP无论注册多少次都增加点数,下面这段加上去还是不起效果，请问高手，是不通还是有错，或则请赐教一段代码

这个就是加的那个防作弊的语句
'''''''''''''''''''''''''''''''''''''''''''''
ipip=request.ServerVariables("REMOTE_ADDR")
sql_wr="Select * From VIP_RegUser Where LastLoginIp='"&ipip&"'"
Rs_wr.Open Sql_wr,Conn,1,1
if rs_wr.eof then

这段是增加点数的
If User_Name<>"" Then
Set Rs= Server.CreateObject("ADODB.Recordset")
Sql="Select Top 1 * From VIP_User_XX"
Rs.Open Sql,Conn,3,2
Rs.AddNew
Rs("User_Name")=User_Name
Rs("XX_Name")=XX_Name
Rs.Update

下面这个是IPIP.asp的文件代码

<%
ipip=request.ServerVariables("REMOTE_ADDR")
response.Write "<br>"
response.Write "您的IP是:"
response.Write(ipip)
response.Write "<br><br>"
response.Write "通过比较您的IP 和数据库里的IP,就可以避免重复注册！！！！！！"
response.Write "<br><br>"
response.Write "以下是数据库里的所有IP:"
ConnStr="DBQ="+Server.MapPath("数据库，保密")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set Conn = Server.CreateObject ("Adodb.Connection")
Conn.Open ConnStr
Set rs_wr=Server.CreateObject("ADODB.Recordset")
sql_wr="Select * From VIP_RegUser"
rs_wr.Open Sql_wr,Conn,1,1
while not rs_wr.eof
response.Write "<br>"
response.Write rs_wr("LastLoginIp")
rs_wr.movenext
wend
%>