var cadena="                                                    PIENSAENPIES - Venta de Camisetas";
var ancho=4000;
var cabeza=0;
var cola=ancho;
var longitud=cadena.length;


function Marquesina(){
var muestracadena;
if(cabeza<cola)
	muestracadena=cadena.substring(cabeza,cola)
else
	muestracadena=cadena.substring(cabeza,longitud) + cadena.substring(0,cola);
cabeza=(cabeza+1)%longitud;
cola=(cola+1)%longitud;
window.status=muestracadena;
TimerID=setTimeout("Marquesina()",85);
}

function Arrays(){
argnr=Arrays.arguments.length;
for(var i=0;i<argnr;i++) this[i+1]=Arrays.arguments[i];
return;
}

function SacarFecha(){
var mes=new Arrays("Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Novimbre","Diciembre");
var dias=new Arrays("Domingo","Lunes","Martes","Miercoles","Jueves","Viernes","Sabado");
var fecha=new Date();
document.write(dias[fecha.getDay()+1] + " " + fecha.getDate() + " de " + mes[fecha.getMonth()+1]  + " de " +fecha.getFullYear());
}

function SacarMes(){
var mes=new Arrays("Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Novimbre","Diciembre");
var fecha=new Date();
document.write( mes[fecha.getMonth()+1]  + " de " +fecha.getFullYear());
}


function agregar(){
if((navigator.appName=="Microsoft Internet Explorer") && (parseInt(navigator.appVersion)>=4)){
	var url="http://www.federacioncantabrakarate.org";
	var titulo="Federación Cantabra de Karate";
	window.external.AddFavorite(url,titulo);
}else{
	if(navigator.appName=="Netscape")
		alert("Presione Ctrl+D para agregar a Favoritos")
}
}

function asd(){

document.getElementById("divi").style["visibility"]="hidden";
document.getElementById("imagen").style["visibility"]="visible";
}

function cambioimg(imagn){
	document.all.imagen.src="imagenes/" + imagn + ".jpg";
}


function iniciar(pers)
{
var texto = new Array();
texto[0] = "<b><u><font color='#d13428'>REDYTEL COMPUTER</font></u></b>";
texto[2] = ":: Se buscan DISTRIBUIDORES a nivel Nacional.<br><a href=contactenos.html><font color=#d13428>CONTACTE</font></a> ::<br><img src=imagenes/rpeq.jpg>";
texto[3] = ":: <font color=#d13428>OFERTAS PUESTOS DE TRABAJO</font> : Necesitamos comerciales ::<br><img src=imagenes/rpeq.jpg>";
texto[4] = "::  Concecido presupuesto del Ayto. Astillero ante varias Empresas ::<br><img src=imagenes/images.jpg>";
texto[1] = "::  Ingresamos en <font color=#d13428>Gobierno de cantabria</font> para la subvención de 300 € por ordenador ::<br><img src='imagenes/raton.jpg'>"
//estilo necesario para Netscape
persiana1 = new oPersiana('Layer1', 30, texto, -1, 60, 'marco');

persiana1.actualizar('persiana1');
}


//CALENDARIO


// Inicialización de Variables	
	Ancho = 150;						//ancho de la tabla

	Fondo 			= "#cadfff";		//color de la celda
	FondoFestivo 	= "#98b5ed";		//color de la celda en día festivo
	FondoTitulo 	= "#8199ed";		//color de fondo para el título
	FondoDiasSemana = "#3555ff";		//color de fondo para los días de la semana
	
	colorLinea 		= "#FFFFFF";		//color de la linea entre las celdas
	
	cp = 1;								// cellpadding
	cs = 1;								// cellspacing

	Meses = new Array;
		Meses[0]  = "Enero";
		Meses[1]  = "Febrero";
		Meses[2]  = "Marzo";
		Meses[3]  = "Abril";
		Meses[4]  = "Mayo";
		Meses[5]  = "Junio";
		Meses[6]  = "Julio";
		Meses[7]  = "Agosto";
		Meses[8]  = "Septiembre";
		Meses[9]  = "Octubre";
		Meses[10] = "Noviembre";
		Meses[11] = "Diciembre";
	
	DiasSemana = new Array ("L","M","X","J","V","S","D");
	DiasMes = new Array(31,28,31,30,31,30,31,31,30,31,30,31);
	

