<%
'*******************************
'Fonction: Isobjinstalled (StrClassString)
'Arguments: StrClassString, nom d'objet composant
'Auteur: Alixi
'Date: 2007/7/13
'Description: Vérifiez si le composant est installé
'Exemple: <% = isObjinstalled (strclassString)%>
'*******************************
FunctionIsObJinstalled (StrClassString)
Onerrorresumenext
IsObjinstalled = false
'Err = 0
Noctestobj
SetxTestObj = server.createObject (strClassString)
IFERR <> - 2147221005THENISOBJINSTALLED = TRUEELSEISOBJINSTALLED = FAUXENDIF
SetxTestObj = rien
'rr = 0
Finition de fin
%>