' $Header:   \\refrowtecf2\nww\archives\dev.nwcom.rbsgrp.net\common\javascript\ie_flash.vbs-arc   1.0   Jun 10 2004 18:18:18   Mcclusg  $
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