on error resume next

function fnintFlashInstalled()

   dim intFlashInstalled
	 dim i
	 
	 on error resume next
	 
	 intFlashInstalled = 0
	 i = 0
	 
  	For i = 2 to 9
  		If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then
  			Err.Clear
  		Else
  			intFlashInstalled = 2
  		End If
  	Next

  If intFlashInstalled = 0 Then
  	intFlashInstalled = 1
  End If

  fnintFlashInstalled = intFlashInstalled
	
end function
	
function fnintFlashVersion()

   dim intFlashVersion
	 dim i

	 on error resume next
   
	 intFlashVersion = 0
	 i = 0

  	For i = 2 to 9
  		If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then
  			Err.Clear
  		Else
  			intFlashVersion = i
  		End If
  	Next

		fnintFlashVersion = intFlashVersion
	 
end function