<!--

<!-- Data-->
var mydate=new Date();
var year=mydate.getYear();
if (year < 1000) year+=1900;
var day=mydate.getDay();
var month=mydate.getMonth();
var daym=mydate.getDate();
var dayarray=new Array("Domingo","Segunda","Terça","Quarta","Quinta","Sexta","Sábado");
var montharray=new Array("Janeiro","Fevereiro","Março","Abril","Maio","Junho","Julho","Agosto","Setembro","Outubro","Novembro","Dezembro");
<!-- document.write("&nbsp;"+dayarray[day]+" "+montharray[month]+" "+daym+" "+year); -->
<!-- FIM DATA -->

<!-- Janela Pop Up-->
function _popup(x,y,endereco){
    window.open( endereco, "WndName","toolbar=no,location=no,directories=no,status=1,menubar=no,scrollbars=yes,resizable,width="+x+",height="+y);
}
function abrepopup(){

	x=600;
	y=400;

	esquerda = ((screen.width)-x)/2 ; 
	topo = ((screen.height)-y)/2 ;

    window.open( "about:blank", "popupvd","toolbar=no,location=no,directories=no,status=1,menubar=no,scrollbars=yes,noresizable,width="+x+",height="+y+',left='+esquerda+',top='+topo);
}

<!-- Top Menus -->


ua=navigator.userAgent;
OP=ua.match(/Opera.[5-9]/i)!=null;
IE=!OP&&ua.match(/msie.[4-9]/i)!=null;
N4=!OP&&!IE&&ua.match(/mozilla.4/i)!=null;
ofsH=14;
nbsp="&nbsp;";
rt="<!--el-->";
mi=[];
c=0;
d=document;
function Item(m,w){
	this.l;this.m=m;
	this.w=w
}

function Menu(n){
	this.n=n;
	this.m="<table bgcolor=#FFFFFF width=100% align=center cellpadding=1 cellspacing=1 border=0><tr>"+rt+"</tr></table>";
	//this.m="<table width=100% border=0 cellpadding=0 cellspacing=2><tr>"+rt+"</tr></table>";
	this.sm="";
	this.bg=["#C4B9B6","#D8092A","#C4B9B6","#D8092A"];
	this.cl=["#FFFFFF","#FFFFFF","#FFFFFF","#FFFFFF"];
	this.mf="Verdana,Arial";
	this.mfs="12px";
	this.mfw="bold";
	this.smf=this.mf;
	this.smfs=this.mfs;
	this.smfw=this.mfw;
	this.bc="#FFFFFF";
	this.bw=1
}

function addM(mo,mid,text,url,w){
	mi[mid]=new Item(mo,w);
	mo.m=mo.m.replace(rt,item(mid,mo.bg[0],mo.n,url,nbsp+text+nbsp)+rt)
}

function addSM(mo,mid,text,url){
	mi[mid+"sub"+c]=new Item(mo,0);
	ls="<!--"+mid+"-->";
	if(mo.sm.indexOf(ls)<0)
		mo.sm+=(N4?"<layer":"<div")+" id="+mid+"sub onmouseover=sE(this,1) onmouseout=sE(this,0) "+(N4?"visibility=hide width="+mi[mid].w:"style=position:absolute;visibility:hidden")+"><table width="+mi[mid].w+" border=0 cellpadding=0 cellspacing=0><tr><td align=center bgcolor="+mo.bc+"><table align=center width=100% border=0 cellpadding=0 cellspacing="+mo.bw+">"+ls+"</table></td></tr></table>"+(N4?"</layer>":"</div>");
		mo.sm=mo.sm.replace(ls,"<tr>"+item(mid+"sub"+c,mo.bg[2],mo.n+"sub",url,nbsp+text+nbsp)+"</tr>"+ls);
		c++
}

