<%
'**********************************
'Función: ISOBJInstalled (StrclassString)
'Argumentos: strclassstring, nombre de objeto componente
'Autor: Alixi
'Fecha: 2007/7/13
'Descripción: verifique si el componente está instalado
'Ejemplo: <%= isobjinstalled (strclassstring)%>
'**********************************
FunctionSobjinstalled (strclassstring)
OnerrorResumEnext
Isobjinstalled = falso
'Err = 0
Dimxtestobj
Setxtestobj = server.createObject (strclassstring)
Iferr <>-2147221005thenisobjinstalled = trueElseisObjinstalled = FALSEENDIF
Setxtestobj = nada
'RR = 0
Función final
%>