	function pID(sID) {
	 var    p;
	 if(      document.getElementById) // isMozilla || isIE5
	        p=document.getElementById(sID);
	 else if( document.layers)         // isNetscape4
	        p=document.layers[sID];
	 else                              // isIE4
	        p=document.all[sID];
	 return p; ///
	}

	function s2(n) { // n>=0
	 if(n<10) return "0"+n;
	 else     return     n;
	}

	function sHoyDD_MM_AAAA() {
	 return     sDD_MM_AAAA(new Date()); ///
	}
	function    sDD_MM_AAAA(pDate) {
//	 var i0a6 =pDate.getDay();
	 var i1a31=pDate.getDate();
	 var i1a12=pDate.getMonth()+1;
	 var iAgno=pDate.getFullYear();
	 return s2(i1a31)+'-'+s2(i1a12)+'-'+iAgno; ///
	}
	function sAAAA_MM_DD_HH_MM() {
	 var pDate=new Date();
	 var s01a31=s2(pDate.getDate());
	 var s01a12=s2(pDate.getMonth()+1);
	 var iAgno=pDate.getFullYear();
	 var sHH=s2(pDate.getHours());
	 var sMM=s2(pDate.getMinutes());
//	 var sS=s2(pDate.getSeconds());
	 return iAgno+'.'+s01a12+'.'+s01a31+' '+sHH+':'+sMM; ///
	}

	function sPointedsDigits(iNum) {
	 var i;
	 var sOut="", s=""+iNum;
	 if(iNum<=999) sOut=s;
	 else {
	  for(i=s.length-3; i>=1; i-=3) // ( s.length > 3 )
	   sOut="."+s.substr(i, 3)+sOut;
	  sOut=s.substr(0, i+3)+sOut;
	  if(sOut.substr(0, 1)==".")
	     sOut=sOut.substr(1);
	 }
	 return sOut; ///
	}

	function vAnhadirSiNo(pCbx,           x) {
	 var b=false;
	 for(var i=0; i<pCbx.options.length; i++)
	             if(pCbx.options[i].text==x) {
	     b=true; break;                           }
	 if(!b) {
	  var pOpt=new Option();
//	      pOpt.selected=false;
	      pOpt.value   ='';
	      pOpt.text    =                  x;
	                      pCbx.options[pCbx.options.length]=pOpt; // Aņadido al final
	 }
	}
	function vSelectOption(pCbx,                 x) {
	 for(var i=0; i <      pCbx.options.length; i++)
	                    if(pCbx.options[i].text==x) {
	                       pCbx.options[i].selected=true;
	                       break;                   }
	}

	function bIsEmail(sIn) {
	 var iArrobas=0, iPuntos=0;
	 for(var s1,i=0;i<sIn.length; i++) {
	     s1=          sIn.substr(i,1);
	  if(s1=='@') ++iArrobas;
	  if(s1=='.')  ++iPuntoss;
	 }
	 if(iArrobas==1 && iPuntos>0) return true; ///
	 return false; ///
	}

	function bIsFirefox() {
	 var sUserAgent=navigator.userAgent.toLowerCase();
	 if( sUserAgent.indexOf("firefox")!=-1 ) return true; ///
	 else                                    return false; ///
	}

