Function IsObjInstall(obj) 
  Dim IsObj 
  On Error Resume Next 
  Set IsObj = Server.CreateObject(obj) 
  if Err = 0 then 
     IsObjInstall = "True" 
  else 
     IsObjInstall = "Flase" 
  end If 
  Set IsObj = Nothing 
  If Err <> 0 Then Err.Clear 
End Function