function EstraePrimoRecord(stringa,separatore)
{

campo=""
p=stringa.indexOf(separatore,0)
if (p>=0)
	{
	campo=stringa.substring(0,p)
	}
	else
	{
	campo=""
	}
return campo
}



function EstraeRimanenzaRecords(stringa,separatore)
{

campo=""
p=stringa.indexOf(separatore,0)
if (p>=0)
	{
	campo=stringa.substring(p+separatore.length,stringa.length)
	}
	else
	{
	campo=stringa
	}
return campo
}



function passaparola_controllo_elenco()
{

crlf=stringa_da_hex('0D0A')
standard=";"
blocco=document.conoscenti.elenco.value+crlf
blocco=stringa_sostituisci(blocco,',\t',standard)
errore_blocco=false 
linee=''
//--------- Loop sui record

while(blocco.length>0)
{
	record=EstraePrimoRecord(blocco,crlf)
	blocco=EstraeRimanenzaRecords(blocco,crlf)

	//--------- Estrazione nome ed email
	nome=EstraePrimoRecord(record,standard)
	record=EstraeRimanenzaRecords(record,standard)
	email=EstraePrimoRecord(record+standard,standard)
	nome=trim(nome.toUpperCase(),' ')
	email=trim(email.toLowerCase(),' ')
	testo=""

		//--------- Controlli
		if ((nome+email)!='')
		{
		if (nome=='') {errore_blocco=true ; testo = testo +  " * MANCA IL NOME * "}
 
		if (email==''){errore_blocco=true ; testo = testo +  " * MANCA L'EMAIL * "}
		else 
		{if (! ControlloEmail(email)) {errore_blocco=true ; testo = testo +  " * EMAIL ERRATA * "}}

		linee=linee+nome+' '+standard+' '+email
		if (testo!==''){linee = linee+' '+standard+' '+testo}
		linee=linee+crlf
		}


}

document.conoscenti.elenco.value=linee
}



function passaparola_entrata()
{
DatiCookie=LeggiCookie("INGEGNERI ROMANI SETTEMBRE 2002")
document.conoscenti.Cognome.value=EstraeCampo(DatiCookie,1)
document.conoscenti.Nome.value=EstraeCampo(DatiCookie,2)
document.conoscenti.Email.value=EstraeCampo(DatiCookie,3)
document.conoscenti.Telefoni.value=EstraeCampo(DatiCookie,4)
passaparola_controllo_elenco()
}


function passaparola_uscita()
{
document.conoscenti.Cognome.value=trim(document.conoscenti.Cognome.value.toUpperCase(),' ')
document.conoscenti.Nome.value=trim(document.conoscenti.Nome.value.toUpperCase(),' ')
document.conoscenti.Email.value=trim(document.conoscenti.Email.value.toLowerCase(),' ')
document.conoscenti.Telefoni.value=trim(document.conoscenti.Telefoni.value,' ')
DatiCookie=document.conoscenti.Cognome.value+"\t"+document.conoscenti.Nome.value+"\t"+document.conoscenti.Email.value+"\t"+document.conoscenti.Telefoni.value+"\t"
RegistraCookie("INGEGNERI ROMANI SETTEMBRE 2002", DatiCookie)

}

function passaparola_trasmetti()
{
document.conoscenti.method="POST"
passaparola_uscita()
passaparola_controllo_elenco()
errore=false
testo=""
if (! ControlloEsistenzaStringa(document.conoscenti.Email.value)){errore=true;testo=testo+"- Manca l'Email del Mittente\r"}
else {if (! ControlloEmail(document.conoscenti.Email.value)) {errore=true;testo=testo+"- Email del Mittente errata\r"}}
if (! ControlloEsistenzaStringa(document.conoscenti.Cognome.value)){errore=true;testo=testo+"- Manca il Cognome del Mittente\r"}
if (! ControlloEsistenzaStringa(document.conoscenti.Nome.value)){errore=true;testo=testo+"- Manca il Nome del Mittente\r"}
if (! ControlloEsistenzaStringa(document.conoscenti.Telefoni.value)){errore=true;testo=testo+"- Manca il Telefono del Mittente\r"}
if (! ControlloEsistenzaStringa(document.conoscenti.elenco.value)){errore=true;testo=testo+"- Manca l'elenco dei destinatari\r"}
if (errore_blocco){errore=true;testo=testo+"- L'elenco dei destinatari contiene degli errori\r"}

if (errore){alert(testo);return}

if (!confirm("Confermi l'invio del messaggio ai tuoi conoscenti in elenco ?")){return}
document.conoscenti.nomecomputer_nuovo.value=nome_computer()
document.conoscenti.elenco.value=stringa_sostituisci(document.conoscenti.elenco.value,';,',' \t')
document.conoscenti.submit()
}



