function fmtAutore()
{	var tit=creaSez('S')
	var corpo=creaSez('S')
	var xxx=creaSez('S')
	var z2=creaMenulat('X',tit,"_AUTORI")
	corpo+='<br><br>'+creaTabellina('X',
	[[5,5,40,40,10],['Edita','Elimina','Titolo','Descrizione','Curriculum'],0],
	{	cID:2,c1:2,
		allin:'CCLLC',
		link:['EDIT=AUTORI_CORSI&ID=','ELIMINA=AUTORI_CORSI&ID=','PAGE=AUTORI_CORSI&ID=',0,6],
		imm:['img/edit_cnt.gif','img/del_cnt.gif',0,0,'imgx/scarica.gif'],brk:0,colonne:1
	})
	return mkTit(tit,1)+_fmt2Col('',corpo,'R',xxx)
} 

function fmtDocum()
{	tit=creaSez('S')
	var corpo=creaSez('S')
	var z2=creaMenulat('X',tit,"_AUTORI")
	corpo+='<br><br>'+creaTabellina('X',
	[[5,5,70,10,10],['Edita','Elimina','Drescrizione','Data','Scarica documento'],0],
	{	cID:2,c1:2,
		allin:'CCLLC',
		link:['EDIT=DOCUMENTI&ID=','ELIMINA=DOCUMENTI&ID=',0,0,6],
		imm:['img/edit_cnt.gif','img/del_cnt.gif',0,0,'imgx/scarica.gif'],brk:0,colonne:1
	})
	return mkTit(tit,1)+mkdiv("d_Corpo",corpo)
} 

function fmtenddelete()
{	id=creaSez('S')
	alert(id)
	ldr0("AUTORE_CORSI=UTENTI&ID="+id)
	return 0
}


function fmtcorsoFad()
{	titolo=creaSez('S')
	corpo=creaSez('S')
	return mkdiv("d_Corpo",'<img src='+titolo+' border=0><br><br><a onclick="ldr0(\'REGISTRAZIONE=SPEC&ID=RECORDID\');"><img style="cursor:pointer;" src=imgX/accedi.gif border=0></a><br><br>'+corpo) //_fmt2Col(titolo,corpo,'R','')
}

function fmtaccediFad()
{	titolo=creaSez('S')
	corpo=creaSez('S')
	return mkdiv("d_Corpo",'<img src='+titolo+' border=0><br><br>'+corpo) 
}

function stampaScheda()   
{   if (ifPrint)
	{	var z=$("C0").innerHTML.replace(/\§/g,'')
		var tmod=$("MODTIT").innerHTML
		var z1=z.replace(tmod,'<span style="color:#F9D46B;font-size:16px;">'+tmod+'</span>')
		if (isKH) z1='<a color=red id="X" onclick="top.onElementFocused()">Clicca qui per stampare</a><br>'+z1
		ifPrint.document.body.innerHTML=z1
		portaSu("Print")
		top.Stampa_pronto=0
		setTimeout("stampaD()",100);
		if (document.addEventListener)ifPrint.document.addEventListener("focus", onElementFocused, true); 
		else ifPrint.onfocus=onElementFocused;
	}
}

function stampaD()
{

if(!top.Stampa_pronto) setTimeout("stampaD()",100);
if (isIE) ifPrint.document.body.focus()
if (isMz) ifPrint.focus()
}

function onElementFocused(e)
{if (!top.Stampa_pronto) 
	{	top.Stampa_pronto=1
		if (isKH)
		{  var o=document.getElementById('Print').contentDocument.getElementById('X')
	 		if (o) o.style.display='none'
		}
		ifPrint.print()
		setTimeout("portaSu()",1000)
	}
}

function sillabazione(x) 
{	var n=x.length
	var m=n/2
	var a=x.split(' ')
	var s=a[0].length
	for (var i=1;i<a.length;i++){s+=a[i].length; if(s>50){ a[i-1]+="<br>";s=0}}
	return a.join(" ")	
}

function _titoloTestata(x) 
{	return
	var MC=[50,55,60,70]
	var fSize=[24,22,20,16,16]
	var o=$$$$('TITOLO')
	if(!o) alert("errore in titoloTestata "+ x )
	var s=o.style
	var i=0;while(x.length>MC[i]&&i<MC.length)i++
	s.fontSize=fSize[i]+"px"
	s.lineHeight=fSize[i]+"px"
	if(x.length>70)x=sillabazione(x)
	o.innerHTML=x
	o.style.visibility="visible"
	o.style.zIndex=1000
}


function def_Hr(a,b,c)
{	if(typeof(c)!="undefined") return '<A onclick="stP(\'Mese\','+c+');ldr0(\''+b+'\');">'+a+'</a>'
	else return '<A onclick="ldr0(\''+b+'\');">'+a+'</a>'
}

function InserisciValori(aF,arRiga)
{  var z=aF[0]+'("'+arRiga[aF[1]]	
   for (var i=2;i<aF.length;i++) z+='","'+arRiga[aF[i]]
   return z+'")'
}

function creaTabellina(t,head,body)
{	var r1="";j=0
	var tab=(t=="X")?gtXob(t):gtXob("X",t)
	var n_r=tab.length
 	if(!n_r) return "<br><br><i>Nessun record trovato</i>"
	var z=tHead(head[0],head[1],head[2])  
	if (!body.c1)body.c1=2
	if (!body.skclr)body.skclr=0
	if (!body.brk)body.brk=0
	if (!body.fun)body.fun=''
	for (var i=1;i<n_r;i++)
	{	r1+=tBodyN(i,tab[i],body) 
//		r1+=tBody(i,tab[i],body.c1,body.cID,body.allin,body.link,body.imm,body.skclr,body.brk,0,body.fun,body.trasform) 
		if (++j==20){z+=r1;r1="";j=0}
	}
	z+=r1
	return '<table '+ xTab1+'width=100%>'+z+'</table>'
}

function fmtDatiPr()
{	var tit=creaSez('S')
	var list=top.gtXob('X','Dati_provider') 
	var n=list?list.length:0
	var z=''
	if(n>1)
	{	z='<table class="D_CORPO" width=100%><tr><td colspan=2><b>Riepilogo Dati del provider</b></td></tr><tr><td width=30%>'
			+'Codice:</td><td width=70%>'+list[1][2]+'</td></tr><tr><td>'
			+'Denominazione:</td><td width=70%><b>'+list[1][3]+'</b></td></tr><tr><td>'
			+'Email:</td><td>'+list[1][4]+'</td></tr><tr><td>'
			+'Tipo ente:</td><td>'+list[1][5]+'</td></tr><tr><td>'
			+'Indirizzo:</td><td>'+list[1][6]+'</td></tr><tr><td>'
			+'Telefono:</td><td>'+list[1][7]+'</td></tr><tr><td>'
			+'Fax:</td><td>'+list[1][8]+'</td></tr></table>'
			+'<br><a onclick="ldr0(\'EDIT=EV_PROVIDER&ID='+gtP("ID")+'\');"><img style="cursor:pointer;" src=img/bedit.gif border=0></a>'
	}
	return mkTit(tit,1)+z
}


