//******************************FUNCIONES NECESARIAS PARA SEGMENTAR POR IDIOMA LAS LLAMADAS AL SERVIDOR DE BANNERS*******************

function getCookieVal (offset) {  

	var endstr = document.cookie.indexOf (";", offset);  

	if (endstr == -1)    

	endstr = document.cookie.length;  

	return unescape(document.cookie.substring(offset, endstr));

}



function GetCookie (name) {  

	var arg = name + "=";  

	var alen = arg.length;  

	var clen = document.cookie.length;  

	var i = 0;  

	while (i < clen) {    

		var j = i + alen;    

		if (document.cookie.substring(i, j) == arg)      

			return getCookieVal (j);    

		i = document.cookie.indexOf(" ", i) + 1;    

		if (i == 0) break;   

	}  

	return null;

}





//**************************FIN FUNCIONES NECESARIAS PARA SEGMENTAR POR IDIOMA LAS LLAMADAS AL SERVIDOR DE BANNERS*******************

//   ----------------------------------------------

//~~ |Proyecto: Migración de Banners a DoubleClick | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

//   ----------------------------------------------

// seekFileName ()

//--------------------------------------------------------------------------------

// AUTOR	:	Javier Martín EScribano (RS)

//--------------------------------------------------------------------------------

// FECHA	:	29/04/2002

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ RS ~~

function seekFileName(){

	var nPosition;

	sPath = new String();

	sPath = document.location.pathname;

	nPosition = sPath.lastIndexOf('/');

	

	if(nPosition == -1)

	{

		nPosition = sPath.lastIndexOf('\\');

	}

	

	if (sPath.substr(nPosition + 1,sPath.length) == 'publi_estatica.asp') return 'publi_estatica';

	

	if (sPath.substr(nPosition + 1,sPath.length) == 'mapa.asp')

	{

		var querystring = document.location.search;

		if (sPath.indexOf('flash') != '-1')

		{

			//Página del mapa en flash ,busqueda de variables para saber qué caso de mapa es

			var pPosition;

			var nompag;

			if(querystring.indexOf('psecban') != '-1')

			{

				//Miro el valor de psecban

				pPosition = querystring.lastIndexOf('&psecban=');

				if(pPosition != '-1')

				{

					var psecban = querystring.substr(pPosition + 9, 5);

					switch (psecban)

						{

						case 'inter':

							{

								nompag = 'interflash';

								break;

							}

						case 'urban':

							{

								nompag = 'urbanflash';

								break;

							}

						case 'urbco':

							{

								nompag = 'urbcoflash';

								break;

							}

						case 'ptokm':

							{

								nompag = 'ptokmflash';

								break;

							}

						default:

							{

								nompag = 'planoflash';

								break;

							}

						}

					return nompag;

				}

				else

				{

					//devolvemos la sección planos de ciudades flash aunque esto no se debe dar nunca

					return 'planoflash';

				}

			}

			else

			{

				//Debo buscar el parámetro ciudad

				var lowerquerystring;

				lowerquerystring = querystring.toLowerCase();

				pPosition = lowerquerystring.lastIndexOf('?ciudad=espa');

				if(pPosition != '-1')

				{

					nompag = 'localflash';

				}

				else

				{

					nompag = 'planoflash';

				}

				return nompag;

			}



		}

		else return sPath.substr(nPosition + 1,sPath.length);

	}

	else return sPath.substr(nPosition + 1,sPath.length);

}



//   ----------------------------------------------

//~~ |Proyecto: Migración de Banners a DoubleClick | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

//   ----------------------------------------------

// seekParameter (sPattern, sToFind)

//--------------------------------------------------------------------------------

// AUTOR	:	Javier Martín EScribano (RS)

//--------------------------------------------------------------------------------

// FECHA	:	25/04/2002

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ RS ~~

function seekParameter(sPattern, sToFind){

	var ic = 0;

	sResult = new String();

	sResult = sPattern;

	lPos1 = sResult.indexOf(sToFind);

	if (lPos1 != -1){

			for (i = lPos1;i < sResult.length; i++){

				if (sResult.substr(i,1) == '&'){

					break

				}

				else{

					ic++;

				}

			}

	}

	sResult = sResult.substr(lPos1,ic);

	sResult = sResult.substr(sResult.indexOf('=') + 1,sResult.length);

	return sResult;

}





//   ----------------------------------------------

//~~ |Proyecto: Migración de Banners a DoubleClick | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

//   ----------------------------------------------

// insertBanner(sPos,sKey){

//--------------------------------------------------------------------------------

// AUTOR	:	Javier Martín EScribano (RS) / Alberto Bracamonte (RS)

//--------------------------------------------------------------------------------

// FECHA	:	25/04/2002

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ RS ~~		

