' $Header:   Copyright (c) 2002 National Westminster Bank Plc ** ie_flash.vbs-arc   1.2   Apr 02 2003 11:01:30   ArmfieG  $
On error resume next
hasFlash=(NOT IsNull(CreateObject("ShockwaveFlash.ShockwaveFlash")))
if (hasFlash) then
dim arr(6),intCtr,strVer
for intCtr=0 to 5
strVer="ShockwaveFlash.ShockwaveFlash." & intCtr+3
arr(intCtr)=(NOT IsNull(CreateObject(strVer)))
next
intCtr=0
while arr(intCtr)=true
flashVersion=intCtr+3
intCtr=intCtr+1
wend
if flashVersion<4 then
hasFlash=False
end if
end if