var ie = document.all;
var nn6 = document.getElementById &&! document.all;

var isdrag = false;
var x, y;
var dobj;

function myPopupRelocate() {
 var scrolledX, scrolledY;
 if( self.pageYOffset ) {
   scrolledX = self.pageXOffset;
   scrolledY = self.pageYOffset;
 } else if( document.documentElement && document.documentElement.scrollTop ) {
   scrolledX = document.documentElement.scrollLeft;
   scrolledY = document.documentElement.scrollTop;
 } else if( document.body ) {
   scrolledX = document.scrollLeft;
   scrolledY = document.scrollTop;
 }

 var centerX, centerY;
 if( self.innerHeight ) {
   centerX = self.innerWidth;
   centerY = self.innerHeight;
 } else if( document.documentElement && document.documentElement.clientHeight ) {
   centerX = document.documentElement.clientWidth;
   centerY = document.documentElement.clientHeight;
 } else if( document.body ) {
   centerX = document.body.clientWidth;
   centerY = document.body.clientHeight;
 }

 var leftOffset = scrolledX + 600 - 300;
 var topOffset = scrolledY + 25;

 //document.getElementById("styled_popup").style.top = topOffset + "px";
 //document.getElementById("styled_popup").style.left = leftOffset + "px";
}

function setOpacity( value ) {
 document.getElementById("styled_popup").style.opacity = value / 10;
 document.getElementById("styled_popup").style.filter = 'alpha(opacity=' + value * 10 + ')';
}

function fadeInMyPopup() {
 for( var i = 0 ; i <= 100 ; i++ )
   setTimeout( 'setOpacity(' + (i / 10) + ')' , 8 * i );
}

function fadeOutMyPopup() {
 var so = new SWFObject('http://www.gruporemediosanto.com/remediosantotv/player.swf','ply','850','500','9','#ffffff');
  so.write('guestform');
 for( var i = 0 ; i <= 100 ; i++ ) {
   setTimeout( 'setOpacity(' + (10 - i / 10) + ')' , 8 * i );
 }

 setTimeout('styledPopupClose()', 800 );
}


function movemouse( e ) {
  if( isdrag ) {
    dobj.style.left = nn6 ? tx + e.clientX - x : tx + event.clientX - x;
    dobj.style.top  = nn6 ? ty + e.clientY - y : ty + event.clientY - y;
    return false;
  }
}

function selectmouse( e ) {
  var fobj       = nn6 ? e.target : event.srcElement;
  var topelement = nn6 ? "HTML" : "BODY";

  while (fobj.tagName != topelement && fobj.className != "dragme") {
    fobj = nn6 ? fobj.parentNode : fobj.parentElement;
  }

  if (fobj.className=="dragme") {
    isdrag = true;
    dobj = document.getElementById("styled_popup");
    tx = parseInt(dobj.style.left+0);
    ty = parseInt(dobj.style.top+0);
    x = nn6 ? e.clientX : event.clientX;
    y = nn6 ? e.clientY : event.clientY;
    document.onmousemove=movemouse;
    return false;
  }
}

function styledPopupClose() {
  document.getElementById("styled_popup").style.display = "none";
}

function fireMyPopup(dia) {
 setOpacity( 0 );
 myPopupRelocate();

  var so = new SWFObject('http://www.gruporemediosanto.com/remediosantotv/player.swf','ply','850','500','9','#ffffff');
  so.addParam('allowfullscreen','true');
  so.addParam('allowscriptaccess','always');
  so.addParam('wmode','opaque');
  so.addVariable('playlistfile','http://www.gruporemediosanto.com/remediosantotv/rstv.xml');
  so.addVariable('autostart','true');
  so.addVariable('playlist','right');
  so.addVariable('playlistsize','200');
  so.write('guestform');

/*
  if (document.all)
  guestform.innerHTML='11<object type="application/x-shockwave-flash" width="850" height="500" wmode="transparent" allowfullscreen="true" data="./remediosantotv/player.swf?playlistfile=http://www.gruporemediosanto.com/remediosantotv/rstv.xml&autostart=true&link=index.php&displayclick=link&linktarget=_self&playlist=right&playlistsize=200"><param name="movie" value="./remediosantotv/player.swf?playlistfile=http://www.gruporemediosanto.com/remediosantotv/rstv.xml&autostart=true&link=index.php&displayclick=link&linktarget=_self&playlist=right&playlistsize=200" /><param name="wmode" value="transparent" /></object>';
  else if (document.getElementById){
    rng = document.createRange();
    el = document.getElementById("guestform");
    rng.setStartBefore(el);
    htmlFrag = rng.createContextualFragment('22<object type="application/x-shockwave-flash" width="850" height="500" wmode="transparent" allowfullscreen="true" data="./remediosantotv/player.swf?playlistfile=http://www.gruporemediosanto.com/remediosantotv/rstv.xml&autostart=true&link=index.php&displayclick=link&linktarget=_self&playlist=right&playlistsize=200"><param name="movie" value="./remediosantotv/player.swf?playlistfile=http://www.gruporemediosanto.com/remediosantotv/rstv.xml&autostart=true&link=index.php&displayclick=link&linktarget=_self&playlist=right&playlistsize=200" /><param name="wmode" value="transparent" /></object>');
      while (el.hasChildNodes()) el.removeChild(el.lastChild);
      el.appendChild(htmlFrag);}
 */
 document.getElementById("styled_popup").style.display = "block";
 fadeInMyPopup();
 // document.body.onscroll = myPopupRelocate;
 // window.onscroll = myPopupRelocate;
}

document.onmousedown=selectmouse;
document.onmouseup=new Function("isdrag=false");