<%
'***********************************
'Fungsi: isobjinstalled (strclassstring)
'Argumen: strclassstring, nama objek komponen
'Penulis: Alixi
'Tanggal: 2007/7/13
'Deskripsi: Periksa apakah komponen diinstal
'Contoh: <%= isobjinstalled (strclassString)%>
'***********************************
FunctionIsObjinstalled (strclassString)
OnerrorresumeNext
Isobjinstalled = false
'Err = 0
DimxtestObj
SetxtestoBj = server.createObject (strclassString)
Iferr <>-2147221005ThenisoBjinStalled = TrueelSeisobjinstalled = falseEndif
SetxtestoBj = tidak ada
'RR = 0
Fungsi endfungsi
%>