/******************************************
CD CLIP PRODUÇÕES LTDA.
© Copyright 2005
******************************************/
var sis_browser_name;
var sis_browser_vers;
var sis_flash_vers;
var sis_wmp_vers;
function check_browser() {
b_agent = navigator.userAgent.toLowerCase();
b_int_vers = parseInt(navigator.appVersion);
if (b_agent.indexOf("msie")!=-1) {
sis_browser_name = "ie";
if (b_agent.indexOf("msie 4")!=-1) {
sis_browser_vers = 4;
}
else if (b_agent.indexOf("msie 5")!=-1) {
sis_browser_vers = 5;
}
else if (b_agent.indexOf("msie 6")!=-1) {
sis_browser_vers = 6;
}
else if (b_agent.indexOf("msie 7")!=-1) {
sis_browser_vers = 7;
}
else if (b_agent.indexOf("msie 8")!=-1) {
sis_browser_vers = 8;
}
else {
sis_browser_vers = 0;
}
}
else if ((b_agent.indexOf("mozilla")!=-1) && ((b_agent.indexOf("spoofer")==-1) && (b_agent.indexOf("compatible")==-1) && (b_agent.indexOf("safari")==-1))) {
sis_browser_name = "ns";
if ((this.b_int_vers >= 4) && (this.b_int_vers < 5)) {
sis_browser_vers = 4;
} else if (this.b_int_vers >= 5) {
sis_browser_vers = 8;
} else {
sis_browser_vers = 0;
}
}
else {
sis_browser_name = "np";
sis_browser_vers = 0;
}
}
function check_fash() {
sis_flash_vers = 0;
if (sis_browser_name == "ie") {
document.writeln('<script language="VBscript">');
document.writeln('Function vb_detect_obj_flash(v_object)');
document.writeln('  on error resume next');
document.writeln('  vb_detect_obj_flash = False');
document.writeln('  vb_detect_obj_flash = IsObject(CreateObject(v_object))');
document.writeln('End Function');
document.writeln('</' + 'script>');
for (var i=3; i<10; i++) {
if (vb_detect_obj_flash("ShockwaveFlash.ShockwaveFlash."+i) == true) {
sis_flash_vers = i;
}
}
}
else if (sis_browser_name == "ns") {
if (navigator.plugins["Shockwave Flash"]) {
var pluginDesc = navigator.plugins["Shockwave Flash"].description;
sis_flash_vers = parseInt( pluginDesc.charAt( pluginDesc.indexOf(".")-1 ) );
}
}
}
function check_wmp() {
sis_wmp_vers = 0;
if (sis_browser_name == "ie") {
document.writeln('<script language="VBscript">');
document.writeln('Function vb_detect_obj_wmp(v_object)');
document.writeln('  on error resume next');
document.writeln('  vb_detect_obj_wmp = False');
document.writeln('  vb_detect_obj_wmp = IsObject(CreateObject(v_object))');
document.writeln('End Function');
document.writeln('</' + 'script>');
if (vb_detect_obj_wmp("WMPlayer.OCX.7") == true) {
sis_wmp_vers = "9";
} else if (vb_detect_obj_wmp("MediaPlayer.MediaPlayer.1") == true) {
sis_wmp_vers = "6";
}
}
else if (sis_browser_name == "ns") {
if (navigator.mimeTypes["application/x-mplayer2"]) {
sis_wmp_vers = 1;
}
}
}
check_browser();
check_fash();
check_wmp();