RS.UPDATE为何不起作用，代码及程序说明如下？

'#####　下面程序代码为修改更新代码
'#####　数据库是ORACLE数据库
'#####　CLASSID是NUMBER型、 ClassName是VARCHAR2、IsElite是NUMBER型
'#####　ShowOnTop是NUMBER型、Setting是NUMBER型、Readme是VARCHAR2型、LinkUrl是VARCHAR2型

sub SaveModify()
FoundErr = 0
ClassID=trim(request("ClassID"))
if ClassID="" then
FoundErr=1
ErrMsg=ErrMsg & "<br><li>参数不足！</li>"
else
ClassID=CLng(ClassID)
end if
ClassName=trim(request("ClassName"))
IsElite=trim(request("IsElite"))
ShowOnTop=trim(request("ShowOnTop"))
Setting=trim(request("Setting"))
Readme=trim(request("Readme"))
LinkUrl=trim(request("LinkUrl"))

if FoundErr=1 then
exit sub
end if

sql="select * From ArticleClass where ClassID=" & ClassID
set rsClass=server.CreateObject ("Adodb.recordset")
rsClass.open sql,conn,1,3
if rsClass.bof and rsClass.eof then
FoundErr=1
ErrMsg=ErrMsg & "<br><li>找不到指定的栏目！</li>"
rsClass.close
set rsClass=nothing
exit sub
end if

if IsElite="Yes" then
IsElite=1
else
IsElite=0
end if
if ShowOnTop="Yes" then
ShowOnTop=1
else
ShowOnTop=0
end if

if FoundErr=1 then
rsClass.close
set rsClass=nothing
exit sub
end if

rsClass("ClassName")=ClassName
rsClass("IsElite")=Clng(IsElite)
rsClass("ShowOnTop")=Clng(ShowOnTop)
rsClass("Setting")=Clng(Setting)
rsClass("Readme")=Readme
rsClass("LinkUrl")=LinkUrl
rsClass.update
rsClass.close
set rsClass=nothing

Response.Redirect "Admin_Class_ORA.asp"

end sub