不知火亩产量:ASP问题，大家帮忙！

score1结果总是不对，不知为什么。感觉太麻烦了，谁能给优化一下？

<%'读取用户填写比分
user=session("per_user")
if isnull("user") then user=""
if user<>"" then
set rs = server.CreateObject ("adodb.recordset")
sql="select * from member where user='"&user&"'"
rs.open sql,conn,1,1
if not rs.eof or not rs.bof then

gsa1=rs("gsa1")
gsb1=rs("gsb1")

end if
rs.close
set rs=nothing
end if
%>

<%'读取实际比分，即user:hqcec的比分
user=hqcec
set ns = server.CreateObject ("adodb.recordset")
sql="select * from member where user='"&user&"'"
rs.open sql,conn,1,1
if not ns.eof or not ns.bof then

aucgsa1=ns("gsa1")
aucgsb1=ns("gsb1")
end if
ns.close
set ns=nothing
%>

<%'计算该用户每一场比赛的积分
if aucgsa1=gsa1 and aucgsb1=gsb1 then
score1=2 '比分完全正确2分
elseif aucgsa1-aucgsb1=gsa1-gsb1 then
score1=1 '净胜球正确1分
elseif (aucgsa1-aucgsb1)*(gsa1-gsb1)>0 then
score1=0 '胜负关系正确0分
else
score1=-2 '胜负关系错误-2分
end if
%>

<%'将用户积分存入数据库
user=session("per_user")
if isnull("user") then user=""
if user<>"" then
set ps = server.CreateObject ("adodb.recordset")
sql="select * from member where user='"&user&"'"
ps.open sql,conn,1,3
if not ps.eof and not ps.bof then
ps("score1")=score1

scoretotal=score1

ps("scoretotal")=scoretotal

ps.update
ps.close
set ps=nothing
end if

end if
%>
rs.open sql,conn,1,1
行应该是
ns.open sql,conn,1,1