var stayFolded=false;
var MyEventObj= new Object();
var MinimumLeft=75;
var RightOffset=25;
var oSub=new Array();

var n = (document.layers) ? 1:0;
var ie = (document.all) ? 1:0;
var browser=((n || ie) && parseInt(navigator.appVersion)>=4);  
var PageName;
var IsProductPage=false;
var PageLoaded=false;

function makeMenu(obj,mynum){
	//nest=(!nest) ? '':'document.'+nest+'.'       
	//alert("mynum is: " + mynum);
	if (n){
		this.BrowserType="n";
	} else {
		this.BrowserType="ie";
	}
	this.css = (n) ? eval('document.'+obj) : eval('document.all.'+obj+'.style'); 
	//alert(this.css);                                    
	this.ref = (n) ? eval('document.'+obj+'.document') : eval('document');         
	this.height = n ? this.ref.height : eval(obj+'.offsetHeight')
	this.x = (n)? this.css.left : this.css.pixelLeft; 
	this.y = (n)? this.css.top : this.css.pixelTop;  
	this.Width= n ? this.ref.width : eval(obj+'.offsetWidth'); 
	this.MyNum=mynum;
	this.hideIt=b_hideIt;   
	this.showIt=b_showIt; 
	this.vis=b_vis; 
	this.moveIt=b_moveIt;                                                                                   
	return this
}

function  CloseMenu(){
    for(i=0;i<oSub.length;i++){ oSub[i].hideIt() }
}
      
function b_showIt(){
	this.css.visibility="visible";
	//alert(this.BrowserType);
}
function b_hideIt(){this.css.visibility="hidden"}
function b_vis(){if(this.css.visibility=="hidden" || this.css.visibility=="hide") return true;}
function b_moveIt(x,y){this.x=x; this.y=y; this.css.left=this.x; this.css.top=this.y}

function init(){

	PageName=document.PageForm.PageName.value;
	//alert("init " + PageName);
	oSub[0]=new makeMenu('divSub0',0);
	//oSub[1]=new makeMenu('divSub1',1);

	if (PageName=="index"){
		oSub[1]=new makeMenu('divSub1',1);
		oSub[2]=new makeMenu('divSub2',2);
		oSub[3]=new makeMenu('divSub3',3);
		oSub[4]=new makeMenu('divSub4',4);
	}

	CloseMenu();
	PageLoaded=true;     
}

function menu(num,RightAlign){
	if (!PageLoaded){
	        return;
	}
	if(browser){
		//alert(oSub[num].vis() + " " + num + " " + oSub[num].MyNum);
		if (!oSub[num].vis()){
			//menu is visable
		} else {
			CloseMenu();
			oSub[num].vis()?oSub[num].showIt():oSub[num].hideIt();
			MoveToEvent(oSub[num],RightAlign);  
		}
	}
}

//Initiating the menus onload, if it's a 4.x+ browser.
if(browser) {
	onload=init;
}

function MyMove(MyThis,MyX,MyY){
	MyThis.moveIt(MyX,MyY);
}
function SetEventLocation(TheObj){
	MyEventObj.x=TheObj.x;
	MyEventObj.y=TheObj.y;
	if (MyEventObj.x<MinimumLeft){
		MyEventObj.x=MinimumLeft;
	}
}

function MoveToEvent(Obj,RightAlign){
	//alert(Obj.BrowserType + " " + MyEventObj.x + " " + MyEventObj.y);
	//default is a menu who's location is set by it's left border.
	//if the Right param is true then we need to use the right side
	if (!RightAlign){
		Obj.moveIt(MyEventObj.x , MyEventObj.y);
    } else {
    	Obj.moveIt(MyEventObj.x-(Obj.Width+RightOffset) , MyEventObj.y);
    }
}