function tBodyN(n_R,arRiga,B) //fa una riga del corpo
{	var s,id=arRiga[B.cID]
	var fun=B.fun
	if(B.trasform)
	{	T=B.trasform;
		for(var i=0;i<T.length;i++)arRiga[T[i][1]]=eval([T[i][0]]+"("+arRiga[T[i][1]]+")")}
	var lk=B.link

	var	z='<tr id=_XTAB'+n_R+' valign=middle>'
	var b=""
	if (B.brk)
	{	var BRK=(typeof B.brk=="string")?[B.brk,B.brk]:B.brk //2007
		if( top.g_old!=arRiga[BRK[0]])
		{	b='<tr id=_XTAB'+n_R+'><td bgcolor=#F8F6EE colspan='+B.lk.length+'><b>'+'  '
			if (B.lkmod) b+=mkHr(12,'<img src=img/freccia.gif border=0> '+arRiga[BRK[1]],B.lkmod+id,0)
			else b+=arRiga[BRK[1]]
			b+='</b></td></tr>'
			top.g_old=arRiga[BRK[0]]
		}
	}
	if (lk) for (var j=0;j<lk.length;j++) 
	{	var t=arRiga[j+B.c1]
		t=t?Trim(t):''
		var IM=B.imm[j]
		if (!t ||!t.length)s='&nbsp;'
		else if(lk[j]) 
		{	var ext=parseInt(lk[j],10)
			if(typeof IM == 'object')
			{	if (IM.length>2)IM =eval(IM[0])?IM[1]:IM[2]
				else IM =eval(IM[0])
			}
			var LK=0;if(lk[j]!="#")LK=lk[j]
			var HR=t;if(IM) HR=mkImg(IM) 
		  	if (fun)
			{	if (typeof fun == 'object') fun=InserisciValori(fun,arRiga)
				else fun=fun.replace('RECORDID',id) 
			}
			if(ext)s=def_Hre(HR,arRiga[LK])
			else if (B.ah && B.ah.length>0) s=mkHr(12,HR,LK+arRiga[B.ah[j]],(fun?fun:0))
			else s=mkHr(12,HR,(LK?LK+id:0),(fun?fun:0))			     
		}
		else if(IM) s=fgImg(IM)
		else s=t
	//focus	
		if (!j)
		{	if(id==gtP('CurP'))s="<span color =red id=fokus><img src=img/frecciaR.gif border=0>&nbsp;</span>"+s
			
		}
		var a=B.allin.substr(j,1)
		var k='<td align='+((a=='L')?'left':(a=='R')?'right':'center')+' >'+s+'</td>'
		z+=k
	}
	return	b+z+'</tr>'	
}

function mkTit(txt,im){	return im? mkdiv("d_TitImm",txt):mkdiv("d_Titolo",txt)}

function _fmt2Col(t1,c1,t2,c2,cor)  // t2=R: RILANCI; t2=E: EVENTO
{   var z=(t1!=''?mkTit(t1,1):'')+(c1!=''?mkdiv("d_Corpo",c1):'')
	col1=z
	if (t2=='R') col2=(c2!=''?mkdiv("d_Corpo",c2):'')
	else if (t2=='E') col2=(c2!=''?c2:'')
	else col2=(t2&&c2)?mkTit(t2,0)+mkdiv("d_Corpo",c2):''
	return mk2cols(col1,col2,cor)
}

function fmt1()          
{ 	titolo=creaSez('S')
	corpo=creaSez('S')
	rilanci=creaSez('R')
	var x=top.FF.wrLogin("id.gif","pw.gif","savepw.gif",".")
	z=corpo.replace(/WRLOGIN/,x)
	return _fmt2Col(titolo,z,'R',rilanci?rilanci:'')
}

function fmt4s()   
{ 	titolo=creaSez('S')
	corpo=creaSez('S')
	riquadro=creaSez('S')
	return _fmt2Col(titolo,corpo,'R',riquadro)
}


function fmt3s2c()        //3 stringhe, 2 colonne  
{ 	titolo=creaSez('S')
	corpo=creaSez('S')
	appro=creaSez('S')
	var x=top.FF.wrLogin("id.gif","pw.gif","savepw.gif",".")
	z=corpo.replace(/WRLOGIN/,x)
	return _fmt2Col(titolo,z,'R',appro)
}


function fmt3SJ_pop() 
{ 	titolo=creaSez('S')
	g_Popup=creaSez('S')
	corpo=creaSez('J')
    return _fmt2Col(titolo,corpo)
}


function fmtAlb()  // formato albero, usato query per listare dati (menu.htm)
{	var p,d
	titolo=creaSez('S')
	p= (typeof(Prima)=='undefined')?creaSez('S'):Prima		
	d= (typeof(Dopo)=='undefined')?creaSez('S'):Dopo	
	rilanci=creaSez('R')
	count=creaSez('X')
	return _fmt2Col(titolo,p+count+zHP02,'R',d)
}


function fmt3s()   //singolo evento, file query
{	//btnNavi3()
	var ente=mkdiv("d_norm",creaSez('X'))
	var evento=mkdiv("d_Corpo",creaSez('X'))
	var edizioni=mkdiv("d_norm",creaSez('X'))
	return _fmt2Col("L\'Evento",evento,'E',mkTit("Il Provider",1)+ente+mkTit("Dove e Quando",1)+edizioni)
}
/*
function btnNavi3()
{	$("MENU2").style.display="block"
	var b=[[1,'','indice("ind")']
	,[2,'','indice()']
	,[3,'','indice("ava")']
	,[4,'','stampaScheda()']]
	Bottoniera(1,"MENU2","Navigaz2",["bottone6",25,8,300,13],b,-1)

}
*/
function btnStText()
{
	top.$("ACCESSIBILE").style.display="block"
	var b=[[5,'+','stDimTxt("+")'],[5,'-','stDimTxt("-")']]
	Bottoniera(1,"ACCESSIBILE","Navigaz3",["bottone6",25,8,300,13],b,-1)
}