function writeStyle(o){
	s=IE?"cursor:hand":N4?"text-decoration:none":"cursor:default";
	d.write('<style>.'+o.n+',.'+o.n+'n{text-align: center;font-family:'+o.mf+';font-size:'+o.mfs+';font-weight:'+o.mfw+';'+s+'}.'+o.n+'sub,.'+o.n+'subn{font-family:'+o.smf+';font-size:'+o.smfs+';font-weight:'+o.smfw+';'+s+'}.'+o.n+'{color:'+o.cl[0]+'}.'+o.n+'sub{color:'+o.cl[2]+'}</style>')
}

function hl(o,t){
	e=mi[o.id];
	c=(e.w>0)<<1|t;
	bg=e.m.bg[c];
	cl=e.m.cl[c];
	if(N4){
		w=o.clip.width;
		with(o.document){linkColor=cl;
		vlinkColor=cl;
		alinkColor=cl;
		bgColor=bg;
		open();
		write(e.l);
		close()
	}
		o.clip.width=w
	}else{
		OP?o.style.background=bg:o.style.backgroundColor=bg;
		o.style.color=cl
	}
	sm=gE(o.id+"sub");
	if(e.w && sm){
	if(t){if(N4){sm.left=o.pageX;sm.top=o.pageY+o.clip.height;}else{mnp=o;ofsL=0;ofsT=0;do{ofsL+=mnp.offsetLeft;ofsT+=mnp.offsetTop;mnp=mnp.offsetParent}while(mnp!=null);s=sm.style;s.left=ofsL;s.top=ofsT+(OP?ofsH:o.offsetHeight)}sE(sm,1)}else sE(sm,0)}}function item(id,bg,cl,u,t){mi[id].l=a(cl+"n",u,t);return "<td align=left bgcolor="+bg+(N4?"><ilayer><layer width=100%":" class="+cl+(u?" onmousedown=document.location='"+u+"'":""))+" id="+id+" onmouseover=hl(this,1) onmouseout=hl(this,0)>"+(N4?a(cl,u,t)+"</layer></ilayer>":t)+"</td>"}function a(cl,u,t){return "<a class="+cl+" href="+(u)+">"+t+"</a>"}function gE(e,f){if(N4){f=(f)?f:self;var V=f.document.layers;if(V[e])return V[e];for(var W=0;W<V.length;)t=gE(e,V[W++]);return t}if(IE)return d.all[e];return d.getElementById(e)}function gS(e){return N4? gE(e):gE(e).style}function sE(e,v){(N4?e:e.style).visibility=v?N4?'show':'visible':N4?'hide':'hidden'}

menu = new Menu("basemenu") 

// [menu backgr., highlight. menu backgr., submenu backgr., highlight. submenu backgr.]
menu.bg=["#AFA4A0","#013068","#AFA4A0","#013068"]

// [menu font, highlight. menu font, submenu font, highlight. submenu font.]
menu.cl=["#FFFFFF","#FFFFFF","#FFFFFF","#FFFFFF"]
menu.mf="Verdana,Arial" // menu font
menu.mfs="11px"         // menu font size
menu.mfw="bold"       // menu font boldness
menu.smf="Verdana,Arial"// submenu font
menu.smfs="11px"        // submenu font size
menu.smfw="normal"      // submenu font boldness
menu.bc="#FFFFFF"       // submenu border color
menu.bw=1               // submenu border thickness

// addM() - adds a menu element 
// addSM() - adds a submenu element
// addM(menuinstance,"menu element identifier","Name","URL if necessary", submenu width in pxs)
// addSM(submenuinstance,"submenu element identifier","Name","URL if necessary")