function SetMenu (ThePage) {

	PageName=document.PageForm.PageName.value;


        RightMenuStr="<B><font face='Verdana' size='2'>";

	/*
		Home 		=home
		AboutNorth Star	=about
		North Star News	=news
		AboutFlake Ice	=flake
		Products	=products
		Applications	=applications
		Contact Us	=contact
                
                
                
                                                                                                                          
	*/

	if (ThePage != "index"){
		RightMenuStr = RightMenuStr + "<br><a href='index.htm' onmouseover='CloseMenu();'>Página principal</a><br>";
	}
	if (ThePage != "about"){
		RightMenuStr = RightMenuStr + "<br><a href='AboutNS.htm' onmouseover='CloseMenu();'>Acerca de<br>North Star</a><br>";
	}
	if (ThePage != "news"){
		RightMenuStr = RightMenuStr + "<br><a href='news.htm' onmouseover='CloseMenu();'>Noticias de North Star</a><br>";	
	}
	if (ThePage != "flake"){
		RightMenuStr = RightMenuStr + "<br><a href='aboutFL.htm' onmouseover='CloseMenu();'>Acerca de hielo en escamas</a><br>";
	}
	if (ThePage != "products"){
		RightMenuStr = RightMenuStr + "<br><a href='index.htm' onmouseover='SetEventLocation(event);menu(0,true); return false'>Productos</a><br>";
	}
	if (ThePage != "applications"){
		RightMenuStr = RightMenuStr + "<br><a href='applications.htm' onmouseover='CloseMenu();'>Aplicaciones</a><br>";
	}
	if (ThePage != "contact"){
		RightMenuStr = RightMenuStr + "<br><a href='contact.htm' onmouseover='CloseMenu();'>Comuníquese con North Star</a><br>";
	}

	RightMenuStr = RightMenuStr + "</font><br></B>";
	document.write(RightMenuStr);
}