function stringa_sostituisci(stringa,occorenze_da_rimpiazzare,rimpiazzo)
{
stringa=stringa+''
y=''
for (i=0;i<stringa.length;i++)
	{
	a = stringa.charAt(i)

	if (occorenze_da_rimpiazzare.indexOf(a)>=0)
	{
	y += rimpiazzo
	}
	else
	{
	y += a
	}

	}
return y
}

function nome_computer()
{
cookie=leggi_biscotto("INGEGNERI ROMANI SETTEMBRE 2002")
cookie=trim(cookie)
cookie=cookie.toUpperCase()
cookie=stringa_pulizia(cookie,"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ")
return cookie
}

function leggi_biscotto(Nome_del_cookie)
{
var stringa_ricerca = Nome_del_cookie + "="
var cookies = document.cookie
var start = cookies.indexOf(Nome_del_cookie)
    if (start == -1){ // cookie not found 
    return ""
    }
start += stringa_ricerca.length  
var end = cookies.indexOf(";", start)
    if (end == -1){
    end = cookies.length
    }
return unescape(cookies.substring(start, end))
}

function mostra_lire_da_euro(obj_euro,obj_lire,lungo_lire)
{ 
euro=intero_da_stringa(obj_euro.value)
lire=Math.round(19.3627*euro)
mostra_calcolo(obj_lire,lire,lungo_lire,0)
return
} 


function mostra_euro_da_lire(obj_lire,obj_euro,lungo_euro)
{ 
lire=intero_da_stringa(obj_lire.value)
euro=Math.round(lire*10000/193627)
mostra_calcolo(obj_euro,euro,lungo_euro,2)
return
} 

function allinea_centro(stringa,larghezza)
{
largo=Math.round((larghezza+stringa.length)/2)
y = trim(stringa,' ')
while (y.length < largo){y = ' ' + y}
return y
}


function mostra_calcolo(sul_campo,numero,lungo,dec)
{ 
sul_campo.value = allinea_destra(rstringa_numerica(stringa_da_intero(numero,dec),dec),lungo)
} 

function y2k(number) { return (number < 1000) ? number + 1900 : number; }
function data_normalizzata(stringa,ritorno)
{
giorno=0
mese=0
anno=0
z=stringa_pulizia(stringa,'/0123456789')

x=z.indexOf('/')
if (x>=0){giorno=z.substring(0,x)-0;z=z.substring(x+1,z.length)}
x=z.indexOf('/')
if (x>=0){mese=z.substring(0,x)-0;anno=z.substring(x+1,z.length)-0}
anno=y2k(anno)

d = new Date(anno,mese-1,giorno)

giorno1=d.getDate()

mese1=d.getMonth()+1
anno1=d.getYear()
anno1=y2k(anno1)

if (giorno==giorno1 && mese==mese1 && anno==anno1)
{

giorno=giorno+''
while (giorno.length<2){giorno='0'+giorno}

mese=mese+''
while (mese.length<2){mese='0'+mese}

anno=anno+''
while (anno.length<4){anno='0'+anno}

data_numerica = new Date(anno-0,mese-1,giorno-0)
data_stringa=giorno+"/"+mese+"/"+anno

if (ritorno>0)
{
return data_stringa 
}
else
{
return data_numerica 
}
}
else
{
if (ritorno>0)
{
return "gg/mm/aaaa" 
}
else
{
return 0 
}
}
}





function intero_da_stringa(stringa)
{
z=stringa_pulizia(stringa,'-0123456789')
return z-0
}


