/* Librairie */
_RESEAU=18; 
var wbo18_pub_loaded=1;
var wbo18_open_pop=1;
var wbo18_is_safari=0;
var wbo18_opok=1;
function wf_uaO(c)
{
	var wf_ual=navigator.userAgent.toLowerCase();
	return(wf_ual.indexOf(c))
}

function wbo18_nopuviewonpage()
{ 
	var start = document.cookie.indexOf('wboloc=');
	if (start == -1)
	{
		return true;
	}
	var subcook = document.cookie.slice(start);
	var splcook = subcook.split(";");
	subcook = splcook[0];
	var split = subcook.split("=");
	var escloc = escape(document.location);
	if (escloc == split[1])
	{
		return false;
	}
	return true;
}

/* Attention appeler avec les parametres */
function aimfar(_WTHEMA){
	var reply=0;
	var wbo18_jver=parseInt(navigator.appVersion);
	var wbo18_is_moz=(wf_uaO('gecko')!=-1);
	var wbo18_is_mac=(wf_uaO('mac')!=-1);
	var wbo18_is_opera=(wf_uaO('opera')!=-1);
	if(wbo18_is_opera||wbo18_is_moz)
	{
		wbo18_opok=0;
		wbo18_open_pop=0
	}
	if(wf_uaO('safari')!=-1)
	{
		wbo18_is_safari=1;
		wbo18_opok=0;
		wbo18_open_pop=0
	}
	var wbo18_aff_pub=((wbo18_jver >=5)||((wbo18_jver==4)&&(wf_uaO("msie")!=-1)&&(wf_uaO("msie 4")==-1)&&(wf_uaO("aol")==-1)));
	if(wbo18_aff_pub){
		document.cookie='wbo18pre=1; path=/';
		if((document.cookie.indexOf('wbo18pre=1')>=0)&&wbo18_nopuviewonpage()){
			if(document.cookie.indexOf('wbo18post=1')==-1){
				//document.write('<scrip'+'t src="'+_LIB_AIMFAR+'"></scr'+'ipt>');
				var wbs_da=new Date();
				var wbs_ta='0x0';
				var wbs_rand = wbs_da.getTime()%100;
				var wbs_das=parseInt(wbs_da.getTime()/1000-60*wbs_da.getTimezoneOffset());
				var wbs_conn='';
				if((!wbo18_is_mac)&&(!wbo18_is_opera)){
					var msieind=navigator.userAgent.indexOf('MSIE');
					if(msieind > 0){
						if(parseInt(navigator.userAgent.charAt(msieind+5))>=5){
							document.body.addBehavior("#default#clientCaps");
							wbs_conn=document.body.connectionType
						}
					}
				}
				var wbo18_code_pub='http://pub.weborama.fr/fcgi-bin/aimfar/aimfar_js.fcgi?RESEAU='+_RESEAU+'&ID='+escape('0')+'&wthema='+escape(_WTHEMA)+'&rd='+wbs_rand+"&ta="+wbs_ta+"&da2="+wbs_das+"&conn="+wbs_conn+"&wcook=1&wpok="+wbo18_open_pop;
				document.write("<scr"+"ipt src='"+wbo18_code_pub+"'></scr"+"ipt>");
				reply=1;
				document.cookie='wboloc='+escape(document.location)+'; path=/';
				document.cookie='wbo18post=1';
			}
		}


	}
	return reply;
}

url=(''+window.location).split('weborama=');
weborama = url[url.length-1];

if (isNaN(weborama)) weborama = -1;
else {
	if (weborama < 0 || weborama > 31) weborama = -1;
}

var site = ''+window.location;
var site2 = site.split("http://");
var site3 = site2[1];
var site4 = site3.split("/");
var site5 = site4[0];
var site6 = site5.search(/iespana.es/);
if (site6 == -1) { pub_weborama = aimfar(weborama); }