var mensaje,longitud; cadena;
mensaje="     kieroket bar pasate prueba el autentico sandwich cubano y disfruta de el mejor mojito del barrio !..."
longitud=mensaje.length; 

function scroll(){
	mensaje=mensaje.substring(1,longitud+1)+mensaje.charAt(0);
	window.status=mensaje;
	setTimeout("scroll()",150)
}

function activar(){
	var obj1=document.getElementById("img"+Math.floor(7*Math.random()));
	obj1.style.filter="alpha(enabled=1,opacity=50)";
	setTimeout("volver('img'+Math.floor(7*Math.random()))",1000);
}

function ensena(){
	
	var imagenes = new Array("pUERTA_1.jpg","PUERTA_2.jpg","pUERTA_3.jpg","PUERTA_4.jpg","PUERTA_5.jpg","pUERTA_6.jpg","pUERTA_7.jpg")
	x = Math.floor(7*Math.random())
	cadena="_images/"+ imagenes[x]
	document.all.visor.src=cadena
}

function volver(x){
	var obj1=document.getElementById(x);
	obj1.style.filter="alpha(enabled=1,opacity=100)";
	setTimeout("activar()",1000);
}

function muestra(x){

	var ver=new Image();
	ver=document.all.visor.src
	cadena="_images/"+x;
	document.all.visor.src=cadena
	ver.width=ver.width*2
	ver.width=ver.height*2
}

var test=true;
function val_correo() {
	var mail=new String();
	var cheq=new String();
	var l,a,a1,p,p1,c1,cf,i,lc,k,cc,cadena,cad,z;
	cheq="ªº\!|#$€%/&=();:,<>€¬[]{}^*+¡? ¿";
	lc=cheq.length;
	caden=document.getElementById("correo").value;
	if (caden=="")
		test=false;
	if (caden.search(";")==caden.length)
		test=false;
	cad=caden.split(";");
	for (z=0;z<cad.length;z++){
		mail=cad[z];
		l=mail.length;                       //longitud de la caden
		a=mail.indexOf("@");            //para verificar si existe la @
		a1=mail.lastIndexOf("@");     //para verificar si se repite la @
		p=mail.indexOf(".");              //para verificar si existe el punto
		p1=mail.lastIndexOf(".");       //para verificar si se repite el punto
		c1=mail.charAt(0);               //para verificar primer caracter
		cf=mail.charAt(l-1);              //para verificar el ultimo caracter
		for (i=0;i<lc;i++){                 // si hay caracteres no autorizados
			cc=cheq.charAt(i);
			for (k=0;k<l;k++) { 
				if (mail.charAt(k)==cc) 
					test=false;
			}
		}
		if (a==-1)                           // no existe la @ 
			test=false;
		else
			if (a!=a1)                       // si hay mas de 1 @
				test=false;
		if (p==-1)                         // si existe el punto
			test=false;
		else
			if ((p+1)==p1)               // si el punto esta pegado al otro punto
				test=false;
		if ((a+1)==p)                   //si el punto esta seguido de la arroba
			test=false;
		if ((a-1)==p)                   //si el punto esta pegado antes de la arroba
			test=false;
		if (a>p1)                           // si la @ esta despues del ultimo punto    
			test=false 
		if ((c1=="@")||(c1==".")||(cf=="."))           // que el primer caracter no sea @ o punto
			test=false;
		if (mail.charAt(l-4)!=mail.charAt(p))         //validando 3 caracteres despues del punto
			if (mail.charAt(l-3)!=mail.charAt(p))      //validando 2 caracteres despues del punto
				test=false;  
	}
	if (test==false){
		alert("e-mail incorrecto");
		test=true;
		document.getElementById("correo").value=""
		document.getElementById("correo").style.backgroundColor="orange";
	}
}