' IE4+ Win32:  attempt to create an ActiveX object using VBScript

on error resume next

dim oFlash

set oFlash = CreateObject("ShockwaveFlash.ShockwaveFlash.8")

if IsObject(oFlash) then
	iFlashVersion = 8
else
	set oFlash = CreateObject("ShockwaveFlash.ShockwaveFlash.7")
end if

if iFlashVersion < 8 and IsObject(oFlash) then
	iFlashVersion = 7
else
	set oFlash = CreateObject("ShockwaveFlash.ShockwaveFlash.6")
end if

if iFlashVersion < 7 and IsObject(oFlash) then
	iFlashVersion = 6
else
	set oFlash = CreateObject("ShockwaveFlash.ShockwaveFlash.5")
end if

if iFlashVersion < 6 and IsObject(oFlash) then
	iFlashVersion = 5
else
	set oFlash = CreateObject("ShockwaveFlash.ShockwaveFlash.4")
end if

if iFlashVersion < 5 and IsObject(oFlash) then
	iFlashVersion = 4
else
	set oFlash = CreateObject("ShockwaveFlash.ShockwaveFlash.3")
end if

if iFlashVersion < 4 and IsObject(oFlash) then
	iFlashVersion = 3
end if