'VBSCRIPT FLASH PLUGIN CHECK FOR IE

on error resume next
	If action = "ie_exec" then
	FlashInstalled =(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3"))) 
	End If
	If FlashInstalled = "True" then
	flash = "yes" 
	End If