if(b.ie&&!b.mac){var vb="";vb+="<SCRIPT LANGUAGE=VBScript> \n";vb+="Function VBFlash() \n";vb+="on error resume next \n";vb+="Dim C \n";vb+="set C = vbNull \n";vb+="Dim tver \n";vb+="set tver = 0 \n";vb+="Dim svr \n";vb+='svr = "ShockwaveFlash.ShockwaveFlash" \n';vb+="set C = CreateObject(svr) \n";vb+="if (IsObject(C)) then \n";vb+="Dim mVer \n";vb+="Dim sVer \n";vb+="Dim cVer \n";vb+="cVer = C.FlashVersion() \n";vb+="mVer = int(cVer / 65536) \n";vb+="sVer = cVer mod 65536 \n";vb+='if (sVer < 100) then sVer = "0" + CStr(sVer) \n';vb+='if (sVer < 10)  then sVer = "0" + CStr(sVer) \n';vb+='tver = CStr(mVer) + ".0" + CStr(sVer) \n';vb+="end if \n";vb+="VBFlash = tver \n";vb+="End Function \n";vb+="Function VBGetFlashTE \n";vb+="on error resume next \n";vb+="Dim C \n";vb+="set C = vbNull \n";vb+="Dim svVer \n";vb+="set svVer = 0 \n";vb+="For i = 10 To 1 Step -1 \n";vb+="Dim svr \n";vb+='svr = "ShockwaveFlash.ShockwaveFlash." + CStr(i) \n';vb+="set C = CreateObject(svr) \n";vb+="if (IsObject(C)) then \n";vb+="svVer = i \n";vb+="Exit For \n";vb+="end if \n";vb+="Next \n";vb+="VBGetFlashTE = svVer \n";vb+="End Function \n";vb+="</SCRIPT> \n";document.write(vb);}if(b.ie&&!b.mac){var fVer=VBFlash()||0;if(fVer==3.0008){var svVer=VBGetFlashTE();if(svVer>fVer){fVer=4;}}else{if(!fVer){fVer=VBGetFlashTE()||0;}else{if(fVer==4){fVer=4.0015;}}}}else{var fVer=0;}function setF(){arr=navigator.plugins;arrl=arr.length;for(var e=0;e<arrl;e++){plug=arr[e];desc=plug.description;if(desc.indexOf("Shockwave Flash ")!=-1){var d=desc.indexOf("Shockwave Flash ");var c=desc.substring(d+16,desc.length);var a;var f;d=c.indexOf(" r");if(d!=-1){f=c.substring(0,d);a=c.substring(d+2,c.length);fnVer=parseFloat(f+(a<100?"0":"")+(a<10?"0":"")+a);}else{fnVer=parseFloat(c);}}}}var fnVer=0;setF();var myFlash;if(!fVer||fVer==0){myFlash=fnVer;}else{myFlash=fVer;}function hasFlash(a){if(myFlash<a){return false;}else{return true;}}