// Fecha:     20050703
// 20040401 : Aniadida justificacion en funcion EscribeGraficoFlash
//	      y modificada la salida en caso de no disponer de flash


//----- Autoselección ------------------------------
function txtselect_on(id){
	this.document.getElementById(id).focus();
	this.document.getElementById(id).select();
}

// ------------- Dirección INI
txtdefecto_dir = 'Calle/Av./Plaza, Nombre vía, Nº vía, Población';

function txtdefecto_on(id) {
	 if (this.document.getElementById(id).value == '') {
	 	this.document.getElementById(id).value = txtdefecto_dir;
	 	//this.document.getElementById(id).style.color='#888888';
	 }
 }
	
function txtdefecto_off(id){
	 txtselect_on(id);
	 if (this.document.getElementById(id).value == txtdefecto_dir) { 
	 	this.document.getElementById(id).value ="";
	 	//this.document.getElementById(id).style.color='#000000';
	 }
}
// ------------- Dirección FIN


//AdSense Google - Bloque de Anuncios
function AdsAnuncios() {
	
	google_ad_client = "pub-3235169008647558";
	/* pista3Anuncios */
	google_ad_slot = "0181477146";
	google_ad_width = 728;
	google_ad_height = 90;
}

//AdSense Google - Bloque de Anuncios principal
function AdsAnunciosPpal() {

	google_ad_client = "pub-3235169008647558";
	// pista3AnunciosPpal 
	google_ad_slot = "7620516068";
	google_ad_width = 728;
	google_ad_height = 90;

}

//AdSense Google - Bloque de Vínculos
function AdsVinculos() {
	
	google_ad_client = "pub-3235169008647558";
	/* pista3Vinculos */
	google_ad_slot = "7944746003";
	google_ad_width = 728;
	google_ad_height = 15;
}


function opWin(url) { window.open (url, "sociableLinks", "status=0,toolbar=0,location=0,menubar=0"); }

//LnkSociable
function LnkSociable() {
	var t = document.title; 
	var u = document.URL; 
	var scriptUrlAux = 'http://blogplay.com/servers/sociable_web.php'; 
	var scriptUrl = scriptUrlAux + '?jq=1&id=3904&u=' + u + '&t=' + t; 
	var sociableSrc= '<script type="text/javascript" language="javascript" src="' + scriptUrl + '"' + String.fromCharCode(62,60) + '/script>'; 
	document.write(sociableSrc);
}


function tieneDatos(Valor) { 
 for (var i=0; i<Valor.length; i++) { 
   if ((" \t\n\r").indexOf(Valor.charAt(i))==-1) return true; 
   } 
 return false; 
}
 
function esNumerico(Valor) { 
 return (isNaN(Valor)); 
}

//Comprueba si es fecha
function esFecha(Valor) { 
 if (!tieneDatos(Valor)) return true; 
 var DatosFecha = Valor.split('-'); 
 var Fecha = new Date(); 
 Fecha.setFullYear(DatosFecha[2],DatosFecha[1]-1,DatosFecha[0]); 
 return (Fecha.getMonth()==DatosFecha[1]-1); 
}

//Comprueba si es un usuario
function esUsername (uname) {

	/* The following string represents the pattern for matching all special
	characters.  We don't want to allow special characters in the address. 
	These characters include ( ) < > & @ , ; : \ " . [ ] */
	var specialChars="\\(\\)><&@,;:\\\\\\\"\\.\\[\\]";
	
	/* The following string represents the range of characters allowed in a 
	username or domainname.  It really states which chars aren't allowed.*/
	var validChars="\[^\\s" + specialChars + "\]";
	
	/* The following pattern applies if the "user" is a quoted string (in
	which case, there are no rules about which characters are allowed
	and which aren't; anything goes).  E.g. "jiminy cricket"@disney.com
	is a legal e-mail address. */
 	var quotedUser="(\"[^\"]*\")";
	/* The following string represents an atom (basically a series of non-special characters.) */
	var atom=validChars + '+';
	
	/* The following string represents one word in the typical username.
	For example, in john.doe@somewhere.com, john and doe are words.
	Basically, a word is either an atom or quoted string. */
	var word="(" + atom + "|" + quotedUser + ")";
	
	// The following pattern describes the structure of the user
	var userPat=new RegExp("^" + word + "(\\." + word + ")*$");
	
	// Start by checking that only basic ASCII characters are in the strings (0-127).
	for (i=0; i<uname.length; i++) {
	 if (uname.charCodeAt(i)>127) {
	    alert("This username contains invalid characters.");
	     return false;
	 }
	}

	// See if "user" is valid 
	if (uname.match(userPat)==null) {
		// user is not valid
		//alert("The username doesn't seem to be valid.");
		return false;
	}
	
     return true;
} 

