ActiveX = 0

function getPlayerIE()
 getPlayerIE = null
 on error resume next
 set getPlayerIE = playerIE
end function


Function CheckActiveX()
  HasActiveX = false
  On error resume next
  HasActiveX = NOT IsNull(CreateObject("Microsoft.ActiveXPlugin.1"))
  if NOT HasActiveX then ActiveX = IsNull(CreateObject("MSScriptControl.ScriptControl.1"))
  if HasActiveX Then ActiveX = 1
  ActiveX=1
End Function