// JAVA SCRIPTING for Web2000 Pages
// (c) 1999,2000 WIS Wiesinger/Schenk & Partner, München

//REFERENCE LINK FUNCTIONS PAGES
//

//self.CheckReferenz('',top.opener,top.document.referrer)

function CheckReferenz(win,refopener,refpage,refdomain) {

 if(win=='' || win==null || win==false) {win=self;}
 if(refopener==null || refopener==false) {refopener='';}
 if(refpage==null || refpage==false) {refpage='';}
 if(refdomain==null || refdomain==false) {refdomain='';}
 if(refopener=='') {refopener=win.opener;}
 if(refpage=='') {refpage=win.document.referrer;}
// win.onerror=null;
 if(refopener==null || refopener==false) {refopener='';}
 if(refpage==null || refpage==false) {refpage='';}
 if(refdomain==null || refdomain==false) {refdomain='';}

//if (refopener!=null) {
if (refopener!='') {
if (refopener.name!=null) {refopener=refopener.name}
  refopener=refopener.toString();
  refopener=refopener.toLowerCase();
  refpage=refpage.toString();
  refpage=refpage.toLowerCase();
  if (refopener.hostname!=null && refopener.hostname!=false) {refdomain=refopener.hostname;}
  if (refdomain==null && refdomain==false && refpage!='') {
    refdomain=refpage.substr(refpage.indexOf('/')+2);
    refdomain=refdomain.substr(0,refdomain.indexOf('/'));
  }
} else if (refpage!='') {
  refopener='';
  refpage=refpage.toString();
  refpage=refpage.toLowerCase();
  refdomain=refpage.substr(refpage.indexOf('/')+2);
  refdomain=refdo