function DrawLegal() {

        PageName=document.PageForm.PageName.value;

	document.write("" +
        "<P align=center><A href='#top'><STRONG><font face='Verdana' size='1'>Inicio de página</font></STRONG></A></P>" +
	"<p class='pagefooter' align='center'>" +
        "<font face='Verdana' size='1'>" +
        "<a href='contact.htm' onmouseover='CloseMenu();'>Correo electrónico de <strong>North Star Ice Equipment Corporation</a></strong>" +
        " - info@northstarice.com " +
        "<br>P.O.Box 80227 " +
        "<img src='images/sf.gif' alt='sf.gif (868 bytes)' width='7' height='8'> 8151 Occidental Avenue South " + 
        "<img src='images/sf.gif' width='7' height='8'> Seattle, Washington 98108 U.S.A." + 
        "<br> " + 
        "<img src='images/sf.gif' width='7' height='8'> Teléfono: (206) 763-7300 " + 
        "<img src='images/sf.gif' width='7' height='8'> Fax: (206) 763-7323 " +  
        "<br>&copy; 1998-2001 North Star Ice Equipment Corporation. Todos los derechos reservados.</font></b><br>");
}
function DrawAbout(){
	document.write("<p class='pagefooter' align='center'><font face='Verdana' size='1'>Sitio creado por</font>" +
        "<small><br></small><a href='http://www.roguepark.com/rppro/' onmouseover='CloseMenu();'>" +
        "<img src='http://www.roguepark.com/rppro/brand/rp_ana.gif' alt='rp_ana.gif (8867 bytes)' border='0'>" +
        "</a>");
}
function DrawPopUpMenu(){

        PageName=document.PageForm.PageName.value;
        
       document.write(""+
        "<div id='divSub0' class='clSub'>" +
          "<form>" +
            "<table bgcolor='black' width='300' border='0' cellpadding='0' cellspacing='0'>" +
              "<tr>" +
        	"<td bgcolor='#1E3E8B'><font class='clMain' size='2' color='#FFFFFF' face='Arial'>&nbsp;<b>PRODUCTOS</b></font></td>" +
        	"<td align='right' bgcolor='#1E3E8B'><input type='button' value=' X ' onclick='CloseMenu();'></td>" +
              "</tr>" +
              "<tr>" +
                "<td collspan='3' bgcolor='#000000'>&nbsp;");
                
                document.write(
                  "<a href='drumice.htm' target='_top' class='clSubb'>&nbsp;Máquinas generadoras de hielo en escamas</a><br>" +
                  "<a href='coldisc.htm' target='_top' class='clSubb'>&nbsp;&nbsp;Máquinas generadoras de hielo en escamas Coldisc®</a><br>" +
                  "<a href='liqice.htm' target='_top' class='clSubb'>&nbsp;&nbsp;Hielo liquido</a><br>" +
                  
                  "<a href='icerake.htm' target='_top' class='clSubb'>&nbsp;&nbsp;Silos de hielo con sistemas de rastrillo</a><br>" +
                  "<a href='modrakes.htm' target='_top' class='clSubb'>&nbsp;&nbsp;Silos de heilo modulares</a><br>" +
                  
                  "<a href='contrakes.htm' target='_top' class='clSubb'>&nbsp;&nbsp;Sistemas de hielo en contenedores</a><br>" +
                  "<a href='del_sys.htm' target='_top' class='clSubb'>&nbsp;&nbsp;Sistemas de entrega </a><br>" +
                  "<a href='snowmake.htm' target='_top' class='clSubb'>&nbsp;&nbsp;Equipos de fabricación de nieve</a><br>" +
                  "<a href='aux_eq.htm' target='_top' class='clSubb'>&nbsp;&nbsp;Equipos auxiliares</a><br>" 
                );
               
 
                document.write(
                "</td>" +
                "<td bgcolor='black'><font color='black' size='2'>xx</font></td>" +
              "</tr>" +
            "</table>" +
          "</form>" +
        "</div>"
        );
        
        if (document.PageForm.PageName.value=="index"){
        
                document.write("" +
                "<div id='divSub1' class='clSub'>" +
                  "<form>" +
                    "<table bgcolor='black' width='325' border='0' cellpadding='0' cellspacing='0'>" +
                      "<tr>" +
                        "<td bgcolor='#1E3E8B'><font class='clMain' size='2' color='#FFFFFF' face='Arial'>&nbsp;&nbsp;<b>" +
                        
                        "Máquinas generadoras de hielo en escamas" +
                        
                        "</b></font></td>" +
                        "<td align='right' bgcolor='#1E3E8B'><input type='button' value=' X ' onclick='CloseMenu();'></td>" +
                      "</tr>" +
                      "<tr>" +
                        "<td collspan='3' bgcolor='#000000'>&nbsp;<a href='drumice.htm' target='_top' class='clSubb'>&nbsp;" +
                        
                          "Máquinas generadoras de hielo en escamas" +
                        
                          "</a><br>" +
                          "<a href='coldisc.htm' target='_top' class='clSubb'>&nbsp;&nbsp;" +
                          
                          "Máquinas generadoras de hielo en escamas Coldisc® " +
                          
                          "</a><br>" +
                          "<a href='liqice.htm' target='_top' class='clSubb'>&nbsp;&nbsp;" +
                          
                          "Hielo liquido" +
                          
                          "</a><br>" +
                        "</td>" +
                        "<td bgcolor='black'><font color='black' size='2'>xx</font></td>" +
                      "</tr>" +
                    "</table>" +
                  "</form>" +
                "</div>" +   
                "<div id='divSub2' class='clSub'>" +
                  "<form>" +
                    "<table bgcolor='black' width='220' border='0' cellpadding='0' cellspacing='0'>" +
                      "<tr>" +
                        "<td bgcolor='#1E3E8B'><font class='clMain' size='2' color='#FFFFFF' face='Arial'>&nbsp;<b>" +
                        
                        "Manipuleo de hielo" +
                        
                        "</b></font></td>" +
                        "<td align='right' bgcolor='#1E3E8B'><input type='button' value=' X ' onclick='CloseMenu();'></td>" +
                      "</tr>" +
                      "<tr>" +
                        "<td>&nbsp;<a href='icerake.htm' target='_top' class='clSubb'>&nbsp;" +
                        
                          "Silos de hielo con sistemas de rastrillo" +
                        
                          "</a><br>" +
                          "<a href='modrakes.htm' target='_top' class='clSubb'>&nbsp;&nbsp;" +
                          
                          "Silos de heilo modulares" +
                          
                          "</a><br>" +
                          "<a href='contrakes.htm' target='_top' class='clSubb'>&nbsp;&nbsp;" +
                          
                          "Sistemas de hielo en contenedores" +
                          
                         "</a><br>" +
                        "</td>" +
                        "<td bgcolor='black'><font color='black' size='2'>xx</font></td>" +
                      "</tr>" +
                    "</table>" +
                  "</form>" +
                "</div>" +
             "<div id='divSub3' class='clSub'>" +
                  "<form>" +
                    "<table bgcolor='black' width='150' border='0' cellpadding='0' cellspacing='0'>" +
                      "<tr>" +
                        "<td bgcolor='#1E3E8B'><font class='clMain' size='2' color='#FFFFFF' face='Arial'>&nbsp;<b>" + 
                        
                        "Entrega del hielo" +
                        
                        "</b></font></td>" +
                        "<td align='right' bgcolor='#1E3E8B'><input type='button' value=' X ' onclick='CloseMenu();'></td>" +
                      "</tr>" +
                      "<tr>" +
                        "<td>&nbsp;<a href='del_sys.htm' target='_top' class='clSubb'>&nbsp;" + 
                        
                        "Sistemas de entrega" +
                        
                        "</a><br>" +
                        "</td>" +
                        "<td bgcolor='black'><font color='black' size='2'>xx</font></td>" +
                      "</tr>" +
                    "</table>" +
                  "</form>" +
                "</div>" +
             "<div id='divSub4' class='clSub'>" +
                  "<form>" +
                    "<table bgcolor='black' width='200' border='0' cellpadding='0' cellspacing='0'>" +
                      "<tr>" +
                        "<td bgcolor='#1E3E8B'><font class='clMain' size='2' color='#FFFFFF' face='Arial'>&nbsp;<b>" +
                        
                        "Fabricación de nieve" +
                        
                        "</b></font></td>" +
                        "<td align='right' bgcolor='#1E3E8B'><input type='button' value=' X ' onclick='CloseMenu();'></td>" +
                      "</tr>" +
                      "<tr>" +
                         "<td>&nbsp;<a href='snowmake.htm' target='_top' class='clSubb'>&nbsp;" +
                         
                         "Fabricación de nieve" +
                         
                         "</a><br>" +
                        "</td>" +
                        "<td bgcolor='black'><font color='black' size='2'>xx</font></td>" +
                      "</tr>" +
                    "</table>" +
                  "</form>" +
                "</div>" 
 
                );
        }

}