function stringa_da_intero(numero,dec)
{
z=stringa_pulizia(numero,'-0123456789')
segno=''
if (z.charAt(0)=='-'){segno="-";z=z.substring(1,z.length)}
if (z==''){z='0'}

//------------------------------------
//while (z.length<dec){z=z+'0'}
while (z.length<dec){z='0'+z}

intero=z.substring(0,z.length-dec)
decimale=z.substring(z.length-dec,z.length)
z=segno+intero+','+decimale
return z
}


function input_numero(x,dec)
{
x.value=lstringa_numerica(x.value,dec)
x.select()
}


function output_numero(x,dec,largo)
{
x.value=allinea_destra(rstringa_numerica(x.value,dec),largo)
}


function allinea_destra(stringa,larghezza)
{
y = trim(stringa,' ')
while (y.length < larghezza){y = ' ' + y}
return y
}


function stringa_pulizia(stringa,ammessi)
{
stringa=stringa+''
y=''
for (i=0;i<stringa.length;i++)
	{
	a = stringa.charAt(i)
	if (ammessi.indexOf(a)>=0){y += a}
	}
return y
}


function lstringa_numerica(stringa,dec)
{
z=trim(stringa,' ')
segno=''
if (z.charAt(0)=='-'){segno="-";z=z.substring(1,z.length)}
z=z+','
v=z.indexOf(',')

intero=z.substring(0,v)
decimale=z.substring(v+1,z.length)

intero=stringa_pulizia(intero,'0123456789')
intero=ltrim(intero,'0')
if (intero==''){intero='0'}

decimale=stringa_pulizia(decimale,'0123456789')
decimale=decimale.substring(0,dec)
while (decimale.length<dec){decimale=decimale+'0'}

z=segno+intero
if (dec>0){z=z+','+decimale}
return z
}


function rstringa_numerica(stringa,dec)
{
z=trim(stringa,' ')
segno=''
if (z.charAt(0)=='-'){segno="-";z=z.substring(1,z.length)}
z=z+','
v=z.indexOf(',')

intero=z.substring(0,v)
decimale=z.substring(v+1,z.length)

intero=stringa_pulizia(intero,'0123456789')
intero=ltrim(intero,'0')
if (intero==''){intero='0'}

y=''
while (intero.length>3){y="."+intero.substring(intero.length-3,intero.length)+y;intero=intero.substring(0,intero.length-3)}
intero=intero+y

decimale=stringa_pulizia(decimale,'0123456789')
decimale=decimale.substring(0,dec)
while (decimale.length<dec){decimale=decimale+'0'}

z=segno+intero
if (dec>0){z=z+','+decimale}
return z
}



function ltrim(stringa,carattere)
{
y=''
z=stringa+''
flag=false
for (i=0;i<z.length;i++)
{
a = z.charAt(i)
if (a!=carattere){flag=true}
if (flag){y += a}
}
return y
}



function rtrim(stringa,carattere)
{
y=''
z=stringa+''
flag=false
for (i=0;i<z.length;i++)
{
a = z.charAt(z.length-i-1)
if (a!=carattere){flag=true}
if (flag){y = a+y}
}
return y
}


function trim(stringa,carattere)
{
y=rtrim(stringa,carattere)
y=ltrim(y,carattere)
return y
}

