function SepararCadena (pArray, pCadena, pCar)
{
 var i=0, k=0, vPos=0;
 if (pCadena != '')
 {
  while ( (vPos = pCadena.indexOf (pCar,i) ) !=-1 )
  {
   pArray[k++] = pCadena.substring(i,vPos);
   i = vPos+1;  
  }
  pArray[k] = pCadena.substr(i,pCadena.length);
 }
}

function preload(imgObj,imgSrc)
{
 eval(imgObj+' = new Image()')
 eval(imgObj+'.src = "'+imgSrc+'"')
}


function OCULTAR(div)
{
 if (n) div.visibility = "hide";
 else div.visibility = "hidden";
}


function MOSTRAR(div)
{
 if (n) div.visibility = "show";
 else div.visibility = "visible";
}

function RESITUA(div,pAbsX, pAbsY)
{
 div.left=pAbsX;
 div.top=pAbsY;
}


function VOLCAR(div,text)
{
 if (n)
 {
  var lyr = document.layers[div].document
  lyr.open()
  lyr.write(text)
  lyr.close()
 }
 else document.all[div].innerHTML = text
 //else div.innerHTML = text
}

function VOLCAR_DIV(pDiv,text)
{
 if (n)
 {
  pDiv.document.open()
  pDiv.document.write(text)
  pDiv.document.close()
 }
 else pDiv.innerHTML = text
}

function CLIPAR(div,t,r,b,l)
{
 if (n)
 {
  div.clip.left = l
  div.clip.right = r
  div.clip.top = t
  div.clip.bottom = b
 }
 else div.clip = "rect("+t+"px "+r+"px "+b+"px "+l+"px)";
}


function REPLACE(pCad,pCar1,pCar2)
{
 var pos=0;

 while ( (pos=pCad.indexOf (pCar1,pos)) != -1 ) pCad=(pCad.substr(0,pos)+pCar2+pCad.substr(pos+1,pCad.length-1));
 return (pCad);
}

function Arrodonir(pNum,pPos)
{
 var wRound;
 with (Math)
 {
  wRound=round(pNum*pow(10,pPos))/pow(10,pPos)
 }
 return (wRound);
}

function ArrodoVanguarnet(pNum,pPos)
{
 var i,vPunt,vNum,vEnter,vDecim,vNumDecim;

 if (pPos==0) return (Math.round(pNum));

 vNum  = String(pNum);
 vPunt = vNum.indexOf(".");

 if (vPunt == -1) return (Math.round(pNum));

 vEnter = vNum.substr(0,vPunt);
 vDecim = vNum.substr(vPunt+1,vNum.length-vPunt-1);
 
 if (vDecim.length <= pPos) return (pNum);

 vNumEnter = Number(vEnter);
 vNumDecim = Number(vDecim.substr(0,pPos));

 if ( vDecim.substr(pPos,1) >= 5 )
 {
  vNumDecim++;

  if ( vNumDecim == Math.pow(10,pPos) ) return (vNumEnter+1);
 }

 return ( Number(String(vNumEnter) + "." + String(vNumDecim)) );
}


function FUN_INIT_MOU(pIniX, pIniY, pFinX, pFinY, pSalts, pTemps)
{
 DIVmou.IniX = pIniX;
 DIVmou.IniY = pIniY;
 DIVmou.FinX = pFinX;
 DIVmou.FinY = pFinY;
 DIVmou.Interval = (pTemps/pSalts);
 DIVmou.IncX = (pFinX-pIniX)/pSalts;
 DIVmou.IncY = (pFinY-pIniY)/pSalts;
 DIVmou.Salts = pSalts;
 DIVmou.Salt = 1;
 FUN_MOU();
}

function FUN_MOU()
{
  if (DIVmou.Salt < DIVmou.Salts)
  {
   DIVmou.left = DIVmou.IniX + DIVmou.Salt*DIVmou.IncX;
   DIVmou.top = DIVmou.IniY + DIVmou.Salt*DIVmou.IncY;
   if (DIVmou.Salt==1) MOSTRAR(DIVmou);
   DIVmou.Salt++;
   setTimeout("FUN_MOU()",DIVmou.Interval);
  }
}


function FUN_LOADING(pBuscando)
{
 var wLoading;
 wLoading='<table width=110 border=0 height="103" cellspacing="1" ><tr><td bgcolor="#000000">'+
	    '<table width="110" border=0 height="103" cellspacing="0"><tr><td class="negrelink" align="center" bgcolor="#FFFFFF">'+
	      '<img src="logosol.gif" width="74" height="67"><br>'+
              pBuscando+'</td>'+
          '</tr></table></td></tr></table>';

 VOLCAR('loadingSolDIV',wLoading);

 MOSTRAR(DIVloadingSol);
 MOSTRAR(DIVloadingGris);

}

function SCROLL_LLISTA ( pNumHotels, pNumFilas, pAltura, pAmplada, pItem )
{
 var w_top;
 var w_topsota;
 if (n) 
  {
   w_top = divLlista.top;
   w_topsota = divLlistaSota.top;
  }
  else
  {
   w_top = parseInt(divLlista.top.substr(0,divLlista.top.length-2));
   w_topsota = parseInt(divLlistaSota.top.substr(0,divLlistaSota.top.length-2));
  }

 if ( ((pItem>0) && (w_HotelPrimer > 1)) || ((pItem<0) && (w_HotelPrimer < pNumHotels)) )
 {
  w_top += pItem;
  w_topsota += pItem;
   if (n) 
  {
  divLlista.top = w_top;
  divLlistaSota.top = w_topsota;
  }
  else
  {
  divLlista.top = String(w_top);
  divLlistaSota.top = String(w_topsota);
  }
 }

 if ((pItem>0) && (w_HotelPrimer > 1))
 {
  w_HotelPrimer--;
  CLIPAR (divLlista, pItem * (w_HotelPrimer-1), pAmplada, pAltura + (pItem * (w_HotelPrimer-1)), 0);
  if ((w_HotelActual+1 >= w_HotelPrimer) && (w_HotelActual+1-w_HotelPrimer < pNumFilas)) MOSTRAR(divLlistaSota);
  else OCULTAR(divLlistaSota);
 }

 if ((pItem<0) && (w_HotelPrimer < pNumHotels))
 {
  CLIPAR (divLlista,  - (pItem * w_HotelPrimer), pAmplada, pAltura - (pItem * w_HotelPrimer), 0);
  if ((w_HotelActual >= w_HotelPrimer) && (w_HotelActual-w_HotelPrimer < pNumFilas)) MOSTRAR(divLlistaSota);
  else OCULTAR(divLlistaSota);
  w_HotelPrimer++;
 }
}