<%
'***********************************
'Função: ISOBJinstalled (strclassString)
'Argumentos: strclassstring, nome do objeto componente
'Autor: Alixi
Data: 2007/7/13
'Descrição: verifique se o componente está instalado
'Exemplo: <%= isobjinstalled (strclassString)%>
'***********************************
FunctionIsObjinstalled (strclassString)
OnErrorReSumenext
Isobjinstalled = false
'Err = 0
Dimxtestobj
Setxtestobj = server.createObject (strclassString)
IFERR <>-2147221005THENISOBJINSTALLED = TRUELSEISOBJINSTALLED = FALseNENDIF
Setxtestobj = nada
'rr = 0
Função final
%>