' --------------------------------------------------------------------------------------------- 
'Function that checks whether flash is installed or not. Works in conjunction with
'jsFlash.js
'
'version 1, 01/03/2002
'
'Copyright (c) Open World Ltd. Written by Iwein, idekoninck@openworld.co.uk
'Do not edit this file! Documentation can be found at 
'http://iwein.test.openworld.co.uk/javascriptExamples/flashCheck.html
'-----------------------------------------------------------------------------------------------

on error resume next

If runVB = "true" Then
	For i = 2 to 9
		If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then

		Else
			flash = "true"
			flashVersion = i
		End If
	Next
End If

If flash = "undefined" Then
	flash = "false"
End If