csgo打完bot枪法更烂:asp+access数据库查询问题

一个数据库汇总有2张表,一张是评分表,一张是记录用户评分的信息(评分的具体内容和分数),在用户进行评分时要查询改用户有没有对改图评过分,如有弹出对话框,没有就写入到评分表.应该怎么写SQL语句.
id =saferequest("id",1)
centuser=session("username")
set rs0=server.createobject("adodb.recordset")
sql0="SELECT * FROM WHERE pid='"& id &"' and centuser='"& centuser &"' "
rs0.open sql0,conn,1,3
if rs0.bof and rs0.bof then
set rs=server.createobject("adodb.recordset")
sql="select * from ImgData where id="&id
rs.open sql,conn,1,3
if not rs.eof then
select case cstr(request("radiobutton"))
case "c5"
c5=rs("c5")+1
c4=rs("c4")
c3=rs("c3")
c2=rs("c2")
c1=rs("c1")
case "c4"
c5=rs("c5")
c4=rs("c4")+1
c3=rs("c3")
c2=rs("c2")
c1=rs("c1")
end select
rs("c5")=c5
rs("c4")=c4
rs("c3")=c3
rs("c2")=c2
rs("c1")=c1
sum=rs("c5")*5+rs("c4")*4+rs("c3")*3+rs("c2")*2+rs("c1")
rs("sum")=sum
total=rs("c5")+rs("c4")+rs("c3")+rs("c2")+rs("c1")
rs("total")=total
average=sum/total
rs("average")=average
rs.update
end if
Set rs=Nothing
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from ImgCent "
rs2.open sql2,conn,1,3
rs2.addnew
rs2("pid")=id
rs2("centuser")=session("username")
select case cstr(request("radiobutton"))
case "c5"
rs2("cent")=5
case "c4"
rs2("cent")=4
case "c3"
rs2("cent")=3
case "c2"
rs2("cent")=2
case "c1"
rs2("cent")=1
end select
rs2.update
Set rs2=Nothing
session("ok") = false
else
response.write id
response.write centuser
response.write "<script language='javascript'>alert('你已给改图评过分！谢谢！');</script>"
response.write("<script language=javascript>")
response.write("window.close();")
end if
上面的怎么不恩能够执行?