Function IsObjInstalled(strClassString)
	on error resume next
	' initialize default values
	IsObjInstalled = False
	Err = 0
	' testing code
	Dim xTestObj
	Set xTestObj = Server.CreateObject(strClassString)
	If 0 = Err Then IsObjInstalled = True
	' cleanup
	Set xTestObj = Nothing
	Err = 0
	on error goto 0
End Function

function IsObjInstalled(strClassString)
	on error resume next
	'## initialize default values
	IsObjInstalled = false
	Err.Clear
	'## testing code
	dim xTestObj
	set xTestObj = Server.CreateObject(strClassString)
	if Err.Number = 0 then
		IsObjInstalled = true
	end if
	'## cleanup
	set xTestObj = nothing
	Err.Clear
	on error goto 0
end function