This is my error... I will explain it the best I can as it is very important
that I solve this problem.

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'select_criteria.AddTitle'

the actual code is - call select_criteria.AddTitle (title,MyErrors)

where AddTitle is a function in select_criteria; which is a class in a ActiveX
DLL successfully created through
set select_criteria = server.createobject("adminpub.select_criteria")

every other method in adminpub.select_criteria works fine. Except when passing
in a adminerrs.Errors object which has also been successfully created with
a server.createobject command.

set MyErrors = server.createobject("adminerrs.Errors")

I would suspect that it is not the title string in calling AddTitles but
the MyErrors is not working correctly.

The only thing I can think of is that you cannot pass another server object
to another one for some reason...[why, I don't know]..

These possibilities arose on the MSDN site for type mismatch errors that
seemed pretty close to me...

"You attempted to mix traditional Basic error handling with Variant values
having the Error subtype (10, vbError), "

"At run time, this error typically indicates that a Variant used in an expression
has an incorrect subtype, "

Does every variable AND object become a variant in VBscript?

Can you not send server OBJECTS by reference?

If not, is there a way to get around this w/o changing the called procedure?

What is the way to do this?

If possible contact me at
Thanks much...