function fmtSSX()  //lista degli eventi, file query
{ 	titolo=creaSez('S')
	testo=creaSez('S')
	tab=creaSez('X','','','')
	return _fmt2Col(titolo,testo+(tab!=''?tab:'Nessun evento trovato'))
}

function fmt6()  //contenteditable
{	z=mk1col(3,mkt(50,creaSez('S'),creaSez('S')))
	return z;
}

function fmtCtat()  //servizio contatti
{ 	titolo=creaSez('S')
	nomecogn=creaSez('S')
	email=creaSez('S')
	prof=creaSez('S')
	tipo=creaSez('S')
	tab=creaSez('X')
	corpo=creaSez('S')+CreaTabEmail(tipo)
	return mkTit(titolo,1)+corpo
}


function fmt8()
{	utente=creaSez('S')
	argo=creaSez('S')
	up2="<br><br><a onclick='ldr0(\"page=forum&id=0001\")'><img style='cursor:pointer;' border=0 src='img/up2.gif'></a>"
	up1="<a onclick='ldr0(\"page2=forum&id="+utente+"\")'><img style='cursor:pointer;' border=0 src='img/up1.gif'></a>"
	titolo=creaSez('S')
	corpo=creaSez('S');
	rilanci=creaSez('R');
	z01=mkTit(titolo,1)+up2+up1
	z04=mkdiv("d_Corpo","<b>Argomento: </b>"+argo+corpo);
	return mk2cols(cornice100(z01+z04),rilanci!=''?cornice100(rilanci):'')
}

function tot_ev()
{	x1=creaSez('X')
	x2=creaSez('X')
	var n1=x1?parseInt(x1[1][2]):0
	var n2=x2?parseInt(x2[1][2]):0
	return (n1||n2)?('Totale eventi incluso trasversali:<b> '+(n1+n2)+' eventi</b><br>Eventi specifici della professione:<b> '+n2+' eventi</b><p>'):''
}

function fmtRicerca()
{	stP('Prof',gtP('ID'))
	titolo=creaSez('S')
	corpo=creaSez('S')
	var z=creaSez('X','','')
//	top.$('C0').innerHTML="<br><div id='MENU1B'></div>"
//	BottoInfB()
	return _fmt2Col(titolo,corpo+z,'R','') 

}

function spazioC0(a)
{	return '<div style="margin-left:10px; margin-right:20px;">' +a+'</div>'
}

function fmtpagPer()
{	titolo=creaSez('S')
	dt2=creaSez('S')
//	var zs=''
	stP("MENU1",'ISCRITTI')
//	if (dt2!='') zs='<br><font color=darkgreen>Scadenza abbonamento: <b>'+dt2.substr(8,2)+'-'+dt2.substr(5,2)+'-'+dt2.substr(2,2)+'</b></font><br><br>'
	corpo=creaSez('S')
//	id_prof=creaSez('S');top.setProf(id_prof)
	appro=creaSez('S')
	return _fmt2Col(titolo,corpo,'R',appro)
}


function fmtQ1()       
{ 	var a=creaSez('S')
	var b=creaSez('S').replace(/§_§_§/,generaForm(gtP("PAGINA")))
	return mkTit(a,1)+mkdiv("d_Corpo",b)
}

function fmtProvider()
{	tit=creaSez('S')
	var corpo=creaSez('S')
	corpo+='<br><br>'+creaTabellina('X',
	[[5,5,40,50],['Edita','Elimina','Titolo','Argomento'],0],
	{	cID:2,c1:2,
		allin:'CCLL',
		link:['EDIT=EVENTI_DX&ID=','ELIMINA=EVENTI_DX&ID=','PAGE=EVENTI_DX&ID=',0],
		imm:['img/edit_cnt.gif','img/del_cnt.gif',0,0],brk:0,colonne:1
	})
	return mkTit(tit,1)+mkdiv("d_Corpo",corpo)
}

function fmtPr_evento()
{	tit=creaSez('S')
	var corpo=creaSez('S')
	corpo+='<br><br>'+creaTabellina('X',
	[[10,30,30,10,10,10],['Edita','Rif','Professione','n°&nbsp;crediti','Costo','n°&nbsp;participanti'],0],
	{	cID:2,c1:2,
		allin:'CCLCCC',
		link:['EDIT=EVENTI_DX&ID=',0,0,0,0,0],
		imm:['img/edit_cnt.gif',0,0,0,0,0],brk:0,colonne:1
	})
	return mkTit(tit,1)+mkdiv("d_Corpo",corpo)
}
////////////////// LE FUNZIONI

