<!--// ACTIVE X DETECT
hasVB = 1
function hasActiveX(name)
    hasActiveX = 0
    on error resume next
    hasActiveX = IsObject(CreateObject(name))
end function
//-->