function goURL(n){window.location.replace?window.location.replace(n):window.location=n;return}function redirectCheck(n,t,i){return t&&(n&&i||!n&&!i)?(goURL(t),n):n}function canDetectPlugins(){return detectableWithVB||navigator.plugins&&navigator.plugins.length>0?!0:!1}function detectFlash(){return pluginFound=detectPlugin("Shockwave","Flash"),!pluginFound&&detectableWithVB&&(pluginFound=detectActiveXControl("ShockwaveFlash.ShockwaveFlash.1")),pluginFound}function detectDirector(n,t){return pluginFound=detectPlugin("Shockwave","Director"),!pluginFound&&detectableWithVB&&(pluginFound=detectActiveXControl("SWCtl.SWCtl.1")),redirectCheck(pluginFound,n,t)}function detectQuickTime(n,t){return pluginFound=detectPlugin("QuickTime"),!pluginFound&&detectableWithVB&&(pluginFound=detectQuickTimeActiveXControl()),redirectCheck(pluginFound,n,t)}function detectReal(){return pluginFound=detectPlugin("RealPlayer"),!pluginFound&&detectableWithVB&&(pluginFound=detectActiveXControl("rmocx.RealPlayer G2 Control")||detectActiveXControl("rmocx.RealPlayer G2 Control.1")||detectActiveXControl("RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)")||detectActiveXControl("RealVideo.RealVideo(tm) ActiveX Control (32-bit)")),pluginFound}function detectWindowsMedia(n,t){return pluginFound=detectPlugin("Windows Media"),!pluginFound&&detectableWithVB&&(pluginFound=detectActiveXControl("MediaPlayer.MediaPlayer.1")),redirectCheck(pluginFound,n,t)}function detectPlugin(){var n=detectPlugin.arguments,i=!1,r,t;if(navigator.plugins&&navigator.plugins.length>0)for(r=navigator.plugins.length,pluginsArrayCounter=0;pluginsArrayCounter<r;pluginsArrayCounter++){for(t=0,namesCounter=0;namesCounter<n.length;namesCounter++)navigator.plugins[pluginsArrayCounter].name.indexOf(n[namesCounter])<0&&navigator.plugins[pluginsArrayCounter].description.indexOf(n[namesCounter])<0||t++;if(t==n.length){i=!0;break}}return i}var detectableWithVB=!1,pluginFound=!1;navigator.userAgent.indexOf("MSIE")!=-1&&navigator.userAgent.indexOf("Win")!=-1&&(document.writeln('<script language="VBscript">'),document.writeln("'do a one-time test for a version of VBScript that can handle this code"),document.writeln("detectableWithVB = False"),document.writeln("If ScriptEngineMajorVersion >= 2 then"),document.writeln("  detectableWithVB = True"),document.writeln("End If"),document.writeln("'this next function will detect most plugins"),document.writeln("Function detectActiveXControl(activeXControlName)"),document.writeln("  on error resume next"),document.writeln("  detectActiveXControl = False"),document.writeln("  If detectableWithVB Then"),document.writeln("     detectActiveXControl = IsObject(CreateObject(activeXControlName))"),document.writeln("  End If"),document.writeln("End Function"),document.writeln("'and the following function handles QuickTime"),document.writeln("Function detectQuickTimeActiveXControl()"),document.writeln("  on error resume next"),document.writeln("  detectQuickTimeActiveXControl = False"),document.writeln("  If detectableWithVB Then"),document.writeln("    detectQuickTimeActiveXControl = False"),document.writeln("    hasQuickTimeChecker = false"),document.writeln('    Set hasQuickTimeChecker = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1")'),document.writeln("    If IsObject(hasQuickTimeChecker) Then"),document.writeln("      If hasQuickTimeChecker.IsQuickTimeAvailable(0) Then "),document.writeln("        detectQuickTimeActiveXControl = True"),document.writeln("      End If"),document.writeln("    End If"),document.writeln("  End If"),document.writeln("End Function"),document.writeln("<\/script>"))