function CreaTabEmail(tipo)	
{	
	if (top.srv_contatti)
	{	var t=top.srv_contatti
		var id_edizione=t[2]
		var id_provider=t[3]
		var id_evento=t[4]		
		top.invio_in_corso="messaggio in corso di spedizione.... si prega di attendere.<br><br><small>N.B. Se la risposta del server non viene visualizzata entro una decina di secondi può significare che, per qualche problema intervenuto sulla rete, la connessione con il server non è più attiva. In questa sfortunata evenienza è necessario aprire una nuova sessione (chiudere e riaprire la finestra del browser) e ripetere l'invio.</small>"
		var fm=(tipo=="Email1")?"ECM01":"ECM02" 
		var s='top.$("C0").innerHTML=top.invio_in_corso;ldr0("INVIOMAIL=MAIL_PROV&MODELLO='+fm+'&PROVIDER='+id_provider+'&EVENTO='+id_evento+'&EDIZIONE='+id_edizione+'");'
		var invia="<a onclick='"+s+"'><img style='cursor:pointer;' src=form/invia.gif border=0 align=right></a>"
		var email_provider=t[14]
		var ente=t[7]!=""?t[7]:""
		var corso=t[5]!=""?"<b>"+t[5]+"</b>":""
		var comune=t[10]!=""?"a "+t[10]:""; comune1=t[10]!=""?t[10]:"&nbsp;"
		var data=t[15]!=""?" il "+t[15]:""; data1=t[15]!=""?t[15]:"&nbsp;"
		
		var testo="<div><table class=D_CTAT cellspacing=2 cellpadding=2 border=1>"
		if (tipo=="Email1")
		{	testo+="<tr><td><br><blockquote>Spett. "+ente+".</b><p>"
			+"In riferimento al vostro corso: "+corso+" che si terr&agrave; "+comune+data
			+" desidero ricevere il programma aggiornato e le modalità di iscrizione."
			+" Vi prego di indirizzare direttamente la risposta all'indirizzo email: "+def_Hre(email,"mailto:"+email)
			+"<br><br>Distinti saluti<br>"+nomecogn+"</blockquote>"			
		}		
		else 
		{	testo+="<tr><td colspan=2>Spett. "+ente +"<br><b>Oggetto: Richiesta di iscrizione individuale</b><br>"+t_DR
			+"<tr><td width=30%><b>Evento:</b></td><td width=70%>"+corso+t_DR
			+tRD+"<b>Luogo di svolgimento: </b>"+t_DD+comune1+t_DR
			+tRD+"<b>Data:</b>"+t_DD+data1+t_DR
			+"<td colspan=2><b>Dati relativi al richiedente:</b>"+t_DR
			+tRD+"<b>Utente:</b>"+t_DD+nomecogn+t_DR
			+tRD+"<b>Professione:</b>"+t_DD+prof+t_DR
			+tRD+"<b>E-mail per la risposta:</b>"+t_DD+def_Hre(email,"mailto:"+email)+t_DR
			+"<tr><td colspan=2><br>NOTA BENE: La presente richiesta è stata generata "
			+"sulla base di informazioni da Voi pubblicate così come recepite nel database EcmCampus ("
			+def_Hre("www.ecmcampus.it","http://www.ecmcampus.it")
			+").<br>Qualora <b>o per qualsiasi motivo le informazioni non fossero più attuali</b>, "
			+"(es: posti a disposizione esauriti, oppure evento cancellato), siete pregati di voler informare anche a: "
			+def_Hre("info@ecmcampus.it","mailto:info@ecmcampus.it")
		}
		testo+=t_DRT+"</div>"
	
		var tabDa=cornice(8,"Aqua","<span class=D_CTAT>"+email+"</span>","<img src=g_tab/8/da.gif border=0>")
		var tabA=cornice(9,"Aqua","<span class=D_CTAT>"+email_provider+"</span>","<img src=g_tab/9/a.gif border=0>")
		var tabObj=cornice(10,"Aqua","<span class=D_CTAT>Richiesta di informazioni su:"+corso+"</span>","<img src=g_tab/10/oggetto.gif border=0>")
		var tabEmail="<table>"+riga(tabDa)+riga(tabA)+riga(tabObj)+riga(testo)+"</table>"		
		var fine=email?riga(invia):"<font color=red>ATTENZIONE ! POICHE'&nbsp;IL SERVIZIO CONTATTI CONSENTE L'INVIO AUTOMATICO DI MAIL AI PROVIDER, NON PUO', PER OVVIE RAGIONI, ESSERE UTILIZZATO DA UTENTI ANONIMI - DEVI PERTANTO COMPLETARE I TUOI DATI NELLA PAGINA DI REGISTRAZIONE PRIMA DI POTER UTILIZZARE IL SERVIZIO</font>"
		return "<table align=center width=100%>"+riga(cornice(7,"Aqua",tabEmail))+fine+"</table><br><br>"
	}
	else history.back()
}

//////////////////////////////////////////
function TForum(tab,titolo,st,tipo)  // FORUM
{
	var sty=tab.sty
	var colw=["100%"]
	var col=1,cols=1

	if (sty=="Forum"){colw=["70%","25%","5%"]; col=2;cols=3}
	
	var totgen=0,csum= [],rsum=[],s="",s_old=""
	var sz=' bgcolor=',BkCa='#F5FEFE',BkCb='#FFFFF6',BkC1='#F6F2B6',BkC2='#E5F6D8'
	var szBkC='',szBkCa=sz+BkCa,szBkCb=sz+BkCb,szBkC1=sz+BkC1,szBkC2=sz+BkC2
	var n_c=tab[0].length
	var n_r=tab.length
	
	var tit='titF2('
	var zst=st?riga(st):''
	var stab='<table '+wdt(280)+ d_Char+' bordercolor=#D1DCE0 border=8>'
	var z='<table '+wdt(280)+d_CharR+' bordercolor=#D1DCE0 border=3>'
	for (var i=0;i<n_r;i++)
	{	z+='<tr valign=top>'
		if (s_old!=tab[i][col])
		{	s_old=tab[i][col]; 
			szBkC=(szBkC==szBkCa)?szBkCb:szBkCa
		}	
		for (var j=2;j<tab[i].length;j++) 
		{	s=(tab[i][j]!='')?tab[i][j]:'&nbsp;'
			var cw=colw[j-2]?(' width='+colw[j-2]+" "):" "
			if (i==0)
			{	s=s.replace(RegExp(' ',"g"),'&nbsp;')  
				tit+='"'+s+'",1';
				if (j<(tab[i].length-1)) tit+=','				
			}
			else z+='<td '+((j==2)?'align=left ':'')+cw+szBkC+'>'+s+'</td>'
			}
			if (i==0)
			{	tit+=')'
				z+=eval(tit)
			}
			z+='</tr>'
		}
	return stab +  zst + riga(z+'</table>') + '</table>'				
}

/////////////////////////////////////////

var tab_st1=' style="vertical-align:top; color:#000000;font-family:MS Sans Serif; font-size:'
function wdt(w){return "width="+(gtTopW()-(w?w:240))+" "}
function riga(t,cols,w){return '<tr><td>'+t+'</td></tr>'}
function gma(d,add){return d.getDate()+"/"+(d.getMonth()+1)+"/"+(d.getFullYear()+(add?add:0))}
function amg(d)
{	zd=d.getFullYear()+"/"
	if ((d.getMonth()+1)<=9) zd+="0"+(d.getMonth()+1)+"/"
	else zd+=(d.getMonth()+1)+"/"
	if (d.getDate()<=9) zd+="0"+d.getDate()
	else zd+=d.getDate()
	return zd
}
function mga(d)
{	zd=''
	if ((d.getMonth()+1)<=9) zd+="0"+(d.getMonth()+1)+"/"
	else zd+=(d.getMonth()+1)+"/"
	if (d.getDate()<=9) zd+="0"+d.getDate()
	else zd+=d.getDate()
	return zd+"/"+d.getFullYear()
}

function rinnovo(sc)
{	d=amg(new Date())  
	sca=sc.substr(0,4)
	scm=sc.substr(5,2)
	da=d.substr(0,4)
	dm=d.substr(5,2)
	return ((da>sca)||(da==sca)&&((parseInt(dm)+1)>=parseInt(scm)))
}
function chTit0(txt)
{  	var m = gtTopW()*0.014
	return '<span style="padding:4px;color:white;font-size:'+(m>9?m:9)+';" id="MODTIT"><b>'+txt+'</b></span>'
}