function Controllo_Codice_Fiscale(stringa)
{
var lung=null;
var test=null;
lettere=new Array();
//array= lettera, valore se pari, valore se dispari
lettere[0]=["A","0","1"];
lettere[1]=["B","1","0"];
lettere[2]=["C","2","5"];
lettere[3]=["D","3","7"];
lettere[4]=["E","4","9"];
lettere[5]=["F","5","13"];
lettere[6]=["G","6","15"];
lettere[7]=["H","7","17"];
lettere[8]=["I","8","19"];
lettere[9]=["J","9","21"];
lettere[10]=["K","10","2"];
lettere[11]=["L","11","4"];
lettere[12]=["M","12","18"];
lettere[13]=["N","13","20"];
lettere[14]=["O","14","11"];
lettere[15]=["P","15","3"];
lettere[16]=["Q","16","6"];
lettere[17]=["R","17","8"];
lettere[18]=["S","18","12"];
lettere[19]=["T","19","14"];
lettere[20]=["U","20","16"];
lettere[21]=["V","21","10"];
lettere[22]=["W","22","22"];
lettere[23]=["X","23","25"];
lettere[24]=["Y","24","24"];
lettere[25]=["Z","25","23"];
lettere[26]=["0","0","1"];
lettere[27]=["1","1","0"];
lettere[28]=["2","2","5"];
lettere[29]=["3","3","7"];
lettere[30]=["4","4","9"];
lettere[31]=["5","5","13"];
lettere[32]=["6","6","15"];
lettere[33]=["7","7","17"];
lettere[34]=["8","8","19"];
lettere[35]=["9","9","21"];
ConfrontoCarattereControllo=new Array();
ConfrontoCarattereControllo[0]=["A"];
ConfrontoCarattereControllo[1]=["B"];
ConfrontoCarattereControllo[2]=["C"];
ConfrontoCarattereControllo[3]=["D"];
ConfrontoCarattereControllo[4]=["E"];
ConfrontoCarattereControllo[5]=["F"];
ConfrontoCarattereControllo[6]=["G"];
ConfrontoCarattereControllo[7]=["H"];
ConfrontoCarattereControllo[8]=["I"];
ConfrontoCarattereControllo[9]=["J"];
ConfrontoCarattereControllo[10]=["K"];
ConfrontoCarattereControllo[11]=["L"];
ConfrontoCarattereControllo[12]=["M"];
ConfrontoCarattereControllo[13]=["N"];
ConfrontoCarattereControllo[14]=["O"];
ConfrontoCarattereControllo[15]=["P"];
ConfrontoCarattereControllo[16]=["Q"];
ConfrontoCarattereControllo[17]=["R"];
ConfrontoCarattereControllo[18]=["S"];
ConfrontoCarattereControllo[19]=["T"];
ConfrontoCarattereControllo[20]=["U"];
ConfrontoCarattereControllo[21]=["V"];
ConfrontoCarattereControllo[22]=["W"];
ConfrontoCarattereControllo[23]=["X"];
ConfrontoCarattereControllo[24]=["Y"];
ConfrontoCarattereControllo[25]=["Z"];
var Carattere=0;
var ValorePari=1;
var ValoreDispari=2;
var SommaCaratteri=0;
var PariDispari=null;
stringa=stringa.toUpperCase();
lung=stringa.length;
CarattereControllo=stringa.substr(lung-1,1);
stringa=stringa.substring(lung-1,0);
lung=stringa.length;

for (i=0; i<=lung-1; i++)
{
if ((i+1)%2==0)
	{
	PariDispari='P'
	}
	else
	{
	PariDispari='D'
	}
temp=stringa.charAt(i);
for (t=0; t<=35; t++)
	{
	test=lettere[t][Carattere];
	if (temp==test){break}
	}
	
	if(PariDispari=='P')
	{
	SommaCaratteri=SommaCaratteri+parseInt(lettere[t][ValorePari])
	}
	else
	{
	SommaCaratteri=SommaCaratteri+parseInt(lettere[t][ValoreDispari])
	}

}
Risultato=SommaCaratteri % 26;
Risultato=ConfrontoCarattereControllo[Risultato][0];
if (Risultato==CarattereControllo)
{
return true
}
else
{
return false
}
}

function Controllo_Partita_IVA(pi)
{
	if( pi.length != 11 )
		return false;
	validi = "0123456789";
	for( i = 0; i < 11; i++ ){
		if( validi.indexOf( pi.charAt(i) ) == -1 )
			return false;
	}
	s = 0;
	for( i = 0; i <= 9; i += 2 )
		s += pi.charCodeAt(i) - '0'.charCodeAt(0);
	for( i = 1; i <= 9; i += 2 ){
		c = 2*( pi.charCodeAt(i) - '0'.charCodeAt(0) );
		if( c > 9 )  c = c - 9;
		s += c;
	}
	if( ( 10 - s%10 )%10 != pi.charCodeAt(10) - '0'.charCodeAt(0) )
		return false;
	return true;
}


function Controllo_Fiscale_IVA(codice)
{
if(codice.length == 11)
{
return Controllo_Partita_IVA(codice)
}
return Controllo_Codice_Fiscale(codice)
}