'<!--
'-----------------------------------------------------------------
' validacoes.vbs
'
' DETECTOR DE FLASH
'
' copyright (c) 2000 UEBE - Servicos e comunicação, Lda 
'-----------------------------------------------------------------

Function VBGetFlashControlVersion()
	on error resume next
	Dim Control
	set Control = vbNull
	Dim theversion
	set theversion = 0
        Dim server
        server = "ShockwaveFlash.ShockwaveFlash"
        set Control = CreateObject(server)
        if (IsObject(Control)) then
          Dim majorVersion
          Dim minorVersion
          Dim controlVersion
          controlVersion = Control.FlashVersion()
          majorVersion = int(controlVersion / 65536)
          minorVersion = controlVersion mod 65536
          if (minorVersion < 100) then minorVersion = "0" + CStr(minorVersion)
          if (minorVersion < 10)  then minorVersion = "0" + CStr(minorVersion)
          theversion = CStr(majorVersion) + ".0" + CStr(minorVersion)
        end if
        VBGetFlashControlVersion = theversion
        'msgbox("VBGetFlashControlVersion=" & VBGetFlashControlVersion)
      End Function
      Function VBGetFlashVersionByTrialAndError
        on error resume next
        Dim Control
        set Control = vbNull
        Dim serverVersion
        set serverVersion = 0
        For i = 10 To 1 Step -1
          Dim server
          server = "ShockwaveFlash.ShockwaveFlash." + CStr(i)
          set Control = CreateObject(server)
          if (IsObject(Control)) then
            serverVersion = i
            Exit For
          end if
        Next
        VBGetFlashVersionByTrialAndError = serverVersion
        'msgbox("VBGetFlashVersionByTrialAndError=" & VBGetFlashVersionByTrialAndError)        
      End Function
      
 
'-->