//Comprueba si es un Nombre
function esNombre (uname) {

	/* The following string represents the pattern for matching all special
	characters.  We don't want to allow special characters in the address. 
	These characters include ( ) < > & @ , ; : \ " . [ ] */
	var specialChars="\\(\\)><&@,;:\\\\\\\"\\.\\[\\]";
	
	/* The following string represents the range of characters allowed in a 
	username or domainname.  It really states which chars aren't allowed.*/
	var validChars="\[^\\s" + specialChars + "\]";
	
	/* The following pattern applies if the "user" is a quoted string (in
	which case, there are no rules about which characters are allowed
	and which aren't; anything goes).  E.g. "jiminy cricket"@disney.com
	is a legal e-mail address. */
 	var quotedUser="(\"[^\"]*\")";
	/* The following string represents an atom (basically a series of non-special characters.) */
	var atom=validChars + '+';
	
	/* The following string represents one word in the typical username.
	For example, in john.doe@somewhere.com, john and doe are words.
	Basically, a word is either an atom or quoted string. */
	var word="(" + atom + "|" + quotedUser + ")";
	
	// The following pattern describes the structure of the user
	var userPat=new RegExp("^" + word + "(\\." + word + ")*$");
	
	// Start by checking that only basic ASCII characters are in the strings (0-127).
	for (i=0; i<uname.length; i++) {
	 if (uname.charCodeAt(i)>127) {
	    //alert("This username contains invalid characters.");
	     return false;
	 }
	}

	// See if "user" is valid 
	if (uname.match(userPat)==null) {
		// user is not valid
		//alert("The username doesn't seem to be valid.");
		return false;
	}
	
     return true;
} 

