' code adapted from original published by peter - paul koch www.quirksmode.org
'modified by david agius for holycow
'v1.1 function called from javascript.
Function CheckFlashMS()
on error resume next

	For i = 2 to 6
		If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then
		
		Else
			flashinstalled = 2
			flashversion = i
		End If
	Next
	
If flashinstalled = 0 Then
	flashinstalled = 1
End If
'MsgBox flashinstalled
End Function