function chTit1(txt)
{  	var w=gtTopW()*.82
	var m = w/txt.length
	if(m<w/50) m=w/50
	if(m>w/40) m=w/40
	return '<font style="font-family:Verdana,Arial;padding:0px;color:#1F335D;font-size:'+(m>10?m:10)+';"><b>'+txt+'</b></font>'
}

function mkTitImm(txt1,txt2)
{	var h1=gtTopW()/55;if(h1<12)h1=12
	return "<table style='line-spacing:-4px;vertical-align:middle;' width=100% "+cel0
			+"><tr bgcolor=#1A809A height="+h1+"><td style='padding-left:5;' width=100%>"+chTit0(txt1)
			+"</td></tr><tr height="+h1+">"
			+"<td style='padding-left:5;' bgcolor=#FDF5D2>"+chTit1(txt2)+"</td>"
			+"</tr></table>"
}

function strF2(tit,w)
{   var z='<table width='+w+cel0 + tab_st1 +10*top.g_ImX+';" border=0><tr>'	
	z+='<td>'+mkImg("indice/*/sfH2a.gif")+'</td><td background=' + bkImg("indice/*/sfH2b.gif") + '>'+tit+'</td>'
	 + '<td>'+mkImg("indice/*/sfH2c.gif")+'</td><td width=100% background='+bkImg("indice/*/sfH2d.gif")+'></td></tr></table>'
	return z
}	


function titF2()  //titoli campi
{	var ar=titF2.arguments
   	var len_ar=ar.length,wa=0
	for (var i=1;i<len_ar;i+=2) wa+=ar[i]	
   	var nTit=len_ar/2,st='<tr>'
	for (var i=0;i<nTit;i++) st+='<td border=0 colspan='+ar[i*2+1]+'>'+ strF2(ar[i*2],"100%")+'</td>'
	return st+'</tr>'		
}

function calenda(sty)
{	if (sty=="Utenti_login")
	{	var og=mga(new Date());
		var dt=(gtP('DT')=='#')?og:gtP('DT')
		var sdata='<i>Scegli la data:</i> [mm/gg/aaaa] '
		sdata+='<INPUT name=data id=data value='+dt+'> <INPUT onclick="DtPk(\'data\');" type=button value=SELEZIONA> '
		+'<input type="submit" name="ok" onClick="var zd=gtOb(\'data\').value;stP(\'DT\',zd);if(zd==\'#\') alert(\'SELEZIONA LA DATA\');'
		+'else{var m=zd.substr(0,2),g=zd.substr(3,2),a=zd.substr(6,4);ldr0(\'TUTOR_UT_LOGIN=UTENTI&MESE=\'+m+\'&giorno=\'+g+\'&anno=\'+a);return false;}" value="CERCA">'
		return sdata+'<br><br>'
	}
	else return ''
}

////////////////LE STATISTICHE

function mkThead(s,t)
{ 	top.g_old=0
	top.rSum=0
	var tit=[];for(i=2;i<t.length;i++)tit[i-2]=t[i]
	if (s=="Indice")return tHead([50,30,10,10],['Corso','Professione','Crediti','Data Avvio'],0) 
	else if (s=="Iscritti") return tHead([20,60,20],['Gruppo','Denominazione','Numero&nbsp;utenti'],0)
	else if (s=="Connessi_g" ) return tHead([20,60,20],['Gruppo','Denominazione','Numero&nbsp;connessi'],0)
	else if (s=="Gruppo") return tHead([10,20,15,15,20,10,10],['Gruppo','Login','Password','Email','Nome','Cognome','Tel'],0)
	else if (s=="Connessi_u" ) return tHead([10,30,30,30],['ID','Nome','Cognome','N°&nbsp;conessi'],0)
	else if (s=="Pagevisit") return tHead([40,30,30],['Data&nbsp;e&nbsp;ora','Sezione','Pagina'],0)
	else if (s=="Page_entrati") return tHead([30,30,10,30],['Tabella','Videata','Numero&nbsp;Entrati','Data&nbsp;ultima'],0)
	else if (s=="Eventi_cercati") return tHead([30,30,10,30],['Ricerca','Parola','Numero&nbsp;Entrati','Data&nbsp;ultima'],0)
	else if (s=="Cerca_utente")return tHead([20,15,20,15,20,10],['Info','Nome&nbsp;e&nbsp;cognome','Gruppo','Login&nbsp;e&nbsp;Password','Email','Professione'],0)
	else if (s=="Cerca_IP")return tHead([15,15,20,35,10,5],['ID','Nome&nbsp;e&nbsp;cognome','Email','UserAgent','LoginPwd','Fla'],0)
	else if (s=="Connessi_utente") return tHead([15,70,10,5],['IP','USERAGENT','DATAORA','  FLASH'],0) 
	else if (s=="Iscriz_fad") return tHead([70,5,25],['Corso','Numero iscritti','Data&nbsp;ultima'],0)
	else if (s=="Iscriz_fad_corso")return tHead([60,10,10,20,10],['Interesse','Cognome','Nome','Email','Data'],0)
	else if (s=="Iscriz_fad_costo")return tHead([60,5,5,5,5,6,6,8],['Interesse','10&euro;','2&euro;','5&euro;','gratuito','Nessun&nbsp;limite','Non&nbsp;definito','Totale'],0)  
	else if (s=="Utenti_login")return tHead([15,20,10,20,35],'Info',['Utente','gruppo','n&nbsp;pagine&nbsp;visitate','Data&nbsp;e&nbsp;ora'],0)
	else if (s=="Dom_tutor") return tHead([20,20,60],['Data','Utente','Titolo'],0) 
	else if (s=="ev_provider") return tHead([5,60,10,10,5],['Evento','Corso','Provincia','Data','Crediti'],0) 
}


