//This file is actaully VB, it has an .js extension for compatibility reasons.
// include this file like this: <script language="VBScript" type="text/vbscript" src="/includes/flashDetection/VBGetSwfVer_VB.js"></script>
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