十万火急求助！下面是我下载的一个在线考试软件中的提交试题的那一部分，可是提示有错误，烦请哪位高手给指点一二！！
<%
'判断----------------------------------------->
trySql="select * from "&Session("tryT")&" where TRY＿TYPE='1'"
rsT.open trySql,Conn
'判断题学生分数
PdSum=0
'判断题做对个数
PdRightNum=0
PdNum=Session("Pd_Num")
for i=1 to PdNum
'判断题学生TRY_KEY
PdStuTT=request.form("PdCb"&i)
select case PdStuTT
case 1
PdStuT="1"
case else
PdStuT="0"
end select
'试卷TRY_KEY
PdRsTT=Trim(rsT("TRY_KEY"))
'判断题TRY_CENT
PdRsCentT=rsT("TRY_CENT")
select case PdStuT
case PdRsTT
PdRightNum=PdRightNum+1
PdSum=PdSum+PdRsCentT
end select
rsT.movenext
next
rsT.close
'单选---------------------------------------->
trySql="select * from "&Session("tryT")&" where TRY＿TYPE='2'"
rsT.open trySql,Conn
'单选TRY_SUBJECT做对数目
DxRightNum=0
'单选总分
DxSum=0
DxNum=Session("Dx_Num")
for i=1 to DxNum
'学生TRY_KEY
DxStuT=request.form("DxRb"&i)
'试卷TRY_KEY
DxRsTT=Trim(RsT("TRY_KEY"))
'本单选题TRY_CENT
DxRsCentT=(RsT("TRY_CENT"))
select case DxStuT
case DxRsTT
DxRightNum=DxRightNum+1
DxSum=DxSum+DxRsCentT
end select
rsT.movenext
next
rsT.close
'多选---------------------------------------->
trySql="select * from "&Session("tryT")&" where TRY＿TYPE='3'"
rsT.open trySql,Conn
'多选TRY_SUBJECT做对数目
DdxRightNum=0
'多选总分
DdxSum=0
DdxNum=Session("Ddx_Num")
for i=1 to DdxNum
'学生TRY_KEY
DdxStuTT=request.form("DxCb"&i)
DdxStuT=replace(replace(DdxStuTT,",","")," ","")
'试卷TRY_KEY
DdxRsTT=Trim(RsT("TRY_KEY"))
'本单选题TRY_CENT
DdxRsCentT=(RsT("TRY_CENT"))
select case DdxStuT
case DdxRsTT
DdxRightNum=DdxRightNum+1
DdxSum=DdxSum+DdxRsCentT
end select
rsT.movenext
next
rsT.close
TrySum=PdSum+DxSum+DdxSum
%>
<%
ListFlag=request("ListFlagCb")
select case ListFlag
case 1
response.write(Session("NameT_Stu")&"同学，你的成绩为： "&TrySum)
response.write("<br>判断做对个数： "&PdRightNum)
response.write("<br>单选做对个数： "&DxRightNum)
response.write("<br>多选做对个数： "&DdxRightNum)
case else
response.write("<br><center>若想要成绩请于系统管理员联系！</center>")
end select
TryDate=Date()
TryTime=Time()
MaxIdSql="select max(ID) as MaxID from score"
set rsT=Conn.Execute(MaxIdSql)
MaxID=rsT("MaxID")
if isNull(MaxID) then
MaxID=0
end if
MaxID=MaxID+1
insertScoreSql="insert into score values("&MaxID&",'"&Session("NumT_Stu")&"','"&Session("tryT")&"',"&TryDate&",'"&TryTime&"',"&TrySum&")"
'uScoreSql="update verification set STU_SCORE="&TrySum&" where STU_NUM='"& Stu_NameT&"'"
'response.Write(insertScoreSql)
'response.End()
set rsT=Conn.Execute(insertScoreSql)
%>