// IE CATCH TO DETECT FLASH
on error resume next
If ie = "true" Then
	For i = 0 to 8
		If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then
		Else
			flashinstalled = 2
			flashversion = i
		End If
	Next
End If

If flashinstalled = 0 Then
	flashinstalled = 1
	flashversion = 0
End If