				<!-- // Visual basic helper required to detect Flash Player ActiveX control version information
				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
				// -->