Determine Browser Plugins (Client Side)
This ASP object needs an up to date browscap.ini file to function correctly.
<![CDATA[
' ===========================
' Get the Browser Object
' ===========================
dim bc
Set bc = Server.CreateObject("MSWC.BrowserType")
if (UCase(bc.browser)="NETSCAPE") then
%>
<SCRIPT LANGUAGE="Javascript">
var bNSFlash, bNSmp
// ================================
// Netscape Flash 4 Detection
// ================================
var plugin = (navigator.mimeTypes && navigator.mimeTypes["application/x-shockwave-flash"] ? navigator.mimeTypes["application/x-shockwave-flash"].enabledPlugin : 0);
if (plugin && parseInt(plugin.description.substring(plugin.description.indexOf(".")-1)) >= 4) {
bNSFlash = true
} else {
bNSFlash = false
}
// ================================
// Netscape Media Player Detection
// ================================
var fHasWMP64
fHasWMP64 = navigator.mimeTypes && navigator.mimeTypes["video/x-ms-wm"] &&� navigator.mimeTypes["video/x-ms-wm"].enabledPlugin && navigator.mimeTypes["video/x-ms-wmv"] && navigator.mimeTypes["video/x-ms-wmv"].enabledPlugin;
if ((fHasWMP64==null) || (fHasWMP64==false)) {
bNSmp = false
} else {
bNSmp = true
}
</SCRIPT>
<% else %>
<SCRIPT LANGUAGE=VBScript>
<!--
' ===========================
' IE Flash 4 Detection
' ===========================
dim bFlashInstalled, bIEFlash, bIEmp
bFlashInstalled=false
on error resume next
��� bFlashInstalled = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4")))
��� if (bFlashInstalled=false) then
bIEFlash = false
else
bIEFlash = true
��� end if
-->
</SCRIPT>
<OBJECT ID="NSPlay" WIDTH=1 HEIGHT=1 classid="CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95"
CODEBASE="#Version=6,4,5,715">
</object>
<SCRIPT LANGUAGE="VBScript">
<!--
' #Version=6,4,5,715
' ===========================
' IE Media Player Detection
' ===========================
dim fHasWMP64
On error resume next
fHasWMP64 = (NSPlay.FileName="")
if (fHasWMP64) then
bIEmp = true
else
bIEmp = false
end if
-->
</SCRIPT>
<% end if %>
]]>