//addM(menu,"m1","HOME","javascript:window.open(\"/gen.pl?sid=$I->{mainindex}\",\"_parent\")",0)
//addM(menu,"m2","FAVORITOS","javascript:window.alert(\"clique!!!!\")",100)
//addM(menu,"m2","FAVORITOS","javascript:bookmarksite(\"GEVE\", \"http://www.wallpaper.pt\")",100)
addM(menu,"m1","HOME","javascript:window.open(\"/gen.pl?sid=ve.sections/18\",\"_parent\");void(0)",100)
addM(menu,"m2","FAVORITOS","javascript:window.external.AddFavorite(\"http://ve.online.pt\",\"BOOK\");",100)
addM(menu,"m3","LIVRARIA","javascript:window.open(\"http://www.centroatl.pt/ve\",\"_parent\");void(0);",100)
addM(menu,"m4","ASSINATURA","",100)
addM(menu,"m5","ÁREA DE SERVIÇO","",150)
addSM(menu,"m5","Serviços","javascript:window.open(\"/gen.pl?sid=ve.sections/71\",\"_parent\");void(0)")  
addSM(menu,"m5","Produtos","javascript:window.open(\"/gen.pl?sid=ve.sections/72\",\"_parent\");void(0)")  
addSM(menu,"m5","Agenda Fiscal","javascript:window.open(\"/gen.pl?sid=ve.sections/73\",\"_parent\");void(0)")  
addM(menu,"m6","BASES DE DADOS","",200)
addSM(menu,"m6","Jurídicas","javascript:window.open(\"/gen.pl?sid=ve.sections/51\",\"_parent\");void(0)")  
addSM(menu,"m6","Regulamentação do Trabalho","javascript:window.open(\"/gen.pl?sid=ve.sections/52\",\"_parent\");void(0)")  
addSM(menu,"m6","Insolvência - Anúncios DR","javascript:window.open(\"/gen.pl?sid=ve.sections/53\",\"_parent\");void(0)")  
//addSM(menu,"m6","Concursos Públicos","javascript:window.open(\"/gen.pl?sid=ve.sections/54\",\"_parent\");void(0)")  
addM(menu,"m7","NEWSLETTER","",100) 
addM(menu,"m8","VE ONLINE","javascript:window.open(\"/gen.pl\",\"_parent\");void(0)",100)  
addM(menu,"m9","AJUDA","",100) 
writeStyle(menu)


