Microsoft VBScript 运行时错误 错误 '800a000d' 请高手帮忙

在进行产品类别添加的时候 提示
Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'UpdateCategoryJs'

/Manage_Enter/Category/Category.asp，行 22

代码如下:<%CL(5)
Set Rs1=Server.CreateObject("adodb.recordset")
dim Category_Name,SubCategory_Name,Category_id
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
if Request("act")="AddCategory" then'添加大类
Call WriteAdminLog(Session(Safe_Session & "Admin_Name"),"添加产品大类")
Category_Name=CS(Request("Category_Name"),1,50,0,1,0)
Set Rs=Conn.Execute("Select Category_id From Sef_Category where Category_Name='" & Category_Name & "'")
if Rs.eof and Rs.bof then
Rs.close
Conn.Execute("Insert into Sef_Category (Category_Name) values ('" & Category_Name & "')")

microsoft Microsoft MICROSOFT Microsoft是什么意思 Microsoft代理 microsoft update Microsoft Office Microsoft FrontPage microsoft安装 microsoft office