function writemovie (movie){
var agt = navigator.userAgent.toLowerCase();
var ie  = (agt.indexOf("msie") != -1);
var ns  = (navigator.appName.indexOf("Netscape") != -1);
var win = ((agt.indexOf("win")!=-1) || (agt.indexOf("32bit")!=-1));
var mac = (agt.indexOf("mac")!=-1);
     
if (ie && win) { 
pluginlist = detectIE("ShockwaveFlash.ShockwaveFlash.4","Shockwave Flash") + 
detectIE("ShockwaveFlash.ShockwaveFlash.5","Shockwave Flash") + 
detectIE("ShockwaveFlash.ShockwaveFlash.6","Shockwave Flash");
}
     
function detectIE(ClassID,name) {
result = false; 
document.write('<scr' + 'ipt language="VBScript"\> \n');
document.write('on error resume next \n');
document.write('result = IsObject(CreateObject("' + ClassID + '"))');
document.write('</scr' + 'ipt\> \n'); 
if (result) return name + ','; 
else return ''; 
}
         
   
if ( ie && win &&(pluginlist.indexOf("Flash") != -1) ){
document.write("<object classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" " +
"codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0\" " +
"id=reddot  width=567 height=187> " + 
"<param name=movie value=\"" + movie + "\"> " + 
"<param name=\"wmode\" value=\"opaque\">" +
"<param name=quality value=high> " + 
"<embed src=\"" + movie + "\" quality=high width=567 wmode=\"opaque\" height=187 " + 
"swLiveConnect=true name=multimedia type=\"application/x-shockwave-flash\" " + 
"pluginspage=\"http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash\"></EMBED> " +
"</object>");   
} else {
document.write("<IMG NAME=\"name\" BORDER=\"0\" WIDTH=\"567\" HEIGHT=\"187\" ALT=\"2\" SRC=\"mascotas/toma.gif\">");
}
}