'Script for flash detection
on error resume next

'If MSDetect is set to true we have a Windows IE so use the following detection method
if MSDetect = "true" Then
	For i = 2 to 9
		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