'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' CopyRight: Knowledge Window Inc.
''
'' @File: 	checkFlashPlugInIE.vbs
'' @Purpose:	check if user has the flash plug
'' @Note:	vLearn requires Flash Player 5.0 or above
''
'' @Revision	5/18/2003 Andy Li added MX version		
''
''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function CheckFlashIE(strRedirectLocation)
	'Msgbox("Entering CheckFlashIE")
	Dim Flash3modeIE
	Dim Flash4modeIE
	Dim Flash5modeIE
	Dim FlashVersion
	FlashVersion = 0
	On Error Resume Next
	Flash3ModeIE = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3"))
	On Error Resume Next
	Flash4ModeIE = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4"))
	On Error Resume Next
	Flash5ModeIE = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5"))
	If Flash5ModeIE = true Then
		FlashVersion = 5
	End if
	On Error Resume Next
	Flash6ModeIE = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6"))
	If Flash6ModeIE = true Then
		FlashVersion = 6
	End if
	
	'Msgbox("Your Flash Plug-in version =" & FlashVersion)
	
	If FlashVersion < 5 Then
		 'window.open strRedirectLocation,"FlashInstall","width=600,height=400,menubar=1,resizable=1"
		window.menubar=1
		window.toolbar=1
		window.resize=1
		window.location.href=strRedirectLocation
	End If
end function