function DrawTitle(){

	var TitleStr="ERROR";
	//alert("title " + document.PageForm.PageName.value );
	/*
		Home 		=home
		AboutNorth Star	=about
		North Star News	=news
		AboutFlake Ice	=flake
		Products	=products
		Applications	=applications
		Contact Us	=contact
	*/

	if (document.PageForm.PageName.value=='about'){
		TitleStr="Acerca de North Star Ice Equipment";
	}
	if (document.PageForm.PageName.value=='news'){
		TitleStr="Noticias de North Star";
	}		
	if (document.PageForm.PageName.value=='flake'){
		TitleStr="Las ventajas del hielo en escamas<br>de North Star";
	}
	if (document.PageForm.PageName.value=='products'){
		TitleStr="Acerca de North Star Ice Equipment";
	}
	if (document.PageForm.PageName.value=='applications'){
		TitleStr="Aplicaciones";
	}
	if (document.PageForm.PageName.value=='contact'){
		TitleStr="Comuníquese con North Star";
	}
	if (document.PageForm.PageName.value=='liqice'){
		TitleStr="Maquinas generadoras de hielo liquido<br>de North Star";
	}
	if (document.PageForm.PageName.value=='aux_eq'){
		TitleStr="Equipos auxiliares";
	}
	if (document.PageForm.PageName.value=='colddisc'){
		TitleStr="Máquinas Generadoras de hielo en escamas Coldisc<sup>®</sup> de North Star";
	}
	if (document.PageForm.PageName.value=='contrake'){
		TitleStr="Sistemas para fabricación de hielo en contenedores";
	}        
	if (document.PageForm.PageName.value=='del_sys'){
		TitleStr="Sistemas de entrega";
	}  
	if (document.PageForm.PageName.value=='drumice'){
		TitleStr="Máquinas Generadoras de hielo en escamas<br>de North Star";
	} 
	if (document.PageForm.PageName.value=='icerakes'){
		TitleStr="Silos de hielo con sistemas de rastrillo<br>de North Star";
	}
	if (document.PageForm.PageName.value=='modrakes'){
		TitleStr="Silos modulares de hielo con sistema de rastrillo";
	}
	if (document.PageForm.PageName.value=='snowmake'){
		TitleStr="Sistemas para fabricación de Nieve de North Star";
	}
	if (document.PageForm.PageName.value=='thanks'){
		TitleStr="&#161;Gracias!";
	}

        
	if (document.PageForm.PageName.value=='template'){
		TitleStr="SET NAME FIELD FOR PAGE!!";
	}
	document.write(TitleStr);

}

