function evoEcrireCookie(nom, valeur, delai)
{
 var evotoday = new Date();
 var evotempday = evotoday.getTime() + ( delai * 1000 * 60 * 60 * 24 );
 var evoexpires = new Date(evotempday);
 document.cookie = nom + "=" + escape(valeur) + "; expires=" + evoexpires.toGMTString();
}

function evoGetCookieVal(offset)
{
 var endstr=document.cookie.indexOf (";", offset);
 if (endstr==-1) endstr=document.cookie.length;
 return unescape(document.cookie.substring(offset, endstr)); 
}

function evoLireCookie(nom)
{
 var arg=nom+"=";
 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 evoGetCookieVal(j);
  i=document.cookie.indexOf(" ",i)+1;
  if (i==0) break;
 }
 return null; 
}

if (evoLireCookie('disclok') != 1)
{
 var disc = "Ce site Internet contient des textes, images et vidéos à caractère pornographique qui peuvent choquer certaines sensibilités. Je certifie sur l'honneur :\n";
 var disc = disc + "- Etre majeur selon la loi en vigueur dans mon pays.\n";
 var disc = disc + "- Que les lois de mon état ou mon pays m'autorisent a consulter les pages de ce site web et que ce site web a le droit de me transmettre de telles données.\n";
 var disc = disc + "- Etre informé du caractère pornographique du serveur auquel j'accède.\n";
 var disc = disc + "- Je déclare n'être choqué par aucun type de sexualité et m'interdit de poursuivre les auteurs de ce site web.\n";
 var disc = disc + "- Consulter ce serveur à titre personnel sans impliquer de quelque manière que ce soit une société privée ou un organisme public.\n";
 var disc = disc + "En conséquence, je reconnais :\n";
 var disc = disc + "- Ne pas faire état de l'existence de ce serveur et à ne pas en diffuser le contenu à des mineurs.\n";
 var disc = disc + "- Utiliser tous les moyens permettant d'empécher l'accès de ce serveur à tout mineur.\n";
 var disc = disc + "- Assumer ma responsabilité, si un mineur accède à ce serveur à cause de négligences de ma part : absence de protection de l'ordinateur personnel, absence de logiciel de censure, divulgation ou perte du mot de passe de sécurité.\n";
 var disc = disc + "- Assumer ma responsabilité si une ou plusieurs de mes présentes déclarations sont inexactes.\n";
 var disc = disc + "J'ai noté que les éditeurs de ce site web ont particulièrement insisté pour que je prenne connaissance des conditions d'accès décrites ci-dessus.\n";

 if (!confirm(disc)) 
 {
  window.location.replace("http://www.google.fr");
 }
 else
 {
  evoEcrireCookie('disclok', 1, 1)
 }
}