Sub checkFlash(flashURL,width,height,altImageSrc) on error resume next var Flashmode FlashMode = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3")) If FlashMode = False Then FlashMode = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4")) End If If FlashMode = True Then document.write "" document.write " " document.write " " document.write " " ' document.write " " document.write "" Else document.write "" End If End Sub ' for transparent flash Sub checkFlashTrans(flashURL,width,height,altImageSrc) on error resume next var Flashmode FlashMode = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3")) If FlashMode = False Then FlashMode = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4")) End If If FlashMode = True Then document.write "" document.write " " document.write " " document.write " " document.write " " document.write "" Else document.write "" End If End Sub