function insertBanner(sPos,sKey){

	

	adServer = "http://tpiban.paginasamarillas.es";

	adPos = sPos.toLowerCase();

	adSite = "callejerohoy";

	adSec = new String();

	adSec = seekFileName();



	if(adSec.length==0){

		adSec = 'home.asp';

	}

	switch (adSec){

										

		// SECCION HOME

		case 'home_ctm.asp': adSec='rutastransportepublico';break;

		case 'home.asp':		adSec='home';

								if(seekParameter(document.location.href,'multiple=')!=''){

									adSec='listaplano';

								}

								if(seekParameter(document.location.href,'inter=')!=''){

									adSec='rutasinterurbanas';

								}

								if(seekParameter(document.location.href,'urb=')!=''){

									adSec='urbanasapie';

								}

								if(seekParameter(document.location.href,'urbcoche=')!=''){

									adSec='urbanasencoche';

								}

								if(seekParameter(document.location.href,'incid=')!=''){

									adSec='incidenciasdetrafico';

								}

								if(seekParameter(document.location.href,'pk=')!=''){

									adSec='puntokilometrico';

								}

								if(seekParameter(document.location.href,'loc=')!=''){

									adSec='buscadordelocalidades';

								}

								if(seekParameter(document.location.href,'error=')!=''){

									adSec='error';

								}

								if(seekParameter(document.location.href,'webcam=')!=''){

									adSec='webcams';

								}

								break;

								

		// SECCION AYUDA										

		case 'ayuda.asp':		adSec='ayuda';

								break;

		case 'ayuda2.asp':		adSec='ayuda';

								break;

		case 'ayuda3.asp':		adSec='ayuda';

								break;

		case 'ayuda4.asp':		adSec='ayuda';

								break;

		case 'ayuda5.asp':		adSec='ayuda';

								break;

		case 'ayuda6.asp':		adSec='ayuda';

								break;

		// SECCION MAPA

		case 'mapa.asp':	

		case 'planoflash':				adSec='planosciudades';	

										break;

		case 'mapapk.asp':	

		case 'ptokmflash':				adSec='puntokilometrico';

										break;

		case 'maparutasinter.asp':		

		case 'interflash':								

										adSec='rutasinterurbanas';

										break;

		case 'maparutasurb.asp':		

		case 'urbanflash':

										adSec='urbanasapie';

										break;

		case 'maparutasurbcoche.asp':	

		case 'urbcoflash':

										adSec='urbanasencoche';

										break;

		case 'mapaloc.asp':				

		case 'localflash':

										adSec='buscadordelocalidades';

										break;

		case 'sendmap.asp':				

										adSec='enviarplano';

										break;

		

		// SECCION REGISTRO

		case 'alta.shtml':				adSec='registro'

										break;

		case 'alta_persist.asp':		adSec='registro'

										break;

		case 'perfil.asp':				adSec='registro'

										break;

		case 'perfil_persist.asp':		adSec='registro'

							break;

										

		//SECCIÓN EL TIEMPO

		case 'cont_meteo.asp':		adSec='eltiempo';

			 						break;

	}

	adDate = new Date();

	adUUID = adDate.getTime()+""+Math.floor(Math.random()*16777216)+1;

		  

	adStr  = "transactionID="	+ adUUID;

	adStr += "&site=" + adSite;

	adStr += "&posiciones=" + adPos;

	adStr += "&seccion=" + adSec;



	if ((sKey != "undefined") && (typeof(sKey) != "undefined"))

		{

			adStr = adStr + "&provincias="+escape(sKey.toLowerCase());

		}

	

  var idioma = GetCookie ('langtml');

  var adResponse = '';

  var expreg = /minib\d/;

	if (idioma == '') adStr += "&idioma=spa";	  

	else adStr += "&idioma=" + idioma;

	if (expreg.test(adPos) && adSec=='publi_estatica'){

		adResponse = '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;';

	}

	adResponse += '<s'+'cript language="JavaScript1.1" src="'+adServer+'/js.ng/'+adStr+'"></s'+'cript>';

	//alert(adResponse);

	document.write(adResponse); 



}







function insertBannerFlash(sPos,sKey){



	adServer = "http://tpiban.paginasamarillas.es";

	adPos = sPos.toLowerCase();

	adSite = "callejerohoy";

	adSec = new String();

	//adSec = seekFileName();



	adDate = new Date();

	adUUID = adDate.getTime()+""+Math.floor(Math.random()*16777216)+1;

		  

	adStr  = "transactionID="	+ adUUID;

	adStr += "&site=" + adSite;

	adStr += "&posiciones=" + adPos;

	//adStr += "&seccion=" + adSec;

	adStr += "&seccion=enviarplano";



	if ((sKey != "undefined") && (typeof(sKey) != "undefined"))

		{

			adStr = adStr + "&provincias="+escape(sKey.toLowerCase());

		}

	

  var idioma = GetCookie ('langtml');

	if (idioma == '') adStr += "&idioma=spa";	  

	else adStr += "&idioma=" + idioma;	  



	adResponseFlash = adServer + '/image.ng/' + adStr;

	//alert("Mando a MAPA: " + adResponseFlash)

	document.movie.SetVariable("_root.banner",adResponseFlash);

}