Function ie_flash (flashFrame, flashLoc, noFlashLoc, ask)
	If ScriptEngineMajorVersion >= 2 Then
		' CreateObject is supported - use it
		On Error Resume Next
		FlashInstalled = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4")))
		If FlashInstalled Then
			flashFrame.location = flashLoc
		Else
			If IsNull(ask) Or ask = 0 Then
				flashFrame.location = noFlashLoc
			Else
				ANSWER=MSGBOX ("This site is best viewed with Macromedia Flash. Your current browser does not support our Flash Navigation.  As an alternative, we have provided you with a Javascript version of our navigation.  Would you like to use the Flash version of our Navigation?",20)
				If ANSWER=7 then
					flashFrame.location = flashLoc
				Else
					flashFrame.location = noFlashLoc
				End If
			End If
		End If
	Else
		' CreateObject is not supported; default to no-flash
		flashFrame.location = noFlashLoc
	End If
End Function