//Comprueba si es un Email
function emailCheck (emailStr) {

	/* The following variable tells the rest of the function whether or not
	to verify that the address ends in a two-letter country or well-known
	TLD.  1 means check it, 0 means don't. */
	
	var checkTLD=1;
	
	/* The following is the list of known TLDs that an e-mail address must end with. */
	
	var knownDomsPat=/^(com|net|org|edu|int|mil|gov|arpa|biz|aero|name|coop|info|pro|museum)$/;
	
	/* The following pattern is used to check if the entered e-mail address
	fits the user@domain format.  It also is used to separate the username
	from the domain. */
	
	var emailPat=/^(.+)@(.+)$/;
	
	/* The following string represents the pattern for matching all special
	characters.  We don't want to allow special characters in the address. 
	These characters include ( ) < > @ , ; : \ " . [ ] */
	
	var specialChars="\\(\\)><@,;:\\\\\\\"\\.\\[\\]";
	
	/* The following string represents the range of characters allowed in a 
	username or domainname.  It really states which chars aren't allowed.*/
	
	var validChars="\[^\\s" + specialChars + "\]";
	
	/* The following pattern applies if the "user" is a quoted string (in
	which case, there are no rules about which characters are allowed
	and which aren't; anything goes).  E.g. "jiminy cricket"@disney.com
	is a legal e-mail address. */
	
	var quotedUser="(\"[^\"]*\")";
	
	/* The following pattern applies for domains that are IP addresses,
	rather than symbolic names.  E.g. joe@[123.124.233.4] is a legal
	e-mail address. NOTE: The square brackets are required. */
	
	var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/;
	
	/* The following string represents an atom (basically a series of non-special characters.) */
	
	var atom=validChars + '+';
	
	/* The following string represents one word in the typical username.
	For example, in john.doe@somewhere.com, john and doe are words.
	Basically, a word is either an atom or quoted string. */
	
	var word="(" + atom + "|" + quotedUser + ")";
	
	// The following pattern describes the structure of the user
	
	var userPat=new RegExp("^" + word + "(\\." + word + ")*$");
	
	/* The following pattern describes the structure of a normal symbolic
	domain, as opposed to ipDomainPat, shown above. */
	
	var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$");
	
	/* Finally, let's start trying to figure out if the supplied address is valid. */
	
	/* Begin with the coarse pattern to simply break up user@domain into
	different pieces that are easy to analyze. */
	var matchArray=emailStr.match(emailPat);
	
	if (matchArray==null) {
	
	/* Too many/few @'s or something; basically, this address doesn't
	even fit the general mould of a valid e-mail address. */
	
	//alert("Email address seems incorrect (check @ and .'s)");
	return false;
	}
	var user=matchArray[1];
	var domain=matchArray[2];
	
	// Start by checking that only basic ASCII characters are in the strings (0-127).
	for (i=0; i<user.length; i++) {
	if (user.charCodeAt(i)>127) {
	//alert("This username contains invalid characters.");
	return false;
	   }
	}
	for (i=0; i<domain.length; i++) {
	if (domain.charCodeAt(i)>127) {
	//alert("This domain name contains invalid characters.");
	return false;
	   }
	}
	
	// See if "user" is valid 
	if (user.match(userPat)==null) {
	
	// user is not valid
	
	//alert("The username doesn't seem to be valid.");
	return false;
	}
	
	/* if the e-mail address is at an IP address (as opposed to a symbolic
	host name) make sure the IP address is valid. */
	
	var IPArray=domain.match(ipDomainPat);
	if (IPArray!=null) {
	
	// this is an IP address
	
	for (var i=1;i<=4;i++) {
	if (IPArray[i]>255) {
	//alert("Destination IP address is invalid!");
	return false;
	   }
	}
	return true;
	}
	
	// Domain is symbolic name.  Check if it's valid.
	 
	var atomPat=new RegExp("^" + atom + "$");
	var domArr=domain.split(".");
	var len=domArr.length;
	for (i=0;i<len;i++) {
	if (domArr[i].search(atomPat)==-1) {
	//alert("The domain name does not seem to be valid.");
	return false;
	   }
	}
	
	/* domain name seems valid, but now make sure that it ends in a
	known top-level domain (like com, edu, gov) or a two-letter word,
	representing country (uk, nl), and that there's a hostname preceding 
	the domain or country. */
	
	if (checkTLD && domArr[domArr.length-1].length!=2 && 
	domArr[domArr.length-1].search(knownDomsPat)==-1) {
	//alert("The address must end in a well-known domain or two letter " + "country.");
	return false;
	}
	
	// Make sure there's a host name preceding the domain.
	
	if (len<2) {
	//alert("This address is missing a hostname!");
	return false;
	}
	
	// If we've gotten this far, everything's valid!
	return true;
}


//Comprueba si es un Numerico
function isNumeric (num, bEmptyOK) {
	reNumeric = /^\d+$/;
	if (trim(num)!="" && !reNumeric.test(num)) {
		if (bEmptyOK)
		   return true;
		else
		    return false;
	}
return true;
} 

//Objeto Ajax
function nuevoAjax(){
	var xmlhttp=false;

        if (window.XMLHttpRequest) { // Mozilla, Safari,...
            xmlhttp = new XMLHttpRequest();
            if (xmlhttp.overrideMimeType) {
                xmlhttp.overrideMimeType('text/xml');
                // Ver nota sobre esta linea al final
            }
        } 
        else if (window.ActiveXObject) { // IE
	 try {
	  xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
	 } catch (e) {
	  try {
	   xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
	  } catch (E) {
	   xmlhttp = false;
	  }
	 }
        }
        	
	/*if (!xmlhttp && typeof XMLHttpRequest!='undefined') {
	  xmlhttp = new XMLHttpRequest();
	}
	*/
	
       if (!xmlhttp) {
            alert('Error :( No es posible crear una instancia XMLHTTP');
            return false;
        }	
	
	return xmlhttp;
}