function winopd(A,B) { window.open(pro+A,B,"innerWidth=600,innerHeight=400,width=600,height=400,resizable=0;scrollbars=1") } // DEBUT ANTISELECT function antiselect(e){ return false } function repossible(){ return true } document.onselectstart=new Function ("return false") if (window.sidebar){ document.onmousedown=antiselect document.onclick=repossible } // FIN ANTISELECT var adrmarqvin='' ; var Hotel = "" ; function fordet() { final=("
Vous pouvez obtenir d'autres informations indispensables pour ce département
  hôtels, aéroport(s), liens utiles...
  foires, salons, événements.
  principaux médias référencés.
  préfecture, conseil général, conseil régional, principales villes...

"); if (document.all&&document.readyState=="complete"){ document.all.iesal.innerHTML= final } else if (document.layers){ document.iesal.document.nssal.document.write(final) document.iesal.document.nssal.document.close() } } function dovins() { alphabet = elem2.sort(alphab) final2 = alphabet.join(" ") start="" end="" vins=window.open('','vins','innerWidth=600,innerHeight=400,width=600,height=400,resizable=0,scrollbars=1') vins.document.write(start+final2+adrmarqvin+end) } function writevins() { if(elem2==""){vino=""}else{ vino='
- les producteurs de vins et alcools ayant un site internet.' } } function lienvin(A,B,C,D,E,F,G,H,I,J) { var start1 ; var end1 ; var ender1 ; var start2 ; var end2 ; var picrate ; var Gx ; var Hx ; var Ret if(A == ""){start1 = ""}else{start1 = "")&&(ender1 = "")} if(C == ""){start2 = " "}else{start2 = "E-mail
"} if(I == ""){picrate = " "}else{picrate = "production / appellation : " + I + ""} if(D == ""){Ret = ""}else{Ret="
"}; req1=/\D/gi; req2=G.replace(req1,""); req3=/(..)(..)(..)(..)(..)/gi telme=req2.replace(req3,"$1 $2 $3 $4 $5") rep1=/\D/gi; rep2=H.replace(rep1,""); rep3=/(..)(..)(..)(..)(..)/gi faxme=rep2.replace(rep3,"$1 $2 $3 $4 $5") if(G == ""){Gx=" "}else{Gx="Tel : "+telme}; if(H == ""){Hx=" "}else{Hx="Fax : "+faxme}; jim=B.toLowerCase() if(J==undefined){J=""}; var joe2 exc=/^le\s|^la\s/; exc2=/^l'/; exc3=/^les\s/; exec=/(..)(.)(.*$)/gi; exec2=/(..)(.*)/gi; exec3=/(...)(.)(.*$)/gi; Fini=F.toLowerCase() if (exc.test(Fini)){ joe=F.replace(exec,"($1) $3") }else if(exc2.test(Fini)){ joe=F.replace(exec2,"($1) $2") }else if(exc3.test(Fini)){ joe=F.replace(exec3,"($1) $3") }else{joe=F} p=/\s(cedex).*$/gi p2=/^\(.*\)\s/gi joeint=joe.split(p).toString() joeint2=joeint.split(p2).toString() jrep=/\-/gi joeint2b=joeint2.replace(jrep,"z"); joe2=joeint2b.toLowerCase() if(F==""){joe2="zzz"} return("
 " + J + "
" + start1 + A + end1 + B + ender1 + "
" + D + Ret + E + " " + joe + "
" + start2 + C + end2 + "
" + Gx + "
" + Hx+"
"+picrate+"

") } function lienresto(R,A,B,C,D,E,F,G,H,K,J) { var start1 ; var end1 ; var ender1 ; var start2 ; var end2 ; var Gx ; var Hx ; var Ret if(A == ""){start1 = ""}else{start1 = "")&&(ender1 = "")} if(C == ""){start2 = " "}else{start2 = "E-mail
"} req1=/\D/gi; req2=G.replace(req1,""); req3=/(..)(..)(..)(..)(..)/gi telme=req2.replace(req3,"$1 $2 $3 $4 $5") rep1=/\D/gi; rep2=H.replace(rep1,""); rep3=/(..)(..)(..)(..)(..)/gi faxme=rep2.replace(rep3,"$1 $2 $3 $4 $5") if(G == ""){Gx=" "}else{Gx="Tel : "+telme}; if(H == ""){Hx=" "}else{Hx="Fax : "+faxme}; if(D == ""){Ret = ""}else{Ret="
"}; john=B.toLowerCase() if(J==undefined){J=""}; exc=/^le\s|^la\s/; exc2=/^l'/; exc3=/^les\s/; exec=/(..)(.)(.*$)/gi; exec2=/(..)(.*)/gi; exec3=/(...)(.)(.*$)/gi; Fini=F.toLowerCase() if (exc.test(Fini)){ joe=F.replace(exec,"($1) $3") }else if(exc2.test(Fini)){ joe=F.replace(exec2,"($1) $2") }else if(exc3.test(Fini)){ joe=F.replace(exec3,"($1) $3") }else{joe=F} p=/\s(cedex).*$/gi p2=/^\(.*\)\s/gi joeint=joe.split(p).toString() joeint2=joeint.split(p2).toString() jrep=/\-/gi joeint2b=joeint2.replace(jrep,"z"); joe2=joeint2b.toLowerCase() return("
 " + J + "" + R + "
" + start1 + A + end1 + B + ender1 + "
Chef : " + K + "
" + D + Ret + E + " " + joe + "
" + start2 + C + end2 + "
" + Gx + "
" + Hx + "

") } function alphab(a,b) { if(a>b) return 1 ; if(a