function mkTbody(n_R,s,r0,a)
{	var cID=0,c1=2,allin='LLLLLLLLLL',h='',fun='' 
	var ah,link,lkex,imm,skclr,brk,pct
	var bdel=''
	var arRiga=[] 
	var lkmod=''
// x tutti
	skclr=["#ffccff","#ffffff"]
	brk=0
	link=imm=[0,0,0,0,0,0,0,0,0,0]
	for (var i=0;i<r0.length;i++)arRiga[i]=r0[i]
	if (s=="Indice") 
	{	c1=4;cID=3;allin='LLCC';h=h2='page=spec&id=',brk=[2,2]
		arRiga[4]='<sub><img src=imgX/icona.gif border=0></sub> '+arRiga[4]
		link=[h2,0,0,0]
		imm=[0,0,0,0]
	}
	else if (s=="Connessi_g")
	{	cID=2
		var h='TUTOR_CONN_U=UTENTI&GRUPPO='
		link=[h,0,0]
	}
	else if (s=="Connessi_u" ) 
	{	allin='LLLR'
	}
	else if (s=="Eventi_cercati") 
	{	brk=2
	}
	else if (s=="Cerca_utente"||s=="Cerca_IP") 
	{	cID=2
		arRiga[2]='<li>'+def_Hr('Le attività','TUTOR_PAGEVISIT=UTENTI&TESTO='+arRiga[cID])+'<li>'+def_Hr('Le connessioni','TUTOR_LST_CONN=UTENTI&TESTO='+arRiga[cID])
	}
	else if (s=="Connessi_utente")
	{	cID=2
	}
	else if (s=="Iscriz_fad") 
	{	var h='TUTOR_ISC_FAD_CORSO=UTENTI&LINKTO='		
		cID=2;c1=3
		link=[h,0,0]
		imm=[0,0,0]
	}
	else if (s=="Iscriz_fad_corso") 
	{	brk=2;c1=3
	}
	else if (s=="Iscriz_fad_costo") 
	{	tot=0
		for(var i=3;i<9;i++)tot+=arRiga[i]?parseInt(arRiga[i]):0
		arRiga[9]=tot.toString()
	}	
	else if (s=="Utenti_login")
	{	cID=2
		arRiga[2]=def_Hr('Le attività','TUTOR_PAGEVISIT=UTENTI&TESTO='+arRiga[cID])
	}
	else if (s=="Dom_tutor")  
	{	c1=3;cID=2
		arRiga[3]=arRiga[3]?xDate(arRiga[3]):''
		var h='Edit=Tutor&ID='
		link=[0,h,h]
	}
	else if (s=="ev_provider")
	{	var h='PAGE=EVENTI&ID='
		cID=2
		link=[h,0,0,0,0]
	}
	//else if (s=="Page_entrati" || s=="Gruppo" || s=="Iscritti"||s=="Pagevisit" )
	a[n_R]=riga[cID]
	return tBody(n_R,arRiga,c1,cID,allin,link,imm,skclr,brk,pct,fun,ah,lkmod) 
}



function tBody(n_R,arRiga,c1,cID,allin,lk,imm,skclr,brk,doPCT,fun,ah,lkmod,trasform) //fa una riga del corpo
{	var s,id=arRiga[cID]
	if (trasform) for (var i=0;i<trasform.length;i++)arRiga[trasform[1]]=arRiga[trasform[0]](arRiga[trasform[1]])
	var n=top.rSum?top.rSum.length:0
	rsum=0
	var sz=' bgcolor=',szBkC='',szBkCa=sz+'#F7FEFE',szBkCb=sz+'#FEFEF2',szBkC1=sz+'#F6F4D4',szBkC2=sz+'#E5F6D8'	
	var sfondoRiga=(id==gtP('CurP'))?'#FBFAB6':'white'
	var	z='<tr id=_XTAB'+n_R+' valign=middle bgcolor='+sfondoRiga+'>'
	var b=""
	if (brk)
	{	var BRK=(typeof brk=="string")?[brk,brk]:brk //2007
		if( top.g_old!=arRiga[BRK[0]])
		{	b='<tr id=_XTAB'+n_R+'><td style="background-color:#eeefe6;" colspan='+lk.length+'><b>' //+fgImg("indice/*/icona1.gif")+'  '
			if (lkmod) b+=mkHr(12,'<img src=img/freccia.gif border=0> '+arRiga[BRK[1]],lkmod+id,0)
			else b+=arRiga[BRK[1]]
			b+='</b></td></tr>'
			top.g_old=arRiga[BRK[0]]
		}
	}
	var len=((arRiga.length-c1)<lk.length)?(arRiga.length-c1):lk.length
	for (var j=0;j<len;j++) 
	{	var t=arRiga[j+c1]
		t=t?Trim(t):''
		var IM=imm[j]
		if (!t ||!t.length)s='&nbsp;'
		else if(lk[j]) 
		{	var ext=parseInt(lk[j],10)
		
			if(typeof IM == 'object')
			{	if (IM.length>2)IM =eval(IM[0])?IM[1]:IM[2]
				else IM =eval(IM[0])
			}
			var LK=0;if(lk[j]!="#")LK=lk[j]
			var HR=t;if(IM) HR=mkImg(IM) 
		  	if (fun)
			{	if (typeof fun == 'object') fun=InserisciValori(fun,arRiga)
				else fun=fun.replace('RECORDID',id) 
			}
			if(ext)s=def_Hre(HR,arRiga[LK])
			else if (ah && ah.length>0) s=mkHr(12,HR,LK+arRiga[ah[j]],(fun?fun:0))
			else s=mkHr(12,HR,(LK?LK+id:0),(fun?fun:0))
		}
		else if(IM) s=fgImg(IM)
		else
		{	s=t
			if(doPCT && j>0) rsum+=parseInt(s,10)
		}
	//focus	
		if (!j)
		{	if(id==gtP('CurP'))s="<span color=red id='fokus'><img src=img/frecciaR.gif border=0>&nbsp;</span> "+s
			
		}
		var a=allin.substr(j,1)
		var k='<td align='+((a=='L')?'left':(a=='R')?'right':'center')+' >'+s+'</td>'
		z+=k
	}
	if (doPCT)
	{	z+='<td '+szBkC2+'><b>'+rsum+'</b></td><td id="PCT'+n+'" '+szBkC+'>&nbsp;</td>'
	}  
	top.rSum[n]=rsum
	return	b+z+'</tr>'	
}

function InserisciValori(aF,arRiga)
{  var z=aF[0]+'("'+arRiga[aF[1]]	
   for (var i=2;i<aF.length;i++) z+='","'+arRiga[aF[i]]
   return z+'")'
}

function tHead(w,t,doPCT) 
{ 	top.doPct=doPCT
	top.rSum=top.rSum||[]
	top.rSum.length=0
	var nC=t.length+doPCT
	var W=[]
	var lastW=10,totW=0;
	for (var i=0;i<nC;i++)
	{	if(i<w.length)lastW=w[i]
		W[i]=lastW
		totW+=lastW
	}
	for (var i=0;i<nC;i++)
	{  W[i]=W[i]*99/totW
	}

	stP("nCOL",nC)
	var z='<tr>'
	for (var i=0;i<nC-doPCT;i++)
	{	var csp=1
		var txt=t[i]
		while (txt==-9) {txt=a[i+csp];csp++}	
		if(txt.indexOf("<")<0)txt=txt.replace(RegExp(' ',"g"),'&nbsp;')  
		z+='<th width='+W[i]+'%  colspan='+csp+'>'+txt+'</th>'
	}
	if (doPCT)z+='<th>Totale</th><th>PCT</th>'
	return z +'</tr>'
}

