<script language="VBScript"> 
on error resume next 
dim obFlash 
set obFlash = CreateObject("ShockwaveFlash.ShockwaveFlash.7") 
if IsObject(obFlash) then 
flashVersion = 7 
else set obFlash = CreateObject("ShockwaveFlash.ShockwaveFlash.6") end if 
if flashVersion < 7 and IsObject(obFlash) then 
flashVersion = 6 
else set obFlash = CreateObject("ShockwaveFlash.ShockwaveFlash.5") end if 
if flashVersion < 6 and IsObject(obFlash) then 
flashVersion = 5 
else set obFlash = CreateObject("ShockwaveFlash.ShockwaveFlash.4") end if 
if flashVersion < 5 and IsObject(obFlash) then 
flashVersion = 4 
else set obFlash = CreateObject("ShockwaveFlash.ShockwaveFlash.3") end if 
if flashVersion < 4 and IsObject(obFlash) then 
flashVersion = 3 
end if'
</script> 