Function VBGetSwfVer(i)
  on error resume next
  Dim swControl, swVersion
  swVersion = 0
  
  set swControl = CreateObject("ShockwaveFlash.ShockwaveFlash." + CStr(i))
  if (IsObject(swControl)) then
    swVersion = swControl.GetVariable("$version")
  end if
  
  VBGetSwfVer = swVersion
End Function

Function VBGetSwfVer1()
var isInstalled = false;
var version = null;
if (window.ActiveXObject) {
    var control = null;
    try {
        control = new ActiveXObject('ShockwaveFlash.ShockwaveFlash');
    } catch (e) {
        return;
    }
    if (control) {
        isInstalled = true;
        version = control.GetVariable("$version").substring(4);
        version = version.split(",");
        version = parseFloat(version[0] + ‘.’ + version[1]);
    }
} else {
	version =-2;
}
  VBGetSwfVer = version
End Function