function XTab(pOb,tit,st)
{	
	var ar=[]
	var tab=pOb.dati
	var s=pOb.sty
	var atip=['EVENTO','ENTE','DOVEQ','MOD_ISCR','VET','PROVIDERS','EV_PROF']
	for (var i=0;i<atip.length;i++) if(s==atip[i]) return XTab1(tab,tit,st,s)
	if (s=="Forum") return TForum(tab,titolo,st,tipo)
	else if (s=="EXEC"||s=="PROF") return tab
	var n_r=tab.length
	var n_c=tab[0].length
	var r1='',j=0

	var z0='<table cols='+n_c+' '+ xTab1+'>'
	var z1=(tit && tit.length>0)?riga(tit):''
	var z2=(st && st.length>0)?riga(st):''
	var z3='<table '+xTab0+'>'+mkThead(s,tab[0])
	for (var i=1;i<n_r;i++)
	{	r1+=mkTbody(i,s,tab[i],ar)
		if (++j==20){z3+=r1;r1="";j=0}
	}
	z3+=r1
	SetAr("Elart",ar)
	var zf=(s=="Percepita")?mkTFoot(tab,1,0):''
	return z0+z1+z2 + riga(z3+'</table>') + '</table>'
}


function XTab1(Tab,titolo,st,s)  //GLI EVENTI, EDIZIONI E PROVIDER
{	var tipo_albero="",arId=[]
	var z="",oldId="",id="",str="",oldStr="",st="",sr=""
    var tit=["","","","Tipo","Professione","TITOLO","Località","Data","Crediti ECM","","",""]
	var tit_PROF=["","","","TITOLO","Località","Data","Crediti ECM","","","","",""]
	var tit_VETRINA=["","","","Tipo","Professione","TITOLO","Località","Data","Commento","","",""]
	
	var tit_EVENTO=["","","","TITOLO","Argomenti trattati","Tipologia","Materiale fornito","Discipline di riferimento","Professioni","Obiettivi","<ul><li>","<ul><li>","Obiettivi a livello nazionale","Durata (ore)","Numero partecipanti","Crediti ECM","Costo","File","Allegati","","",""]
	var tit_ENTE=["","","","Ente","Denominazione","","","","","","",""]
	var tit_DOVEQ=["","","","Luogo","Città","Provincia","Data","Numero posti disponibili","","","",""]
	var tit_MOD_ISCR=["","","","","","TITOLO","Logo","Ente organizzatore","Indirizzo","Cap","Comune","Provincia","Telefono","Fax","Email","Data","Totale posti","nposti","Termine di iscrizione","Modilità di iscrizione","Sito web","S.Cognome","Nome","Indirizzo","Email","Tel","Cellulare","Fax","","",""]
	var tit_PROVIDERS=["","","","Denominazione","Tipo","","","","","","",""]

	if (s=='EVENTO') // questo non deve memorizzare l'array delle id
	{	var file=""
		tit=tit_EVENTO
		for (var i=1; i<Tab.length; i++)
		{	var r=Tab[i]
			id=r[2]
			for (var j=3; j<r.length; j++)
			{	st=tit[j]
				sr=r[j]
				if (st=="Costo" && sr=="" )continue
				if (st=="TITOLO") z+="<b>"+sr+"</b><br>"
				else if (st=="Professioni") z+=(sr!=r[j-1])?("<br><b>"+st+":</b>&nbsp;"+sr):""
				else if (st=="Obiettivi" || st=="<ul><li>")
					 {  if (st=="Obiettivi") z+="<br><b>"+st+":</b>"
						else z+=(sr!="")?st+sr+"</li></ul>":""
					 }
				else if (st=="Crediti ECM" && sr=="0") z+="<br><b>"+st+":</b>&nbsp;In corso di accrediamento"
				else if (st=="File") file=sr
				else if (st=="Allegati" && sr!="" && file!="")
				{	z+="<br><br><b>Scarica il programma dell'evento:</b>&nbsp;"
					if (file=="xxxxxxxxxx") z+=def_Hr("<img src=img/download.gif border=0>","Page=interna&id=24")
					else z+="<a href=allegati/input/"+file+"."+sr+" target=_blank><img src=img/download.gif border=0></a>"
				}
				else if (sr!="") z+="<br><b>"+st+":</b>&nbsp;"+sr
			}
		}
	}
	else if (s=='ENTE') // questo non deve memorizzare l'array delle id
	{	tit=tit_ENTE
		for (var i=1; i<Tab.length; i++)
		{	var r=Tab[i]
			for (var j=3; j<r.length; j++)
			{	st=tit[j]
				sr=r[j]
				z+="<b>"+st+":</b>"
				z+=(st=="Ente")?"&nbsp;":"<br>"
				z+=sr+"<br>"
			}
		}
	}
	else if (s=='DOVEQ') // questo non deve memorizzare l'array delle id
	{	tit=tit_DOVEQ
		zisc=''
		for (var i=1; i<Tab.length; i++)
		{	var r=Tab[i]
			id=r[2]
			str=r[3]
			if (id=="xxxxxxxxxx") zisc=def_Hr("Modalità di iscrizione","Page=interna&id=24") 
			else zisc=def_Hr("Modalità di iscrizione","page=ev_edizioni&id="+id)
			if (str==oldStr)z+="<br><b>"+tit[6]+":</b>&nbsp;"+r[6]+"<br>"+zisc+"<BR>"
			else
			{	oldStr=str
				for (var j=3; j<r.length; j++)
				{	st=tit[j]
					sr=r[j]
					if (st=="Numero posti disponibili" && sr=="" )continue
					z+="<b>"+st+":</b>&nbsp;"+sr+"<br>"
					if (st=="Data") z+=zisc+"<BR>"
				}
			}
		}
	}
	else if (s=='MOD_ISCR') // questo non deve memorizzare l'array delle id
	{	var iscriz=""
		tit=tit_MOD_ISCR
		var st_iscriz=""
		if(top.logged) st_iscriz="<br>Per l'iscrizione puoi contattare direttamente il provider oppure utilizzare il nostro "+def_Hr("<sup><img src=imgX/servizio.gif border=0></sup>","EMAIL1=UTENTI")
		for (var i=1; i<Tab.length; i++)
		{	var r=Tab[i]
			top.srv_contatti=r
			id=r[2]
			for (var j=5; j<r.length; j++)
			{	st=tit[j]
				sr=r[j]
				if (st=="TITOLO")z+="<b>"+sr+"</b><br>"
				else if (st=="nposti") z+=(sr!="")?("<br>Posti ancora disponibili con iscrizione via Internet: "+sr):""
				else if (st=="Modilità di iscrizione")
					 {	z+="<br><br><b>"+st+":</b>&nbsp;"
						if (sr!="") z+=def_Hr("<img src=imgx/iscr.jpg border=0>","")	
						else z+=st_iscriz
					 }	
				else if (st=="Sito web" && sr!="") z+="<br>Il sito web del provider: "+def_Hre(sr,sr)
				else if (st=="S.Cognome" && sr!="Non presente" && sr!="") z+="<br><br><b>* I Dati della segretaria organizzativa dell'evento:<br>Cognome:</b> "+sr
				else if (st=="Cap" && sr!="") z+=" - "+sr+" "
				else if (st=="Comune" && sr!="")z+=" - "+sr+" "
				else if (st=="Provincia" && sr!="") z+=" ("+sr+")"
				else if (st=="Email" && sr!="" && sr!="Non presente") z+="<br><b>"+st+":</b>&nbsp;"+def_Hre(sr,"mailto:"+sr)
				else if (sr!="" && sr!="Non presente")z+="<br><b>"+st+":</b>&nbsp;"+sr
			}			
		}
	}
	else if (s=='VET')
	{	tipo_albero="T"
		tit=tit_VETRINA
		for (var i=1; i<Tab.length; i++)
		{	var r=Tab[i]
			id=r[2]
			if (id==oldId)
				z+="<br>"+tit[6]+":<b>"+r[6]+"</b>&nbsp;&nbsp;"+tit[7]+":<b>"+r[7]+"</b>&nbsp;&nbsp;"
			else
			{	oldId=id
				arId[arId.length]=id
				if (i>1)z+="<br><br>"
				for (var j=3; j<r.length; j++)
				{	st=tit[j]
					sr=r[j]
					if (st=="Commento" && sr=="0" )continue
					if (st=="TITOLO"){z+=def_Hr(sr,"Page=eventi&id="+id)+"<BR>"}
					else z+=st+":<b>"+sr+"</b><BR>"
				}
			}
		}
	}
	else if (s=='PROVIDERS')
	{	tipo_albero="T"
		tit=tit_PROVIDERS
		for (var i=1; i<Tab.length; i++)
		{	var r=Tab[i]
			id=r[2]
			arId[arId.length]=id
			if (i>1) z+="<br>"
			for (var j=3; j<r.length; j++)
			{	sr=r[j]
				if (tit[j]=="Denominazione")z+=def_Hr(sr,"LST_EV_PROV=eventi&ID_PROVIDER="+id)+" - "
				else z+=sr+"<br>"
			}	
		}
	}
	else //if ( s=='EV_PROF')
	{	tipo_albero="F"
		tit=tit_PROF
		for (var i=1; i<Tab.length; i++)
		{	var r=Tab[i]
			id=r[2]
			if (id==oldId)
			{   z+="<br>"+tit[4]+":<b>"+r[4]+"</b>&nbsp;&nbsp;"+tit[5]+":<b>"+r[5]+"</b>&nbsp;&nbsp;"
				if(r[6]!="0") z+=tit[6]+":<b>"+r[6]+"</b>"
			}
			else
			{	oldId=id
				arId[arId.length]=id
				if (i>1) z+="<br><br><br>"
				for (var j=3; j<r.length; j++)
				{	st=tit[j]
					sr=r[j]
					if (st=="Crediti ECM" && sr=="0" )continue
					if (st=="TITOLO"){z+=def_Hr(sr,"Page=eventi&id="+id)+"<BR>"}
					else z+=st+":<b>"+sr+"</b>&nbsp;&nbsp;"
				}
			}
		}
	}
	if(	tipo_albero!="") 
	{   stP("Albero",tipo_albero);
		SetAr("Elart",arId)
	}
	if(	tipo_albero=="T") stP("FrmVals","#")
	return z
}

