遇到一个 ORA-06512的错误，请教高手！详情请进，急！

我有一个电子政务系统，用的是Oracle 8.17的数据库，其中在对一个表格填写完保存时出现下面错误,各位高手给看下是什么原因：
Microsoft VBScript 编译器错误 错误 '800a03f6' 缺少 'End' /iisHelp/common/500-100.asp，行242 Microsoft OLE DB Provider for Oracle 错误 '80004005' ORA-01031: insufficient privileges ORA-06512: at "OAEXPRESS.GET_ID", line 29 ORA-06512: at line 1 D:\WEBOA\HTDOCS\../modules/include/pubfunction，行32 出错的文件的部分内容：'************************
'函数名:获取数据库记录的主键
'************************Function GetId(Names)
        Dim cmd
        set cmd=server.createobject("ADODB.Command")
        With cmd
        .Parameters.Append cmd.CreateParameter(,129,1,len(Names),Names)
        .Parameters.Append cmd.CreateParameter(,3,1,1, 1)
        .Parameters.Append cmd.CreateParameter("retval",131,2)
        .CommandType = 4'adCmdStoredProc       //这是第29行        .CommandText = "oaexpress.GET_ID"      
        .ActiveConnection = Conn
        .Execute
        End With
        GetId = cmd.Parameters(2)
End Function 
Function GetDocCataID()
        m_strDocCatID=0
        Query="select * from doc_catalog where WEB_SCREEN='" & SCREEN & "'"
        Set rsMaxIDValue= Conn.Execute(Query)
        If rsMaxIDValue.BOF AND rsMaxIDValue.EOF Then
        Else
                m_strDocCatID =rsMaxIDValue("CAT_ID")
        End If
        rsMaxIDValue.Close
        Set rsMaxIDValue = Nothing
        GetDocCataID=m_strDocCatID
End Function