On Error Resume Next
		        flash2Installed = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.2")))
		        flash3Installed = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3")))
		        flash4Installed = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4")))
		        flash5Installed = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5")))
		        flash6Installed = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6")))
		        flash7Installed = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.7")))
		        flash7Installed = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.8")))
		        Set theObject = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1")
		        Set test = CreateObject("AcrobatCheckObject.AcrobatCheck.1")
		On Error goto 0
		
		If Err.Number=0 Then
		   havear = true
		End If
		
		
		If IsObject(theObject) Then
		  If theObject.IsQuickTimeAvailable(0) Then 
		        haveqt = true
		  End If
		End If