'---------------------------------------------
' Created by Owen Goss (owen.goss@NOSPAMonx.com)
' Code based on code by: Chris Nott
'---------------------------------------------

' This function tries to create various version of the flash activeX object
' This is used for IE Win32 browsers only. It is called in the getFlashVersion()
' function
Function getFlashVBVersion()

    on error resume next 
    dim obFlash 
    dim flashVersion
    set obFlash = CreateObject("ShockwaveFlash.ShockwaveFlash.7") 

    if IsObject(obFlash) then 
	flashVersion = 7
    else 
	set obFlash = CreateObject("ShockwaveFlash.ShockwaveFlash.6")
    end if 

    if flashVersion < 7 and IsObject(obFlash) then 
	flashVersion = 6 
    else 
	set obFlash = CreateObject("ShockwaveFlash.ShockwaveFlash.5") 
    end if 

    if flashVersion < 6 and IsObject(obFlash) then 
	flashVersion = 5 
    else 
	set obFlash = CreateObject("ShockwaveFlash.ShockwaveFlash.4") 
    end if 

    if flashVersion < 5 and IsObject(obFlash) then 
	flashVersion = 4 
    else 
	set obFlash = CreateObject("ShockwaveFlash.ShockwaveFlash.3") 
    end if 

    if flashVersion < 4 and IsObject(obFlash) then 
	flashVersion = 3 
    end if

    getFlashVBVersion = flashVersion

End Function