function escribirCalendario(fecha){
	
	dia = fecha.getDate();
	diaSemana = fecha.getDay();
	mes = fecha.getMonth();
	anno = fecha.getYear();
	
	if (anno%4 == 0) {
		DiasMes[1] = 29
		//Si es bisiesto Febrero tiene 29 dias
	}
	
	stTexto = "";
	stTexto += "<table cellpadding=\"0\" cellspacing=\"0\" border=\"0\">\n";
	stTexto += "<tr>\n";
	stTexto += "	<td bgcolor=\"" + colorLinea + "\">\n";
	stTexto += "		<table cellpadding=\"" + cp +"\" cellspacing=\"" + cs + "\" border=\"0\" width=\"" + Ancho + "\">\n";
	stTexto += "		<tr>\n";
	stTexto += "			<td colspan=\"7\" bgcolor=\"" + FondoTitulo + "\" class=\"titulo\" align=\"center\"><b>&nbsp;" + Meses[mes].toUpperCase() + "&nbsp;</b></td>\n";
	stTexto += "		</tr>\n";
	stTexto += "		<tr>\n";
	document.write(stTexto);
	for(i=0;i<7;i++){
		document.write ("<td bgcolor=\"" + FondoDiasSemana + "\" class=\"txt\" align=\"center\"><b>&nbsp;" + DiasSemana[i] + "&nbsp;</b></td>");
	}
			
	
	stTexto  = "";			
	stTexto += "		</tr>\n";
	document.write(stTexto);
	
	aux = (dia - diaSemana + 1)%7	
	//aux es el primer lunes del calendario
	
	if (aux > 1) {
		aux = aux - 7;				
		//aux es la primera casilla del calendario. 
		//Suele tener valor negativo
	}

	nS = Math.ceil((DiasMes[mes] - aux + 1)/7);
	//numero de semanas que va a ocupar ese mes
	
	// construye el calendario
	//   el 1er for genera las filas (semanas)
	//   y el 2o for escribe cada día de la semana para esa semana
	for (var numSemana = 0; numSemana < nS; numSemana++){
		document.write("<tr>");
		for (i=0; i<7 ; i++){

			if (i > 4) {
				// es fin de semana
				fondo = FondoFestivo;
				clase = "txtFestivo";
			} else {
				// es dia laborable
				fondo = Fondo;
				clase = "txt";
			}

			iAux = aux + i + numSemana*7;
			if (iAux < 1){
				// escribimos celdas vacias porque el dia 1 aun no ha llegado
				document.write("<td align=\"center\" bgcolor=\"" + fondo +"\" class=\"" + clase +"\">&nbsp;</td>");
			}else if (iAux < DiasMes[mes] + 1 ){
				// ponemos el dia en negrita si coincide con la fecha que le hemos pasado a la funcion
				if (iAux == dia){
					document.write("<td align=\"center\" bgcolor=\"" + fondo +"\" class=\"" + clase +"\"><b><font color=#0000ff>" + iAux + "</font></b></td>");				
				}else{
					document.write("<td align=\"center\" bgcolor=\"" + fondo +"\" class=\"" + clase +"\">" + iAux + "</td>");
				}
			}else{
				// terminamos de rellenar la tabla con celdas vacias
				document.write("<td align=\"center\" bgcolor=\"" + fondo +"\" class=\"" + clase +"\">&nbsp;</td>");
			}
		}
		
		document.write("</tr>");
	}
	
	stTexto  = "";			
	stTexto += "		</tr>\n";
	stTexto += "		</table>\n";
	stTexto += "	</td>\n";
	stTexto += "</tr>\n";
	stTexto += "</table>\n";
	document.write(stTexto);
}
