function startscr()
  { 
  Gratiscounter();
/*  Cfd(); */
/*  Zaestand(); */
  checkFrameset();
  }

function email1(name)
{
var domain = "institutum-canarium"
var tld = "or&#103"
var link = "<a href='&#109;&#97;&#105;&#108;&#116;&#111;&#58; "+name+"&#64;"+domain+"&#46;"+tld+"'>"+name+"&#64;"+domain+"&#46;"+tld+"</a>";
document.write(link);
random_emails();
}

function random_emails()
{
// The automatic email collectors that are able to crack the JScript email protection will read some more false randomly created email adresses!
// Create 10 Email adresses [fakeMail() in JavaScript]: Kai Wulfert hat fakeMail() nach JavaScript portiert 

var anzahl=10
do
   {
   // Setze Namensvariablen zurueck
   var receiver=""

   // Länge des Empfaengernamens 3 bis 11 Zeichen
   var lnam=3 + Math.round (8 * Math.random ());

   // Länge des Organisationsnamens 3 bis 11 Zeichen
   var lorg=3 + Math.round (8 * Math.random ());

   // 38 erlaubte Zeichen im Empfaengernamen und Organisationsnamen (0 bis 37)
   var zch = new Array ("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", ".", "-");

   // 12 erlaubte Top Level Domains (0 bis 11)
   var tld = new Array (".de", ".com", ".co.uk", ".net", ".org", ".biz", ".info", ".eur", ".gov", ".tv", ".kr", ".tw");

   // Erzeugen des Empfaengernamens
   var i=lnam;
   do
      {
      var zg = Math.round (37 * Math.random ());
      receiver = receiver + zch[zg];
      i--;
      }
   while (i>0);

   // Erzeugen des @-Zeichens
   receiver = receiver + "\@";

   // Erzeugen des Organisationsnamens
   var i=lorg;
   do
      {
      var zg = Math.round (37 * Math.random ());
      receiver = receiver + zch[zg];
      i--;
      }
   while (i>0);

   // Erzeugen der Top Level Domain
   var zg = Math.round (11 * Math.random ());
   receiver = receiver + tld[zg];

   // Ausgabe des kompletten Links
   document.write ("<a href=\"");
   document.write ("mailto:");
   document.write (receiver);
   //document.write ("\">");
   //document.write (receiver);
   //document.write ("</a>, ");
   document.write ("\">");
   document.write ("</a>");
   anzahl--;
   }
while (anzahl>0);
//END

}


function Gratiscounter() 
  {
  ctdatei = new Image(); 
  ctdatei.src = "http://217.111.12.25/log.cgi?df=76724&von="+escape(document.referrer);
  }

function checkFrameset() 
  {
  if(!parent.links) 
  location.href="fstart_s.html?" + location.pathname;
  }

function Wohe()
{
   if(document.referrer.toLowerCase().indexOf('institutum-canarium')<0)
   { 
      var Adres = document.referrer;
   }
   else
   {
       var Adres = "-refic";
   }
return Adres;
}

function Cfd()
  {
  kdatei = new Image(); 
  kdatei.src = "http://home.germany.net/100-496851/stic-j.gif?"+GcocHol()+Wohe();
  }

function GcocHol()
    {
     var Gcoc = "";
     if(document.cookie) 
     {
      Gcoc = document.cookie;
     }
     return Gcoc;
    }

function WertHol()
    {
     var WerA = "";
     if(document.cookie) 
     {
      Wertst = document.cookie.indexOf("=") + 1;
      Werten = document.cookie.indexOf("d");
      if(Werten == -1) Werten = document.cookie.length;
      WerA = document.cookie.substring(Wertst,Werten);
     }
     return WerA;
    }

function WertSet(BezA,WerA,Verfall)
    {
     var jetzt = new Date();
     var Auszeit = new Date(jetzt.getTime() + Verfall);
     var Dtag = jetzt.getDate();
     var Dmon = jetzt.getMonth() + 1;
     var Dst = jetzt.getHours();
     document.cookie=BezA+"="+WerA+"d"+Dtag+"mn"+Dmon+"st"+Dst+"; expires="+Auszeit.toGMTString()+";";
    }

function Zaestand() 
    {
     var Verfallszeit = 1000*60*60*24*365;
     var Anzahl = WertHol();
     var Zae = 0;
     if(Anzahl != "") Zae = parseInt(Anzahl);
     if(document.cookie)
     {
      Zae = Zae + 1;
     WertSet("Zae",Zae,Verfallszeit);
     } 
     else 
     {
      Zae = 1;
      WertSet("Zae",Zae,Verfallszeit);
     } 
    return Zae;
    }