%
dim conn
dim connstr
connstr="DBQ="+server.mappath("../db/dafendb314.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
set rs=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")
conn.open connstr
dim selected
selected=request("score")
name=request("name")
if name="" then
name="ghch"
end if
if selected<>"" then
if not Request.ServerVariables("REMOTE_ADDR")=request.cookies("IPAddress")(name) then
response.cookies("IPAddress")(name)=Request.ServerVariables("REMOTE_ADDR")
dim rs
dim sql
sql="update abc set select"&selected&"=select"&selected&"+1,sum=sum+"&selected&",numpersonal=numpersonal+1 where id=52"
rs.open sql,conn,3,3
set rs=nothing
end if
end if
%>