function mkTFoot(tab,a,b) 
{ 	doPercent=a
	doPCT=b
	var nc_flag=(gtP("nCOL")>tab[0].length && gtP("nCOL")!='#')
	var n_c=nc_flag?gtP("nCOL"):tab[0].length
	var n_r=tab.length
	var totgen=0,csum= [],rsum=[]
	for (var j=2;j<n_c;j++)csum[j]=0
	for (var i=0;i<n_r;i++)
	{	rsum[i]= 0;  
		for (var j=2;j<n_c;j++) 
		{	if (j<tab[i].length) s=(tab[i][j]!='')?tab[i][j]:'&nbsp;'			
			else s='&nbsp;'	
			if (j>2 && i>0 && s!='&nbsp;'){rsum[i]+=parseInt(s);csum[j]+=parseInt(s)}
		}
		if (i>0 && doPercent>0)totgen+=rsum[i]
		else if (i>0 && doPCT>0)totgen+=rsum[i]
	}
	var z='',sz=' bgcolor=#E5F6D8', sz1=' bgcolor=#F6F2B6'
	if (doPercent>0)  
	{	//Totale della colonna
		z+='<tr><td '+sz1+'><b>Totale:</b></td>'
		for (var j=3;j<n_c;j++) z+='<td '+sz1+'><b>'+csum[j]+'</b></td>'
		z+='<td '+sz1+'><b>'+totgen+'</b></td>'
		//Percentuale della colonna
		z+='</tr><tr><td '+sz+'>PCT:</td>'
		for (var j=3;j<n_c;j++) z+='<td '+sz+'>'+(csum[j]*100/totgen).toFixed(2)+'%</td>'
		z+='<td>&nbsp;</td><td '+sz+'>100%</td></tr>'
	}
	else if (doPCT>0) 
	{	//Totale della colonna
		z+='<tr><td '+sz1+'><b>Totale:</b></td>'
		for (var j=3;j<n_c;j++) z+='<td '+sz1+'><b>'+csum[j]+'</b></td>'
		z+='<td '+sz+'><b>100%</b></td>'
	}
	stP("nCOL",'#')
	if (top.doPct>0) setTimeout ("calcolaPCT("+totgen+")",1000)
	return z
}
	
function calcolaPCT(t)
{	for (var i=0;i<top.rSum.length;i++)	
	{	var e=$('PCT'+i)
		if(e) e.innerHTML=""+(top.rSum[i]*100/t).toFixed(2)+"%"
	}
}