光宇账号中心:/iisHelp/common/500-100.asp，行242 错误 '80020009' ?

'多选---------------------------------------->
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")) -------96行
'本单选题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
response.End()
%>
<%
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)
%>
执行时出现如下错误：
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242 错误 '80020009'

发生意外。

/listScore.asp，行96

请高手指教