asp投票程序,把access改成sql 2008 后,vote不能记录访问用户ip。

投票、票数增加都是正常的,就是result表没有记录。
本人小白一枚,请大神简单易懂的指点一下。
————————————
vote.asp

#include file="inc/config.asp"-->
#include file="inc/conn.asp"-->
<%
if ks=0 then
response.write kssm
response.end
end if

server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "你提交的路径有误,禁止从站点外部提交数据!"
response.end
end if

vid=Request.QueryString("id")

Function getIP()
getIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If getIP = "" Then getIP = (Request.ServerVariables("REMOTE_ADDR"))
End Function

ipdate=vid&getIP&date()

if ipdate<>"" then

Set rs = Server.CreateObject( "ADODB.Recordset" )
Set rs1 = Server.CreateObject( "ADODB.Recordset" )
Set rs2 = Server.CreateObject( "ADODB.Recordset" )
set rssum=server.createobject("adodb.recordset")
exec="select sum(addps) as sumps from Result where addip='" & getIP & "' and addtime>=#"& now()-1 &"#"

rssum.open exec,conn,1,1
sumps=rssum("sumps")
set rssum3=server.createobject("adodb.recordset")
exec2="select sum(addps) as sumps from Result where addip='" & getIP & "'"

rssum3.open exec2,conn,1,1
sumps3=rssum3("sumps")
sql = "select * from Result"

rs.open sql,conn,1,3

if int(sumps)>=int(gz) then
Response.write("alert(&#39;您已经投票,请稍后再来投票!&#39;);location=&#39;index.asp&#39;;")
response.End()
else
sql2 ="select sum(addps) as sumps from Result where addip='" & getIP & "' and voteid='"&vid&"' and addtime>=#"& now()-1 &"#"
rs2.open sql2,conn,1,1

sumps2=rs2("sumps")
if int(sumps2)>=int(xxps) then
Response.write("alert(&#39;您对该投票项的投票已达上限,请稍后再来投票!&#39;);location=&#39;index.asp&#39;;")
response.End()
else

sql1= "select * from Result where addip='" & getIP & "' and voteid='"&vid&"'"
rs1.open sql1,conn,1,3
if not (rs1.bof and rs1.eof) then

 if sumps=0 then
  sqlu="update Result set addtime='"& now() &"',ipdate='"&ipdate&"',addps=1 where addip='" & getIP & "'"   
 else
    sqlu="update Result set addps=addps+1 where addip='" & getIP & "' and voteid='"&vid&"'"

 end if
 conn.execute(sqlu)

else  
  rs.addnew   
  rs("voteid")=vid
  rs("addip")=getIP
  rs("ipdate")=ipdate
  rs("addps")=1
  rs.update
  rs.close
end if  

  Set rs=nothing

  sql="update Info set ps=ps+1 where id="&vid
  conn.execute(sql)
  Response.write "<script language='javascript'>alert('恭喜您,投票成功,谢谢您的参与!');history.back();</script>"
  end if

end if
end if
%>
————————————
config.asp

<%
Const SiteName="1233"

Const ks="1"

Const xxps="50"

Const kssm="投票关闭!"

Const gz="100"

Const glsj=""

Const Copyright="123444"
%>

是不是sql不支持vote记录访问ip?

你的确认你进入else语句才行

 else  
response.write "addnew":response.end'''''''''''''''''''''''''''''''''
  rs.addnew   
  rs("voteid")=vid
  rs("addip")=getIP
  rs("ipdate")=ipdate
  rs("addps")=1
  rs.update
  rs.close