// JavaScript Document
function Ventana(img, ancho, alto){
  derecha=(screen.width-ancho)/2;
  arriba=(screen.height-alto)/2;

string="toolbar=0,scrollbars=0,location=0,statusbar=0,menubar=0,resizable=0,width="+ancho+",height="+alto+",left="+derecha+",top="+arriba+"";
  fin=window.open(img,"",string);
}

function Enviar() {
	if(ARIBSAN.Nombre.value == '') {
		alert('Debe indicar su nombre');
		ARIBSAN.Nombre.focus();
	}else{
		if(ARIBSAN.Email.value == '') {
			alert('Debe indicar su e-mail');
			ARIBSAN.Email.focus();
		}else{
			if(VerificarEmail(ARIBSAN.Email.value) == '0') {
				alert('Debe escribir un e-mail válido');
				ARIBSAN.Email.focus();
			}else{
				if(ARIBSAN.Asunto.value == '') {
					alert('Debe indicar el asunto del mensaje');
					ARIBSAN.Asunto.focus();
				}else{
					if(ARIBSAN.Mensaje.value == '') {
						alert('Debe escribir el mensaje');
						ARIBSAN.Mensaje.focus();
					}else{
						ARIBSAN.action = 'aribsan_enviarcorreo.asp';
						ARIBSAN.submit();
					}
				}
			}
		}
	}
}


// Verifica si sEmail es una direccion de email válida
function VerificarEmail(sEmail)
{
var sNombre;
var sServidor;
var sDominio;
	
	if(sEmail.indexOf('@') != sEmail.lastIndexOf('@') || sEmail.lastIndexOf('@') <= 0) {
		return('0');
	}else{
		if(sEmail.indexOf('.') <= 0 || sEmail.lastIndexOf('.') < sEmail.indexOf('@') || sEmail.lastIndexOf('.') == sEmail.length) {
			return('0');
		}else{
			sNombre		= sEmail.substring(0,sEmail.indexOf('@'));
			sServidor	= sEmail.substring(sEmail.indexOf('@')+1,sEmail.lastIndexOf('.'));
			sDominio	= sEmail.substring(sEmail.lastIndexOf('.')+1,sEmail.length);

			if(VerificarCadenaAlfanumerica(CambiarCadenas(CambiarCadenas(sNombre,'.',''),'_','')) == '0') {
				return('0');
			}else{
				if(VerificarCadenaAlfanumerica(CambiarCadenas(CambiarCadenas(sServidor,'.',''),'_','')) == '0') {
					return('0');
				}else{
					if(VerificarCadenaAlfanumerica(CambiarCadenas(CambiarCadenas(sDominio,'.',''),'_','')) == '0' || sDominio.length > 4) {
						return('0');
					}else{
						return('1');
					}
				}
			}
			
		}
	}
}

// Verifica si sCadena se trata de un string alfanumérico
function VerificarCadenaAlfanumerica(sCadena)
{
	if(/^([a-z]|[A-Z]|[0-9])+([a-z]|[A-Z]|[0-9])*$/.test(sCadena))
	{
		return('1');
	}
	else
	{
		return('0');
	}
}

// Reemplaza las Cad1 que haya en Cadena por Cad2.
function CambiarCadenas(Cadena, Cad1, Cad2) {
var Aux;
	if(Cadena.indexOf(Cad1) >= 0) {
		Aux = Cadena.substring(0,Cadena.indexOf(Cad1));
		Aux = Aux + Cad2;
		Aux = Aux + CambiarCadenas(Cadena.substring(Cadena.indexOf(Cad1)+Cad1.length,Cadena.length),Cad1,Cad2);
		return(Aux);	
	}else{
		return(Cadena)
	}
}