Function getFlashVersionIE()
  flashversion = 0
  On Error Resume Next
  For a = 10 to 2 step -1
    If NOT(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & a))) Then
    Else
	flashinstalled = 2	
	flashversion = a
	EXIT FOR
    End If
  Next

  If flashinstalled = 0 Then
    flashinstalled = 1
  End If

  getFlashVersionIE = flashversion
End Function