//-->
function selHiddenShow(who){
	if (document.all) {
        if(window.document.all[who].style.visibility=='visible'){
			window.document.all[who].style.visibility = 'hidden';
        	window.document.all[who].style.display = 'none';
		} else{
			window.document.all[who].style.visibility = 'visible';
        	window.document.all[who].style.display = 'block';
		}
	} else if(document.getElementById){
		if(window.document.getElementById(who).style.visibility=='visible'){
			window.document.getElementById(who).style.visibility = 'hidden';
			window.document.getElementById(who).style.display = 'none';
		} else{
			window.document.getElementById(who).style.visibility = 'visible';
			window.document.getElementById(who).style.display = 'block';
		}
	}	
}
<!-- Calendário_admin -->

	function buildCal(whitchdata,f_n,f_i){
	
	var todaydate=new Date();
	
	var m = '';
	var y = '';
	var d = '';
	var h = '';
	var n = '';
	var s = '';
	
	var2Split = whitchdata;
	varSplit = var2Split.split(" ");
	
	if (varSplit.length == 2) {
	
		data2Split = varSplit[0];
		hour2Split = varSplit[1];
		
		dataSplit = data2Split.split("-");
		if (dataSplit.length == 3) {
			y = dataSplit[0];
			m = dataSplit[1];
			d = dataSplit[2];
		}
		
		hourSplit = hour2Split.split(":");
		if (hourSplit.length == 3) {
			h = hourSplit[0];
			n = hourSplit[1];
			s = hourSplit[2];
		}
	
	} else {
		dataSplit = whitchdata.split("-");
		if (dataSplit.length == 3) {
			y = dataSplit[0];
			m = dataSplit[1];
			d = dataSplit[2];
		}
	}
	
	m = (m=='') ? todaydate.getMonth()+1 : m
	m = (m>12) ? 1 : m	
	m = (m<1) ? 12 : m	
	
	y = (y=='') ? (todaydate.getFullYear()) : y
	d = (d=='') ? (todaydate.getDate()) : d
	h = (h=='') ? (todaydate.getHours()) : h
	n = (n=='') ? (todaydate.getMinutes()) : n
	s = (s=='') ? (todaydate.getSeconds()) : s

	
	datanow=todaydate.getFullYear()+"-"+(todaydate.getMonth()+1)+"-"+todaydate.getDate()+" "+todaydate.getHours()+":"+todaydate.getMinutes()+":"+todaydate.getSeconds();	
	
	m=Number(m);
	y=Number(y);
	d=Number(d);
	h=Number(h);
	n=Number(n);
	s=Number(s);	
	
	var mn=['Janeiro','Fevereiro','Março','Abril','Maio','Junho','Julho','Agosto','Setembro','Outubro','Novembro','Dezembro'];
	var dim=[31,0,31,30,31,30,31,31,30,31,30,31];
	
	var oD = new Date(y, m-1, 1);
	oD.od=oD.getDay()+1;
	
	var scanfortoday=(y==todaydate.getFullYear() && m==todaydate.getMonth()+1)? todaydate.getDate() : 0

	previousmonth = "<a href='javascript: buildCal(\""+y+"-"+(m-1)+"-"+d+" "+h+":"+n+":"+s+"\",\""+f_n+"\",\""+f_i+"\")' class='caltxt'>-</a>";
	
	listMonth = "<select onchange='buildCal(\""+y+"-\"+this.value+\"-"+d+" "+h+":"+n+":"+s+"\",\""+f_n+"\",\""+f_i+"\")'>";
	for(i=0;i<=11;i++){
		if (mn[i]==mn[m-1]) {
			thisMonth=" selected";
		} else {
			thisMonth="";
		}
		listMonth += "<option value=\""+(i+1)+"\""+thisMonth+">"+mn[i];
	}
	listMonth +="</select>";
	
	nextmonth = "<a href='javascript: buildCal(\""+y+"-"+(m+1)+"-"+d+" "+h+":"+n+":"+s+"\",\""+f_n+"\",\""+f_i+"\")' class='caltxt'>+</a>";

	previousyear = "<a href='javascript: buildCal(\""+(y-1)+"-"+m+"-"+d+" "+h+":"+n+":"+s+"\",\""+f_n+"\",\""+f_i+"\")' class='caltxt'>-</a>";
	
	nextyear = "<a href='javascript: buildCal(\""+(y+1)+"-"+m+"-"+d+" "+h+":"+n+":"+s+"\",\""+f_n+"\",\""+f_i+"\")' class='caltxt'>+</a>";
	
	dim[1]=(((oD.getFullYear()%100!=0)&&(oD.getFullYear()%4==0))||(oD.getFullYear()%400==0))?29:28;
	datepast="21111974";
	var t='<table cellpadding="0" border="0" cellspacing="2" class="caltable"><tr align="center">';
	t+='<td colspan="7" align="center">';
	t+='<table cellspacing="0" border="0" cellpadding="0"><tr>';
	t+='<td>&nbsp;</td>';
	t+='<td>'+previousmonth+'</td>';
	t+='<td>&nbsp;</td>';
	t+='<td>'+listMonth+'</td>';
	t+='<td>'+nextmonth+'</td>';
	t+='<td>&nbsp;&nbsp;&nbsp;</td>';
	t+='<td>'+previousyear+'</td>';
	t+='<td>&nbsp;</td>';
	t+='<td class="caltxt">'+y+'</td>';
	t+='<td>&nbsp;</td>';
	t+='<td>'+nextyear+'</td>';
	t+='</tr></table>';
		
	t+='</td></tr><tr align="center">';
	for(ss=0;ss<7;ss++)t+='<td class="caltable">'+"DSTQQSS".substr(ss,1)+'</td>';
	t+='</tr><tr align="center">';

	for(i=1;i<=42;i++){
	var x=((i-oD.od>=0)&&(i-oD.od<dim[m-1]))? i-oD.od+1 : '&nbsp;';
	xx=x;
	if (x==scanfortoday){
		xx='<b class="calsel">'+x+'</b>';
	}
	if (xx!="&nbsp;") {
		x="<a href='javascript: updatedata(\""+y+"-"+m+"-"+x+" "+h+":"+n+":"+s+"\",\""+f_n+"\",\""+f_i+"\")' class='cal'>"+xx+"</a>";
	} else {
		x="&nbsp;";
	}
	t+='<td>'+x+'</td>';
	if(((i)%7==0)&&(i<36))t+='</tr><tr align="center">';
	}
	
	t+='</tr>';
	
	t+='<tr><td colspan="7" align="center">';
	
	listhour = "<select onchange='buildCal(\""+y+"-"+m+"-"+d+" \"+this.value+\":"+n+":"+s+"\",\""+f_n+"\",\""+f_i+"\")'>";
	for(i=0;i<=23;i++){
		if (h==i) {
			listthishour=" selected";
		} else {
			listthishour="";
		}

		listhour += "<option value=\""+i+"\""+listthishour+">"+i;
	}
	listhour +="</select>";	
	
	listmin = "<select onchange='buildCal(\""+y+"-"+m+"-"+d+" "+h+":\"+this.value+\":"+s+"\",\""+f_n+"\",\""+f_i+"\")'>";
	for(i=0;i<=59;i++){
		if (n==i) {
			listthismin=" selected";
		} else {
			listthismin="";
		}
		listmin += "<option value=\""+i+"\""+listthismin+">"+i;
	}
	listmin +="</select>";	
	
	t+='<table cellspacing="0" border="0" cellpadding="0" width="100%"><tr>';
	t+='<td width="40%"><a href="javascript: buildCal(\''+datanow+'\',\''+f_n+'\',\''+f_i+'\')" class="calop" title="Data actual">&nbsp;A&nbsp;</a></td>';
	t+='<td  width="10" class="caltxt">'+listhour+'</td>';
	t+='<td  width="10" class="caltxt">h&nbsp;&nbsp;</td>';
	t+='<td  width="10" class="caltxt">'+listmin+'</td>';
	t+='<td  width="10" class="caltxt">m</td>';
	t+='<td width="40%" align="right"><a href="javascript: Calendar(\''+datanow+'\',\''+f_n+'\',\''+f_i+'\')" class="calop" title="Fechar">&nbsp;X&nbsp;</a></td>';
	t+='</tr></table>';
	
	t+='</td></tr>';
	
	calltotal = t+='</table>';
	
	
	
		if (document.getElementById&&!document.all) {
			br=document.getElementById('calendar');
		} else if (document.all) {
			br=document.all.calendar;
		}
	
		br.innerHTML=calltotal;
		br.style.visibility = "visible";

	}
	
	function updatedata(thedata,f_n,f_i) {
	
	
		var2Split = thedata;
		varSplit = var2Split.split(" ");
		
		if (varSplit.length == 2) {
		
			data2Split = varSplit[0];
			hour2Split = varSplit[1];
			
			dataSplit = data2Split.split("-");
			if (dataSplit.length == 3) {
				y = dataSplit[0];
				m = dataSplit[1];
					m = (m<10) ? "0"+m : m
				
				d = dataSplit[2];
					d = (d<10) ? "0"+d : d
			}
			
			hourSplit = hour2Split.split(":");
			if (hourSplit.length == 3) {
				h = hourSplit[0];
					h = (h<10) ? "0"+h : h
				n = hourSplit[1];
					n = (n<10) ? "0"+n : n
				s = hourSplit[2];
					s = (s<10) ? "0"+s : s
			}
		
		}
	
		thedata=y+"-"+m+"-"+d+" "+h+":"+n+":"+s;
		

		if (document.all) {
			document.all.calendar.style.visibility="hidden";
		} else if(document.getElementById){
			document.getElementById('calendar').style.visibility="hidden";
			
		}
		//doc="document."+f_n;
		document[f_n][f_i].value=thedata;
	}
	
	function Calendar(thedata,f_n,f_i) {
		if (document.getElementById&&!document.all) {
			br=document.getElementById('calendar');
		} else if (document.all) {
			br=document.all.calendar;
		}
		
		if (br.style.visibility=='visible'){
			br.style.visibility='hidden';
		} else {
			br.style.visibility='visible';
			buildCal(thedata,f_n,f_i);
		}
	}
	


