Asp code implements a function that detects whether the component is installed

<%

'*********************************

'Function: IsObjInstalled(strClassString)

'Arguments: strClassString, component object name

'Author: Alixi

'Date: 2007/7/13

'Description: Check whether the component is installed

'Example: <%=IsObjInstalled(strClassString)%>

'*********************************

FunctionIsObjInstalled(strClassString)

OnErrorResumeNext

IsObjInstalled=False

'Err=0

DimxTestObj

SetxTestObj=Server.CreateObject(strClassString)

IfErr<>-2147221005ThenIsObjInstalled=TrueElseIsObjInstalled=FalseEndIF

SetxTestObj=Nothing

'rr=0

EndFunction

%>