// JavaScript Document
var InternetExplorer = navigator.appName.indexOf("Microsoft") != -1;
//Maneja todos los mensajes de FSCommands en una película
function Pelicula_DoFSCommand(command, args) {
var PeliculaObj = InternetExplorer? Pelicula : document.Pelicula;
//Aquí va a ir nuestro código de manejo
alert("El comando pasado fue : "+command+" y el argumento fue : "+args);
}
if (navigator.appName && navigator.appName.indexOf("Microsoft") != -1 && navigator.userAgent.indexOf("Windows") != -1 && navigator.userAgent.indexOf("Windows 3.1") == -1)
{
document.write('<SCRIPT LANGUAGE=VBScript\> \n');
document.write('on error resume next \n');
document.write('Sub Pelicula_FSCommand(ByVal command, ByVal args)\n');
document.write(' call Pelicula_DoFSCommand(command, args)\n');
document.write('end sub\n');
document.write('</SCRIPT\> \n');
}

function act_theme(){
	FAjax ("acttheme.php","call","","POST","");
	var tema = document.getElementById("call").innerHTML;
	ValorEnTexto(tema);
	setTimeout("act_theme()",5000);
}

function ValorEnTexto(valor){
	var PeliculaObj = InternetExplorer? Pelicula : document.Pelicula;
	PeliculaObj.SetVariable("campotexto",valor);
}