// "MSDetect" is set to true if so far we have not been able to detect flash

on error resume next



If MSDetect = "true" Then

	// check to see if a object can be created

	// if it can then flash is supported

	// if it cant then a error will occur

	// but it doesnt matter as all errors are ignored see "on error resume next" above

	For i = 2 to 6

		If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then



		Else

			flashinstalled = 2

			flashversion = i

		End If

	Next

End If



If flashinstalled = 0 Then

	flashinstalled = 1

End If