function SetLeftMenu (ThePage) {
	//alert("leftmenu " + ThePage);
	LeftMenuStr="<B><font face='Verdana' size='1' align='left'>";

	/*
		Drum Ice Makers		=drumice
		Coldisc			=colddisc
                Liquid Ice              =liqice
		Ice Rakes		=icerakes
		Modular Rakes		=modrakes
		Containerized Rakes	=contrake
		Delivery Systems	=del_sys
		Snowmaking Equipment	=snowmake
		Auxiliary Equipment	=aux_eq

                                                                                                                                        Máquinas generadoras de hielo en escamas 
                                                                                                                                        Máquinas generadoras de hielo en escamas Coldisc® 
                                                                                                                                        Hielo liquido
                                                                                                                                         
                                                                                                                                        Silos de hielo con sistemas de rastrillo 
                                                                                                                                        Silos de heilo modulares 
                                                                                                                                        Sistemas de hielo en contenedores 
                                                                                                                                        
                                                                                                                                        Sistemas de entrega 
                                                                                                                                        Equipos de fabricación de nieve 
                                                                                                                                        Equipos auxiliares 
	*/

	if (ThePage != "drumice"){
		LeftMenuStr = LeftMenuStr + "<br><a href='drumice.htm' onmouseover='CloseMenu();'>Máquinas generadoras de hielo en escamas</a><br>";
	}
	if (ThePage != "colddisc"){
		LeftMenuStr = LeftMenuStr + "<br><a href='coldisc.htm' onmouseover='CloseMenu();'>Máquinas generadoras de hielo en escamas Coldisc®</a><br>";
	}
	if (ThePage != "liqice"){
		LeftMenuStr = LeftMenuStr + "<br><a href='liqice.htm' onmouseover='CloseMenu();'>Hielo liquido</a><br>";	
	}
	if (ThePage != "icerakes"){
		LeftMenuStr = LeftMenuStr + "<br><a href='icerake.htm' onmouseover='CloseMenu();'>Silos de hielo con sistemas de rastrillo</a><br>";	
	}
	if (ThePage != "modrakes"){
		LeftMenuStr = LeftMenuStr + "<br><a href='modrakes.htm' onmouseover='CloseMenu();'>Silos de hielo modulares</a><br>";
	}
	if (ThePage != "contrake"){
		LeftMenuStr = LeftMenuStr + "<br><a href='contrakes.htm' onmouseover='CloseMenu();'>Sistemas de hielo en contenedores</a><br>";
	}
	if (ThePage != "del_sys"){
		LeftMenuStr = LeftMenuStr + "<br><a href='del_sys.htm' onmouseover='CloseMenu();'>Sistemas de entrega</a><br>";
	}
	if (ThePage != "snowmake"){
		LeftMenuStr = LeftMenuStr + "<br><a href='snowmake.htm' onmouseover='CloseMenu();'>Equipos de fabricación<br>de nieve</a><br>";
	}
	if (ThePage != "aux_eq"){
		LeftMenuStr = LeftMenuStr + "<br><a href='aux_eq.htm' onmouseover='CloseMenu();'>Equipos auxiliares</a><br>";
	}
	LeftMenuStr = LeftMenuStr + "</font><br></B>";
	document.write(LeftMenuStr);

}