<%
'*********************************
'Функция: isobjinstalled (strclassstring)
'Аргументы: strclassstring, имя объекта компонента
Автор: Аликси
Дата: 2007/7/13
'Описание: проверьте, установлен ли компонент
Пример: <%= isobjinstalled (strclassstring)%>
'*********************************
Functionisobjinstalled (strclassstring)
OnerRorResumenext
Isobjinstalled = false
'Err = 0
Dimxtestobj
Setxtestobj = server.createObject (strClassString)
Iferr <>-2147221005Thenisobjinstalled = trueElseisobjinstalled = falseendif
Setxtestobj = ничего
'rr = 0
Конечная функция
%>