// JAVA SCRIPTING for Web2000 Pages
// (c) 1999-2004 WIS Wiesinger/Schenk & Partner, München
//
// PARTS OF MAIN001.JS
//DEFAULT FUNCTIONS SET+GET VARS
//
function setvar(topwin,pagewin) {
  if (this.topwin==null || this.topwin==false) {this.topwin='';}
  if (this.pagewin==null || this.pagewin==false) {this.pagewin='';}
  if (topwin!='') {this.topwin=topwin;}
  if (pagewin!='') {this.pagewin=pagewin;}
  //this.pagewinmark='';
}
function setvarmark(pagewinmark) {
  if (this.pagewinmark==null || this.pagewinmark==false) {this.pagewinmark='';}
  if (pagewinmark!='') {this.pagewinmark=pagewinmark;}
}
function setvarref(win,pagerefopener,pagerefdomain,pagereflink) {
if (win==null || win=='' || win==false) {win=window;}
  //with (win) {
  if (this.pagerefopener==null || this.pagerefopener==false) {this.pagerefopener='';}
  if (this.pagerefdomain==null || this.pagerefdomain==false) {this.pagerefdomain='';}
  if (this.pagereflink==null || this.pagereflink==false) {this.pagereflink='';}

  if (pagerefopener!='') {this.pagerefopener=pagerefopener;}
  if (pagerefdomain!='') {this.pagerefdomain=pagerefdomain;}
  if (pagereflink!='') {this.pagereflink=pagereflink;}
  //}
}

function setguest(gallname,gname,gsurname,gtitel,gcompany,gemail,gphone) {
 win='';
// if (win=='' || win==null || win==false) {win=top.opener;}
 if (win=='' || win==null || win==false) {win=top;}
 if (win=='' || win==null || win==false) {win=window;}
// if (top.refopener!=null && top.refopener!='' ) {win=top.refopener;}
 if (win.name!="Web") {win=window;}
  if (gallname.indexOf(',')!=-1) {  //name,vorname,anrede
    gtitel=gallname.substr(gallname.lastIndexOf(',')+1)
    gallname=gallname.substr(0,gallname.lastIndexOf(','))
    gsurname=gallname.substr(gallname.lastIndexOf(',')+1)
    gallname=gallname.substr(0,gallname.lastIndexOf(','))
    gname=gallname; gallname=''
  }
 var guest=gallname+";"+gname+";"+gsurname+";"+gtitel+";"+gcompany+";"+gemail+";"+gphone;
 guestold=top.GetCookie('Guest',win);
 if (guest != guestold) {top.SetCookie('Guest',guest,win);}
}
function getguest(gallname,gname,gsurname,gtitel,gcompany,gemail,gphone) {
 win='';
// if (win=='' || win==null || win==false) {win=top.opener;}
 if (win=='' || win==null || win==false) {win=top;}
 if (win=='' || win==null || win==false) {win=window;}
// if (top.refopener!=null && top.refopener!='' ) {win=top.refopener;}
 if (win.name!="Web") {win=window;}
 guest=top.GetCookie('Guest',win);
 if (guest==null || guest==false) {guest='';}
 if (guest !='') {
//   if (gname==null || gname=='') {gname=theForm.KontaktName}
//   if (gsurname==null || gsurname=='') {gsurname=theForm.KontaktVorname}
//   if (gtitel==null || gtitel=='') {gtitel=theForm.KontaktAnrede}

   b=0; e=0; x=''
   //b=0;e=guest.indexOf(";",b+1);
   //x=guest.slice(b,e);
   e=guest;
   x= e.substr(0,e.indexOf(';')); e=e.substr(e.indexOf(';')+1);
   if(x.substr(0,1)==';') {x=x.substr(1) }
//       gallname.value=x
   if (x!='') {
     if (x.indexOf(',')!=-1) {  //name,vorname,anrede
       gtitel.value=x.substr(x.lastIndexOf(',')+1)
       x=x.substr(0,x.lastIndexOf(','))
       gsurname.value=x.substr(x.lastIndexOf(',')+1)
       x=x.substr(0,x.lastIndexOf(','))
       gname.value=x;
     } else {
       gallname.value=x
     }
   }
   x= e.substr(0,e.indexOf(';')); e=e.substr(e.indexOf(';')+1); if (x!='') {gname.value=x}
   x= e.substr(0,e.indexOf(';')); e=e.substr(e.indexOf(';')+1); if (x!='') {gsurname.value=x}
   x= e.substr(0,e.indexOf(';')); e=e.substr(e.indexOf(';')+1);
     if (x!='') {
       if (gtitel.type=='Text') {
         gtitel.value=x
       } else {
         for(i=0;i<gtitel.options.length;i++) {
           if (x=gtitel.options[i].value) { gtitel.selectedIndex = i;i=gtitel.options.length+1}
         }
       }
     }
   x= e.substr(0,e.indexOf(';')); e=e.substr(e.indexOf(';')+1); if (x!='') {gcompany.value=x}
   x= e.substr(0,e.indexOf(';')); e=e.substr(e.indexOf(';')+1); if (x!='') {gemail.value=x}
   x= e.substr(0,e.indexOf(';')); e=e.substr(e.indexOf(';')+1); if (x!='') {gphone.value=x}
   //b=e+1;e=guest.indexOf(";",e+1); x=guest.slice(b,e); if (x!='') {gname.value=x}
   //b=e+1;e=guest.indexOf(";",e+1); x=guest.slice(b,e); if (x!='') {gsurname.value=x}
   //b=e+1;e=guest.indexOf(";",e+1); x=guest.slice(b,e); if (x!='') {gtitel.value=x}
   //b=e+1;e=guest.indexOf(";",e+1); gcompany.value=guest.slice(b,e);
   //b=e+1;e=guest.indexOf(";",e+1); gemail.value=guest.slice(b,e);
   //b=e+1;e=guest.indexOf(";",e+1); gphone.value=guest.slice(b);
 }
}
function getguestname(gallname) {
window.onError=null;
 win='';
// if (win=='' || win==null || win==false) {win=top.opener;}
 if (win=='' || win==null || win==false) {win=top;}
 if (win=='' || win==null || win==false) {win=window;}
 if (win.name!="Web") {win=window;}
 guest=top.GetCookie('Guest',win);
 gallname='';
 if (guest==null || guest==false) {guest='';}
 if (guest !='') {
   var b=0;
   var e=0;
   b=0;e=guest.indexOf(";",b+1);
   var gallname=guest.slice(b,e);
 }
 return (gallname);
}

function settimeid(timeid) {
this.timeid=timeid;
}

function setformvars(theForm,opt) {
  if (opt==null) {opt=''}
  //PREDEF RESET VARS
  if (opt=='') {opt='RESET' }

  if (top.formvars==null) {top.formvars=''}
  if (opt.indexOf('RESET')!=-1 || opt=='') {top.formvars=''}

  if (theForm.elements!=null) {
    a='';a1='';n='';v='';i=0;i1=0
    for(i=0;i<theForm.length;++i) {
      a1='';n='';v=''
      if (theForm.elements[i].type=='radio_') {
        if (n!=theForm.elements[i].name) {
          n=theForm.elements[i].name; v=theForm.elements[i].value
          a1=a1+theForm.elements[i].name+'='+theForm.elements[i].value
        }
      } else if (theForm.elements[i].type=='select-one') {
        n=theForm.elements[i].name; v=''
        a1=a1+theForm.elements[i].name+'='

        if (theForm[n].selectedIndex >= 0) {
          v=theForm[n].options[theForm[n].selectedIndex].value
          a1=a1+ theForm[n].options[theForm[n].selectedIndex].value
        }

      } else if (theForm.elements[i].type=='checkbox') {
        n=theForm.elements[i].name; v=''
        a1=a1+theForm.elements[i].name+'='
        if (theForm.elements[i].checked==true) {
          v=theForm.elements[i].value
          a1=a1+theForm.elements[i].value
        }

      } else if (theForm.elements[i].type=='radio') {
        n=theForm.elements[i].name; v=''
        //a1=a1+theForm.elements[i].name+'='
        if (a.indexOf(theForm.elements[i].name)==-1) {
          if (i!=0 || a.indexOf('&'+theForm.elements[i].name)==-1) {a=a+"&"+n+'='}
          else if (i!=0 || a.indexOf(theForm.elements[i].name)==-1) {a=a+n+'='}
        }
        if (theForm.elements[i].checked==true) {
          //a1=a1+theForm.elements[i].name+'='
          v=theForm.elements[i].value
          //a1=a1+theForm.elements[i].value
          a=a+v
        } else {
        }
        a1=''; n=''; v='';  //nichts mehr anhängen

      } else {
        n=theForm.elements[i].name; v=theForm.elements[i].value
        a1=a1+theForm.elements[i].name+'='+theForm.elements[i].value
      }
      if (opt.indexOf('RESET')!=-1) {
        if (n+v!='') {
          if (i!=0 || n!=theForm.elements[0].name) {a=a+"&"}
          a=a+ n+'='+v
        }
      } else if (opt.indexOf('REPLACE')!=-1) {
      } else if (opt.indexOf('URL')!=-1) {
        v=escape(v)
        if (i!=0 || n!=theForm.elements[0].name) {a=a+"&"}
        a=a+ n+'='+v
      } else {
        if (a1!='') {
          //if (i+1<theForm.length) {a1=a1+"&"}
          //a=a+a1
          if (i!=0 || n!=theForm.elements[0].name) {a=a+"&"}
          a=a+ a1
        }
      }
      a1=''; n=''; v='';

    }
    if (opt.indexOf('RET')!=-1) {
      return (a)
    } else {
      top.formvars=a;
    }
    a=''
  }
}
//    a=getformvars('CertClass')
//    alert(a)
//    return(false)
function getformvars(field) {
  if (field==null) {field=''}
  a='';a1='';a2='';field=field.toUpperCase();
  if (field!='') {
    if (top.formvars!=null) {
      a=top.formvars; a2=a.toUpperCase()
      if (a2.indexOf('&'+field+'=')!=-1) {
        a1=a.substring(a2.indexOf('&'+field+'=')+1)
      } else {
        //a1='NoData '+field
      }
    } else {
      //a1='NoData'
    }
    if (a1=='') {
      a=top.location;a=a.toString();a2=a.toUpperCase()
      if (a2.indexOf(field+'=')!=-1) {
        a1=a.substring(a2.indexOf(field+'='))
      } else if (field.indexOf('ANF')!=-1) {
        field=field.substr(3)
        if (a2.indexOf(field+'=')!=-1) { a1=a.substring(a2.indexOf(field+'=')) }
      } else if (field.indexOf('ANFORDERUNG')!=-1) {
        field=field.substr(11)
        if (a2.indexOf(field+'=')!=-1) { a1=a.substring(a2.indexOf(field+'=')) }
      } else if (field.indexOf('ORDER')!=-1) {
        field=field.substr(5)
        if (a2.indexOf(field+'=')!=-1) { a1=a.substring(a2.indexOf(field+'=')) }
      } else if (field.indexOf('FIELD')!=-1) {
      }
    }
  } else {
  }
  if (a1!='') {
    if (a1.indexOf('&')!=-1) { a1=a1.substring(0,a1.indexOf('&')) }
    if (a1.indexOf('#')!=-1) { a1=a1.substring(0,a1.indexOf('#')) }
    if (a1.indexOf('!')!=-1) { a1=a1.substring(0,a1.indexOf('!')) }
    if (a1.indexOf('=')!=-1) { a1=a1.substring(a1.indexOf('=')+1) }
    if (a1==null) {a1=''} else {a1=unescape(a1) }
  }
  return (a1)
}
function setformvars2fo(win,field,val,opt) {
  if (win==null) {win=window}
  if (field==null) {field=''}
  if (val==null) {val=''}
  if (opt==null) {opt=''}
  if (opt.indexOf('ALL')!=-1 || field=='') {field='ALL'}
  if (opt.indexOf('VAR')!=-1 || field=='') {field='VAR'}
  theForm=''; theForm0=''
//  alert(top.WebTop.document.name)
  if (top.WebTop.document!=null) {
    if (top.WebTop.document.forms[0]!=null) { theForm0=top.WebTop.document.forms[0] }
  }
  if (win.document.forms[0]!=null) { theForm=win.document.forms[0] }
//alert(field+":"+val+":"+opt)
  if (field!='') {
      a=''
      if (field=='ALL' || opt.indexOf('ALL')!=-1 || val=='ALL') {
        a='';i=0;i1=0
        if (theForm!='' && theForm0!='') {
          for(i=0;i<theForm.length;++i) {
            field=theForm.elements[i].name
            if (field.indexOf('head')==-1 && field.indexOf('AUTO')==-1) {
              if (theForm.elements[field]!=null && theForm0.elements[field]!=null) {
                theForm0[field].value = theForm[field].value //.elements
              }
            }
          }
        }
      } else if (field=='VAR' || opt.indexOf('VAR')!=-1 || val=='VAR') {
        a='';i=0;i1=0
        if (theForm!='' && theForm0!='') {
          for(i=0;i<theForm.length;++i) {
            field=theForm.elements[i].name
            if (field.indexOf('WFo')==-1 && field.indexOf('head')==-1 && field.indexOf('BT')==-1&& field.indexOf('AUTO')==-1) {
              if (theForm.elements[field]!=null) {
                // && theForm0.elements[field]!=null

                theForm0.TEMP1.value=''
                with (win) { if (self["v_"+field]!=null) {theForm0.TEMP1.value=self["v_"+field] } }
                // if (theForm0.TEMP1.value==null || theForm0.TEMP1.value=='undefined') { theForm0.TEMP1.value='' }
                if (theForm0.TEMP1.value!=null) {
                  theForm[field].value = theForm0.TEMP1.value
                  if (theForm0.elements[field]!=null) { theForm0[field].value = theForm0.TEMP1.value }
                }
              }
            }
          }
        }
      } else {
        if (val!='') {
          a=val
        } else {
          if (theForm!='') {
            if (theForm.elements[field]!=null) { a=theForm[field].value }
          }
        }
        if (theForm0!='') {
          if (theForm0.elements[field]!=null) { theForm0[field].value = a }
        }
      }
      if (opt.indexOf('RESET')!=-1) {
        if (theForm0!='') { top.setformvars(theForm0) }
      }

  }
}

function getformvars0(win,field,opt) {
  if (win==null) {win=window}
  if (field==null) {field=''}
  if (opt==null) {opt=''}
  if (opt=='ALL' || field=='') {field='ALL'}
  theForm0=top.WebTop.document.forms[0]
  theForm=win.document.forms[0]
  if (field!='') {
    a=''
    if (field=='ALL' || opt=='ALL') {
      a='';i=0;i1=0
      for(i=0;i<theForm.length;++i) {
        field=theForm.elements[i].name
        if (field.indexOf('head')==-1 && field.indexOf('AUTO')==-1) {
          if (theForm.elements[field]!=null && theForm0.elements[field]!=null) {
            theForm[field].value = theForm0[field].value  //.elements
          }
        }
      }
    } else {
      if (theForm0.elements[field]!=null) { a = theForm0[field].value }

      if (opt=='RET') {
        return (a)
      } else {
        if (theForm.elements[field]!=null) { theForm[field].value=a }
      }
    }
  }

}

function setfheadvar(headtitel,headdatetime,headip,headtyp,headan,headvon,headbetreff,headprio,headtermin) {
  win=top;
  win.fheadtitel = headtitel;
  win.fheaddatetime = headdatetime;
  win.fheadip = headip;
  win.fheadtyp = headtyp;
  win.fheadan = headan;
  win.fheadvon = headvon;
  win.fheadbetreff = headbetreff;
  win.fheadprio = headprio;
  win.fheadtermin = headtermin;
}
function getfheadvar(a) {
  win=top;
  switch (a) {
  case 'headtitel':
      headtitel = win.fheadtitel;
      return headtitel;
      break;
  case 'headdatetime':
      headdatetime = win.fheaddatetime;
      return headdatetime;
      break;
  case 'headip':
      headip = win.fheadip;
      return headip;
      break;
  case 'headtyp':
      headtyp = win.fheadtyp;
      return headtyp;
      break;
  case 'headan':
      headan = win.fheadan;
      return headan;
      break;
  case 'headvon':
      headvon = win.fheadvon;
      return headvon;
      break;
  case 'headbetreff':
      headbetreff = win.fheadbetreff;
      return headbetreff;
      break;
  case 'headprio':
      headprio = win.fheadprio;
      return headprio;
      break;
  case 'headtermin':
      headtermin = win.fheadtermin;
      return headtermin;
      break;
  default:
  }
}

function setfkontaktvar(KontaktName,KontaktFirma,KontaktEMail,KontaktTelefon,Info,Doc) {
  win=top;
  if (KontaktName.indexOf(',')!=-1) {  //name,vorname,anrede
    KontaktAnrede=KontaktName.substr(KontaktName.lastIndexOf(',')+1)
    KontaktName=KontaktName.substr(0,KontaktName.lastIndexOf(','))
    KontaktVorname=KontaktName.substr(KontaktName.lastIndexOf(',')+1)
    KontaktName=KontaktName.substr(0,KontaktName.lastIndexOf(','))
  } else {
    KontaktVorname='?'; KontaktAnrede='?'
  }
  if(KontaktName!='?') {win.fKontaktName = KontaktName;}
  if(KontaktVorname!='?') {win.fKontaktVorname = KontaktVorname;}
  if(KontaktAnrede!='?') {win.fKontaktAnrede = KontaktAnrede;}
  if(KontaktFirma!='?') {win.fKontaktFirma = KontaktFirma;}
  if(KontaktEMail!='?') {win.fKontaktEMail = KontaktEMail;}
  if(KontaktTelefon!='?') {win.fKontaktTelefon = KontaktTelefon;}
  if(Info!='?') {win.fInfo=Info;}
  if (Doc!=false || Doc!=null) {if(Doc!='?') {win.fDoc=Doc;}}
}
function getfkontaktvar(a) {
  win=top;
  switch (a) {
  case 'KontaktName':
      if (fKontaktName==null) {win.fKontaktName='';}
      KontaktName = win.fKontaktName;
      return KontaktName;
      break;
/*
  case 'KontaktVorname':
      if (fKontaktVorname==null) {win.fKontaktVorname='';}
      KontaktVorname = win.fKontaktVorname;
      return KontaktVorname;
      break;
  case 'KontaktAnrede':
      if (fKontaktAnrede==null) {win.fKontaktAnrede='';}
      KontaktAnrede = win.fKontaktAnrede;
      return KontaktAnrede;
      break;
*/
  case 'KontaktFirma':
      if (fKontaktFirma==null) {win.fKontaktFirma='';}
      KontaktFirma = win.fKontaktFirma;
      return KontaktFirma;
      break;
  case 'KontaktEMail':
      if (fKontaktEMail==null) {win.fKontaktEMail='';}
      KontaktEMail = win.fKontaktEMail;
      return KontaktEMail;
      break;
  case 'KontaktTelefon':
      if (fKontaktTelefon==null) {win.fKontaktTelefon='';}
      KontaktTelefon = win.fKontaktTelefon;
      return KontaktTelefon;
      break;
  case 'Info':
      if (fInfo==null) {win.fInfo='';}
      Info = win.fInfo;
      return Info;
      break;
  case 'Doc':
      if (fDoc==null) {win.fDoc='';}
      Doc = win.fDoc;
      return Doc;
      break;
  default:
  }
}

//Cookie Verarbeitung
function setXID(win,cname,opt,opt1,opt2) {
  if (win=='' || win==null || win==false) {win=window;}
  if (cname==null) {cname='WIS'} // cookie name
  cname=cname.toUpperCase()
  if (opt==null) {opt=''}        // values cookie oder commands for kind of cookie
  if (opt1==null) {opt1=''}      // commands for kind of cookie
  if (opt2==null) {opt2=''}      // commands for set var: V=top.var, F=Form (only form 0),RET=return, MSG=Message with cookie value, +D=add Date to cookie; multiplie can be used seperate with space
  theForm='';
  if (win.document!=null) {
    if (win.document.forms[0]!=null) { theForm=win.document.forms[0] }
  }
  i=''; i1=''; i2=''; cval='';
  opt1=opt1.toUpperCase();opt2=opt2.toUpperCase();
  i1=self.location;i1=i1.toString();i1=i1.toUpperCase();
  i2=top.location;i2=i2.toString();i2=i2.toUpperCase();

  //SONDERFALL SEITEN PID'S MIT TOP LOCATION
  if (i2.indexOf('PID=WIS')!=-1 && i2.indexOf('SET')==-1) {i2=i2+'&SET'}    //WIS SEITEN
  if (i2.indexOf('PID=GS')!=-1 && i2.indexOf('SET')==-1) {i2=i2+'&SET'}     //GS SEITEN
  if (i2.indexOf('PID=RA')!=-1 && i2.indexOf('SET')==-1) {i2=i2+'&SET'}     //GSRA SEITEN
  if (i2.indexOf('PID=TO')!=-1 && i2.indexOf('SET')==-1) {i2=i2+'&SET'}     //TObit SEITEN
  if (i2.indexOf('PID=TS')!=-1 && i2.indexOf('SET')==-1) {i2=i2+'&SET'}     //TrustedShop SEITEN
  if (i2.indexOf('PID=EP')!=-1 && i2.indexOf('SET')==-1) {i2=i2+'&SET'}     //E-Prompt SEITEN
  if (i2.indexOf('PID=IN')!=-1 && i2.indexOf('SET')==-1) {i2=i2+'&SET'}     //Intra2Net SEITEN
  if (i2.indexOf('PID=GK')!=-1 && i2.indexOf('SET')==-1) {i2=i2+'&SET'}     //GOOGLE ANZEIGEN

  if ( (i1.indexOf(cname+'=')!=-1 && i1.indexOf('NEW')!=-1) || (i2.indexOf(cname+'=')!=-1 && i2.indexOf('NEW')!=-1)) { opt1=opt1+' NEW' }
  if ( (i1.indexOf(cname+'=')!=-1 && i1.indexOf('SET')!=-1) || (i2.indexOf(cname+'=')!=-1 && i2.indexOf('SET')!=-1)) { opt1=opt1+' SET' }
  if ( (i1.indexOf(cname+'=')!=-1 && i1.indexOf('DEL')!=-1) || (i2.indexOf(cname+'=')!=-1 && i2.indexOf('DEL')!=-1)) { opt1=opt1+' DEL' }
  i1=''; i2='';
  if (  opt1.indexOf('NEW')==-1 && opt.indexOf('NEW')==-1 ) {i=GetCookie(cname,top) }                  // set NEW Cookie, ignorie previus cookie value
  if (  opt1.indexOf('SET')!=-1 || opt.indexOf('SET')!=-1 ) {i=''}                                     // SET the Cookie value - ignore other values i.e. in url
  if ( (opt1.indexOf('DEL')!=-1 || opt.indexOf('DEL')!=-1 ) && i!='') {i=''; DeleteCookie(cname,top)}  // DELete cookie
  //if (  opt1=='PRESET') {i=''}                                               // PRESET value (=DEFAULT), used if no value in url is availibly
  //if (  opt1=='READ') {i=''}                                                 // only READ value for cookie
  if (i==null) {i=''}

  if (i.indexOf('PID=')!=-1) { i=i.substr(i.indexOf('PID=')) } //Suchen PID
  if (i.indexOf('&')!=-1) { i=i.substr(0,i.indexOf('&')) } //Abschneiden Search Werte
  if (i.indexOf('#')!=-1) { i=i.substr(0,i.indexOf('#')) } //Abschneiden Hash Werte

  if (i!=null && i!='') {
    cval=i; i1=i;
  } else {
    //i = opt
    i=''
    if (theForm!='') { if (i.indexOf('PID=')==-1) { i=theForm.headmessageid.value  } }
    if ( top[cname]!=null) { if (i.indexOf('PID=')==-1) { i= top[cname]  } }
   // if (i.indexOf(cname+'=')==-1) { i=self.location;i=i.toString() }
    if (i.indexOf(cname+'=')==-1) { i=top.location;i=i.toString()  }
    if (i.indexOf(cname+'=')!=-1) {
      cval=i.substr(i.indexOf(cname+'=')+4)
      if (cval.indexOf('&')!=-1) { cval=cval.substr(0,cval.indexOf('&')) } //Abschneiden Search Werte
      if (cval.indexOf('#')!=-1) { cval=cval.substr(0,cval.indexOf('#')) } //Abschneiden Hash Werte
      if (cval.indexOf(';')!=-1) { cval=cval.substr(0,cval.indexOf(';')) }
    }
  }
  if ( opt1=='SET' && opt!='' ) {cval=opt;} //;i=opt
  if ( opt1=='PRESET' && opt!='' && cvald=='') {cval=opt;} //;i=opt

  i=i1
  if (cval=='DEL') {
    DeleteCookie(cname,top)
    cval=''
  } else if (cval=='READ' || opt1.indexOf('READ')!=-1 || opt.indexOf('READ')!=-1 ) {
    //  || opt1=='NEW' || opt=='NEW'
  } else {
    if (cval!='') {
      if (opt2.indexOf('+D')!=-1 && cval.indexOf(.20)==-1) {
        if (cval.indexOf(',')!=-1) {
          cval=cval.substr(0,cval.indexOf(','))        //Abschneiden Datumswerte
        }
        cval=cval+', '+GetDate('D')
      }
      if (i.indexOf(cval)==-1) { SetCookie(cname,cval,top) }
    } else {
      //i1=GetCookie(cname) //,top)
      if (i==null || i=='') {
        if (cval!='') { SetCookie(cname,cval,top) }
      }
    }
  }
  if (GetCookie(cname,top)==cval && cval!='') {
    if (opt2.indexOf('FORM')!=-1 && theForm!='') { theForm.headmessageid.value= cname+'='+cval+';' }
    if (opt2.indexOf('VAR')!=-1)                { top[cname]=cname+'='+cval+';' }
    if (opt2.indexOf('RET')!=-1)                { return (cname+'='+cval+';') }
    if (opt2.indexOf('MSG')!=-1)                { alert ('Das Cookie mit dem Namen: '+cname+' \nhat den folgenden Wert: \n'+cval+'') }
  } else {
    if (opt2.indexOf('FORM')!=-1 && theForm!='') { theForm.headmessageid.value= cname+'='+cval+';NoCookie' }
    if (opt2.indexOf('VAR')!=-1)                { top[cname]=cname+'='+cval+';NoCookie' }
    if (opt2.indexOf('RET')!=-1)                { return (cname+'='+cval+';NoCookie') }
    if (opt2.indexOf('MSG')!=-1)                { alert ('Das Cookie mit dem Namen: '+cname+' \nhat keinen Wert gesetzt'+cval+'') }
  }
  //if (GetCookie(cname,top)!='') { alert(top['cname']+":"+GetCookie(cname,top)) }
}
//PartnerID lesen/setzen
function setPID(win,opt,opt1,opt2) {
  if (win=='' || win==null || win==false) {win=window;}
  if (opt==null) {opt=''}; if (opt1==null) {opt1=''}; if (opt2==null) {opt2=''}
  ret=setXID(win,'PID',opt,opt1,opt2)
  if (ret.indexOf('function')!=-1) {ret=''}
  if (opt2.indexOf('RET')!=-1) { return (ret) }
}

function pagegettitel(win,opt) {
  if (win=='' || win==null || win==false) {win=top.opener;}
  if (win==null || win==false) {win=window;}
  i=true
  titel=''
  window.onError=null;
  window.onError="i=false";
  s=top.location; s=s.toString();
  if (s.indexOf('!OPTITEL=')!=-1) {
    s=s.substr(s.indexOf('!OPTITEL=')+9)
    if (s.indexOf('?')!=-1) {
      s1=s.substr(0,s.indexOf('?'));s=s.substr(s.indexOf('?')+1);
      if (s.substr(0,1)=='+') { s=s1+' '+s.substr(1)}
      if (s.substr(s.length-1,1)=='+') { s=s.substr(0,s.length-1)+' '+s1}
    }
    if (s.indexOf('#')!=-1) { s=s.substr(0,s.indexOf('#')) }
    while (s.indexOf('%20')!=-1) {
      s=s.replace('%20',' ')
    }
    titel=s;
    i=false
  }
  if (i==true) {
    if (titel=='') {
      s=win.frames[1].document.title;
      if (win.frames[1].length>0) {
        s=win.frames[1].frames[1].document.title;
        if (win.frames[1].frames[1].length>0) {s=win.frames[1].frames[1].frames[1].document.title;}
       }
      if (s.lastIndexOf('Wiesinger/Schenk')!=-1 )
        {spos=s.lastIndexOf('Wiesinger/Schenk')+17;
         s=s.substring(spos,s.length);}
      if (s.indexOf('- ')!=-1 )
        {spos=s.indexOf('- ')+2;
         s=s.substring(spos,s.length);}
      titel=s;
    }
    if (opt!=null && opt!=false) {
      if (opt=='+MARK' && win.pagewinmark!=null && win.pagewinmark!=false) {titel=titel+": "+win.pagewinmark;}
    }
  }
  return (titel);
}

//DEFAULT FUNCTIONS PAGE
//
function pageload(win) {
win.pageload('');
}
function pageback() {
  self.back();
  //return (true);
}
function pageforward() {
  self.forward();
//  return (true);
}
function pagerefresh(win) {
  if (win=='' || win==null || win==false) { win=window;}
  self.open(win.location);
//  return (true);
}
function pageprint() {
 self.print();
}
function pagemail() {
}
function pagesubmit(theForm) {
}
function pagelink(theForm,url,target,options,veruser) {
  win=window;
  window.onError = null;
  topener=''; topenername=''
  if (target == '') {target=self.name;}
  if (url != '' && url != self.location ) {
    // RENAME/CLOSE WINDOW IF WEBSEARCH IS SINGLE WINDOW
    if (topener==null || topener==false || topenername!=target) {
      if (top.name!=window.name) {
        if (window.name=='WebSearch') {window.name='Web'}
        if (window.name=='WebHelp') {window.name='Web'}
      }
    } else {
      if (window.name=='WebSearch' && target.lastIndexOf(window.name)==-1 && top.opener.name!='Web') {options = 'Close'}
      if (window.name=='WebHelp' && target.lastIndexOf(window.name)==-1 && top.opener.name!='Web') {options = 'Close'}
    }
    // window.onError = pagelink2(url,target); //ERROR IN IE
    l=window.location;
    l=l.toString();
    if (options == '' || options == 'Close') {
      win=window.open(url,target);
    } else {
      win=window.open(url,target,options);
    }
  }
  if (url != '' && url == self.location && target == self.name) { self.refresh();}
  win.focus()

  if (options == 'Close') {window.close();}
}

//DOCOMENT AUTOMAT. FUNKTIONS
//
function parentpageshow(win,page,suburl,reftitel) {
 if (win=='' || win==null || win==false) { win=window;}
 if (page==null) { page='';}
 if (suburl==null) { suburl='';}
 if (reftitel==null) { reftitel='';}
 page=page.toLowerCase();

if (page!='') {
 pagehost='';
 var url=win.location;
 url=url.toString();
 if (url.lastIndexOf('/_')!=-1) {
   url=url.substr(0,url.lastIndexOf('/_')-4);
 } else {
   url=win.location.protocol+'//'+win.location.hostname
   //url='/';
 }
 pagehost=url;
 if (pagehost.indexOf('ssl.wis.de')!=-1) {
   pagehost='http://www.wis.de'
   //if (page.indexOf('kontakt')!=-1 || page.indexOf('abbo')!=-1) {
   //  pagehost='https://ssl.wis.de'
   //} else {
   //}
 }

 url=win.location; url=url.toString();
 pagedomain='wis';
 pageurl='';
 pageurl2='';
 pagewinname='Web';
 pagewinopt='';
 pagelang='';
  //language=top.GetCookie('Language');
  //if (language==null) {language='';}
  //if (language=='' &&  navigator.language=="de" || language=='' && navigator.language=="DE") { language='German'}
  language='';language=getlanguage();

  if (language=='German') {
    pagelang='_german/';
  } else {
    pagelang='_german/';
  }

  //if ( page.indexOf('')!=-1 || page.indexOf('')!=-1 ) {page='' }
  if ( page.indexOf('kontakt')!=-1 || page.indexOf('contact')!=-1) {
    if ( page.indexOf('nach')!=-1 ) {
      if ( page.indexOf('-gs')!=-1 ) { page='kontakt_nach-gs' } else { page='kontakt_nach'}
    }
    if ( page.indexOf('info')!=-1 ) {
      if ( page.indexOf('-gs')!=-1 ) { page='kontakt_info-gs' } else { page='kontakt_info'}
    }
    else if ( page.indexOf('filedownload')!=-1 ) {page='kontakt_filedownload' }
    else if ( page.indexOf('docdownload')!=-1 ) {page='kontakt_docdownload' }
    else if ( page.indexOf('download')!=-1 ) {page='kontakt_docdownload' }
    else if ( page.indexOf('wecker')!=-1 || page.indexOf('timer')!=-1) {page='kontakt_wecker' }
    else if ( page.indexOf('spezial')!=-1 ) {page='kontakt_spezial' }
    else if ( page.indexOf('_')==-1 ) {
      page='kontakt'
    } else {
    }
  }
  if ( page.indexOf('docdownload')!=-1 ) {page='kontakt_docdownload' }
  if ( page.indexOf('filedownload')!=-1 ) {page='kontakt_filedownload' }
  if (page.indexOf('_')==-1) {
    if ( page.indexOf('chat')!=-1 || page.indexOf('servicechat')!=-1) {page='chat' }
    if ( page.indexOf('help_impressum')!=-1 || page.indexOf('hilfe')!=-1) {page='help_impressum' }
    if ( page.indexOf('help')!=-1 || page.indexOf('hilfe')!=-1) {page='help' }
    if ( page.indexOf('info')!=-1 ) {page='info' }
    if ( page.indexOf('impress')!=-1 ) {page='impress' }
  }

  //Übergabe Titel
    if (reftitel=='') {
      s=''  ; wint=top.window
      if (wint.frames[1]!=null) {
        if (wint.frames[1].length>0) {  s=wint.frames[1].document.title; }
        if (wint.frames[1].frames[1].length>0) { s=wint.frames[1].frames[1].document.title; }
        if (wint.frames[1].frames[1].length>0) { s=wint.frames[1].frames[1].frames[1].document.title; }
      }
    } else {
      s=reftitel
    }
    if (s.lastIndexOf('Wiesinger/Schenk')!=-1 )
      {spos=s.lastIndexOf('Wiesinger/Schenk')+17;
       s=s.substring(spos,s.length);}
    if (s.indexOf('- ')!=-1 )
      {spos=s.indexOf('- ')+2;
       s=s.substring(spos,s.length);}
    while (s.indexOf(' ')!=-1) {
      s=s.replace(' ','%20')
    }
    reftitel=s;
    //if (reftitel!='') { reftitel=reftitel+'!OPTITEL='+reftitel; }
    reftitel='#!OPTITEL='+reftitel;
// reftitel=''

//alert(page)
 switch(page) {

 case 'home':
     pagedomain='wis';
     //pagelang='';
     pageurl='index.htm';
     pagewinname=top.name;//'Web';
   if (pagehost.indexOf('mailer.wis.de')!=-1) {
     pagehost='https://mailer.wis.de'
     pagedomain='wis';
   } else if (pagehost.indexOf('ssl.wis.de')!=-1) {
     pagehost='https://ssl.wis.de'
     pagedomain='shop';
     pageurl='';
   } else if (pagehost.indexOf('wis.de')!=-1) {

   } else if (pagehost.indexOf('pages.wsx.de')!=-1) {
     pagehost='http://pages.wsx.de'
     pagedomain='user';
     pageurl='';
   } else if (pagehost.indexOf('chat.wsx.de')!=-1) {
     pagehost='http://chat.wsx.de'
     pagedomain='';
     pageurl='';
   } else {
     pagedomain='wis';
     //pagelang='';
     pageurl='index.htm';
     pagewinname=top.name;//'Web';
   }
   break;

 case 'wis':
   pagedomain='wis';
   //pagelang='';
   pageurl='index.htm';
   pagewinname=top.name;//'Web';
   break;

 case 'info':
 //|| 'information':
   pageurl='info/infpfrm.htm';
   pagewinname='WebPage';
   pagewinopt='';//scrollbars=yes,resizable=yes';
   break;

 case 'impress':
 //|| 'impressum':
   pageurl='public/webimpr.htm';
   pagewinname='WebPage';
   pagewinopt='';//scrollbars=yes,resizable=yes';
   break;
 case 'help_impressum':
   pageurl='public/webhelp.htm';
   pageurl2='?public/webimpr.htm'
   pagewinname='WebHelp';
   pagewinopt='status=yes,scrollbars=yes,resizable=yes,top=10,left=10,width=600,height=590';
   break;

 case 'kontakt':
 // || 'contact':
   pagehost='https://mailer.wis.de'
   pageurl='public/webkont.htm';
   //if (suburl!='' && suburl.indexOf('.htm')==-1) {pageurl='?'+suburl;suburl=''}
   pagewinname='WebHelp';
   pagewinopt='status=yes,scrollbars=yes,resizable=yes,top=10,left=10,width=600,height=590';
   break;
 case 'kontakt_nach':
   pagehost='https://mailer.wis.de'
   pageurl='public/webkont.htm';
   pageurl2='?public/kontpg/webknach.htm';
   pagewinname='WebHelp';
   pagewinopt='status=yes,scrollbars=yes,resizable=yes,top=10,left=10,width=600,height=590';
   break;
 case 'kontakt_nach-gs':
   pagehost='https://mailer.wis.de'
   pageurl='public/webkont.htm';
   pageurl2='?public/kontpg/webknags.htm';
   pagewinname='WebHelp';
   pagewinopt='status=yes,scrollbars=yes,resizable=yes,top=10,left=10,width=600,height=590';
   break;
 case 'kontakt_info':
   pagehost='https://mailer.wis.de'
   pageurl='public/webkont.htm';
   pageurl2='?public/kontpg/webkinfo.htm';
   pagewinname='WebHelp';
   pagewinopt='status=yes,scrollbars=yes,resizable=yes,top=10,left=10,width=600,height=590';
   break;
 case 'kontakt_info-gs':
   pagehost='https://mailer.wis.de'
   pageurl='public/webkont.htm';
//   if (reftitel!='') { pageurl=pageurl+reftitel; }
   pageurl2='?public/kontpg/webkings.htm';
   pagewinname='WebHelp';
   pagewinopt='status=yes,scrollbars=yes,resizable=yes,top=10,left=10,width=600,height=590';
   break;
 case 'kontakt_telap':
   pagehost='https://mailer.wis.de'
   pageurl='public/webkont.htm';
   pageurl2='?info/infopg/wisp03t.htm';
   pagewinname='WebHelp';
   pagewinopt='status=yes,scrollbars=yes,resizable=yes,top=10,left=10,width=600,height=590';
   break;
 case 'kontakt_weg':
 //|| 'contact_info':
   pagehost='https://mailer.wis.de'
   pageurl='public/webkont.htm';
   pageurl2='?info/infopg/wisp09t.htm';
   pagewinname='WebHelp';
   pagewinopt='status=yes,scrollbars=yes,resizable=yes,top=10,left=10,width=600,height=590';
   break;
 case 'kontakt_docdownload':
 // || 'contact_docdownload':
   pagehost='https://mailer.wis.de'
   //if (url.indexOf('ssl.wis.de')!=-1) { pagehost='https://ssl.wis.de' }
   pageurl='public/webkont.htm';
   if (suburl=='' || suburl==null || suburl==false) { suburl='';} else {suburl='#'+suburl;}
   //pageurl2='?public/kontpg/webkdoc.htm'+suburl;
   pageurl2='?public/servpg/webkdoc.htm'+suburl;
   pagewinname='WebHelp';
   pagewinopt='status=yes,scrollbars=yes,resizable=yes,top=10,left=10,width=600,height=590';
   break;
 case 'kontakt_filedownload':
 // || 'contact_docdownload':
   pagehost='https://mailer.wis.de'
   //if (url.indexOf('ssl.wis.de')!=-1) { pagehost='https://ssl.wis.de' }
   pageurl='public/webkont.htm';
   if (suburl=='' || suburl==null || suburl==false) { suburl='';} else {suburl='#'+suburl;}
   //pageurl2='?public/kontpg/webkdoc.htm'+suburl;
   pageurl2='?public/servpg/webkfile.htm'+suburl;
   pagewinname='WebHelp';
   pagewinopt='status=yes,scrollbars=yes,resizable=yes,top=10,left=10,width=600,height=590';
   break;
 case 'kontakt_wecker':
 // || 'contact_timer' || 'wecker' || 'timer':
   pagehost='https://mailer.wis.de'
   pageurl='public/webkont.htm';
   pageurl2='?public/servpg/webmterm.htm';
   pagewinname='WebHelp';
   pagewinopt='status=yes,scrollbars=yes,resizable=yes,top=10,left=10,width=600,height=590';
   break;
 case 'kontakt_spezial':
 // || 'contact_special' || 'spezial' || 'special':
   pagehost='https://mailer.wis.de'
   pageurl='public/webkont.htm';
   pageurl2='?public/kontpg/webkspez.htm';
   pagewinname='WebHelp';
   pagewinopt='status=yes,scrollbars=yes,resizable=yes,top=10,left=10,width=600,height=590';
   break;

 default:
   break;
 }
 if (page.indexOf('kontakt')!=-1) {
   //  if (reftitel!='') { pageurl=pageurl+reftitel; }
   if (reftitel!='') { pageurl2=pageurl2+reftitel; }
 }
 if (pageurl>'') {
   if (pageurl.lastIndexOf('index.htm')!=-1) {
     if (pageurl.indexOf('mailer.wis')!=0) {
       pageurl=pageurl+pageurl2;
     } else {
       pageurl=pageurl+"l"+pageurl2;
     }
   } else {
     pageurl=pageurl+pageurl2;
   }
   r='';
   if (win=='return') { r='return';win=''; }
   if (win=='' || win==null || win==false) {
     win=self.top.pagewin;
     if (win.closed) {win=self.top.pagewin.parent;}
   }
   if (win.closed) {win=self.parent;}
//   var url=win.location;
//   url=url.toString();

   if (pagedomain!='') {pagedomain=pagedomain+'/'}
     if (pagedomain.substring(0,1)!='/') { pagedomain='/'+pagedomain }
   if (url.hostname!=null && url.hostname!=false) {
     url=pagehost+pagedomain;  //+'/'
   } else if (url.hostname!=pagehost) {
     url=pagehost+pagedomain;   //+'/'
   } else {
     if (url.lastIndexOf('/_')!=-1) {
       //ipos=url.lastIndexOf('/_')+1;
       //url=url.substr(0,ipos);
       ipos=url.lastIndexOf('/_')-4;
       url=url.substr(0,ipos)+pagedomain;
     } else {
       url='/'+ pagedomain;
     }
   }
   search='';
   if (suburl!=null && suburl!=null && suburl!=false) {   if (suburl>"") { search="?"+suburl;} }
//alert(url+pagelang+pageurl+search+":"+pageurl2+":"+suburl)
   if (pagewinopt!=''){
     win=window.open(url+pagelang+pageurl+search,pagewinname,pagewinopt);
   } else {
     win=window.open(url+pagelang+pageurl+search,pagewinname);
   }
/*
   if (url.indexOf('wis.de')!=-1 ) {
     window.onError=null;
     msg='Willkommen zu: '+win.document.title
     self.status=msg;
     win.defaultStatus=msg;
     win.onfocus="parent.DisplayMSG(this,window.status)";
   }
*/
   win.focus()
   if (r=='return') {return (win);}
   //return (true);
 }
}
}
function parentpageshowsub(win,page,suburl,subtarget,timer) {
 if (page>'') {
   if (suburl.indexOf('/public')>0) {
     ipos=suburl.indexOf('/public')+1;
     suburl=suburl.substr(ipos);
   }
   parentpageshow(win,page,suburl);
 }
}

//MAIL LDAP FUNCTIONS
//
function parentpagemail(win,to,cc,bcc,subject) {
  if (win=='' || win==null || win==false) { win=top;}
  //win=top;
  if (subject=='') {
    s=win.frames[1].document.title;
    if (win.frames[1].length>0) {
      s=win.frames[1].frames[1].document.title;
      if (win.frames[1].frames[1].length>0) {s=win.frames[1].frames[1].frames[1].document.title;}
     }
    if (s.lastIndexOf('Wiesinger/Schenk')!=-1 )
      {spos=s.lastIndexOf('Wiesinger/Schenk')+17;
       s=s.substring(spos,s.length);}
    if (s.indexOf('- ')!=-1 )
      {spos=s.indexOf('- ')+2;
       s=s.substring(spos,s.length);}
    subject="Ihre Webseite "+s;
    }
  if (to=='') {to="webmaster@wis.de";}
  if (cc!='') {cc="cc="+cc+"&";}
  if (bcc!='') {bcc="bcc="+bcc+"&";}
  self.location="mailto:"+to+"?"+cc+bcc+"Subject="+subject;
  //return (true);
}

function parentpageldap(win,page,subject) {
  if (win=='' || win==null || win==false) { win=top;}
  if (page==null) { page='';}
  if (subject==null) { subject='';}
  url=''
  if (page=='') {
    alert('Kein LDAP-Server definiert, Suche nicht moeglich.')
  } else {
    if (subject=='') {
      subject=prompt('Suche auf LDAP-Server '+page+' nach Zertifikat(en)\nGeben Sie den Allgmeinen Namen (Name der Person, des Server, ..) an:',subject)
    }
    if (subject!='' && subject!=null && subject!=false) {
      pagewinopt='status=yes,scrollbars=yes,resizable=yes,top=10,left=10,width=600,height=590';
      pagewinname=page
      if (page='GLOBALSIGN') {
        url='ldap://ldap.globalsign.net/dc=globalsign,dc=net??sub?(cn=*'+subject+'*)'
      }
      if (url!='') {
        win=window.open(url,pagewinname,pagewinopt);
      }
    }
  }
  //return (false);
}

//FUNCTIONS SHOW ELEMENTS

//FUNCTIONS CALLING
function DisplayMSG(win,msg) {
  window.onerror = null;
  if (msg == "") {
    //msg = "Warte auf Auswahl / wait for selection";
    msg='Willkommen zu: '+win.document.title
  }
  win.status=msg;
  return (true);
}

function getlanguage() {
   language=top.GetCookie('Language');
   if (language==null || language==false) {language='';}
   if (language=='')  {
     language.toLowerCase()
     language='german';

     if (navigator.language=="de" || language=='' && navigator.language=="ge") { language='german';}
     }
   return (language);
}

function GetDate(ret,opt) {
  if (ret == null || ret=='') {ret=''}
  if (opt == null || opt=='') {opt=''}
  x = new Date();
  wd=new String(x.getDay());
  dy=new String(x.getDate());           if (dy.length==1) {dy="0"+dy;}
  mo=new String(x.getMonth()+1);        if (mo.length==1) {mo="0"+mo;}
  if (navigator.appName=='Netscape') {
    y=new String(x.getYear()+1900);
  } else {
    y=new String(x.getYear());
  }
  d=dy+"."+mo+"."+y;
  t=new String(x.getHours());           if (t.length==1) {t="0"+t;}
  m=new String(x.getMinutes());         if (m.length==1) {m="0"+m;}
  s=new String(x.getSeconds());         if (s.length==1) {s="0"+s;}
  t=t+":"+m+":"+s;
  x=''
  if (ret=='D') {   x= d;}
  if (ret=='T') {   x= t;}
  if (ret=='DT') {  x= d+'-'+t;}
  if (ret=='D1') {  x= d.substr(0,2)+d.substr(3,2)+d.substr(6,4);}
  if (ret=='DT1') { x= d.substr(0,2)+d.substr(3,2)+d.substr(6,4)+'-'+t.substr(0,2)+t.substr(3,2)+t.substr(6,2);}
  if (ret=='D2') {  x= d.substr(6,4)+d.substr(3,2)+d.substr(0,2);}
  if (ret=='DT2') { x= d.substr(6,4)+d.substr(3,2)+d.substr(0,2)+'-'+t;}
  if (ret=='T2') {  x= t.substr(0,2)+t.substr(3,2);}
  if (ret=='DT3') { x= d.substr(0,2)+d.substr(3,2)+d.substr(6,4)+'-'+t.substr(0,2)+t.substr(3,2); }
  if (ret=='WD') {  x= GetDate4('WD',wd)}
  if (ret=='WD1') {  x= wd}
  if (ret=='WD2') { x= GetDate4('WD2',wd)}
  if (ret=='MO') {  x= mo;}
  if (ret=='MO1') {  x= GetDate4('MO1',mo)}
  if (ret=='MO2') {  x= GetDate4('MO2',mo)}
  if (ret=='MD') {  x= dy;}
  if (ret=='Y') {  x= y;}
  return x
}
function GetDate4(ret,opt) {
  if (ret == null || ret=='') {ret=''}
  if (opt == null) {opt='1'}
  x='';
  if (ret=='D') {
    opt=opt.toString()
    if (opt.length==1) {opt="0"+opt;}
    x=opt
  }
  if (ret=='WD') {   //0-7,0=7
    weekday   = new Array("So","Mo","Di","Mi","Do","Fr","Sa","So");
    x=weekday[parseInt(opt)]
  }
  if (ret=='WD2') {  //0-7,0=7
    weekday   = new Array("Sonntag","Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag","Sonntag");
    x=weekday[parseInt(opt)]
  }
  if (ret=='MO') {
    opt=opt.toString()
    if (opt.length==1) {opt="0"+opt;}
    x=opt
  }
  if (ret=='MO1') {  //0;1-12
    month     = new Array("","Jan","Feb","Mrz","Apr","Mai","Jun","Jul","Aug","Sep","Okt","Nov","Dez");
    x=month[parseInt(opt)]
  }
  if (ret=='MO2') {  //0;1-12
    month     = new Array("","Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember");
    x=month[parseInt(opt)]
  }
  return x
}

function SetCookie1(name,value,win) {
  expires= new Date();expires.setTime(60*60*24*30*12*31*1000);
  path='';
  domain='';
  secure='';
  SetCookie(name,value,win,path,domain,secure,expires);
}
function SetCookie(name,value,win) {
//,path,domain,secure,expires) {
  if (win=='' || win==null || win==false) { win=window;}
  if (win=='') { win=self.window;}
  //if (value.indexOf("expires=")<0) { value=value+"?expires='31-Dez-2002'";}
  var argv = SetCookie.arguments;
  var argc = SetCookie.arguments.length;
  //var expires = (argc > 2) ? argv[2] : null;
  var path = (argc > 3) ? argv[3] : null;
  var domain = (argc > 4) ? argv[4] : null;
  var secure = (argc > 5) ? argv[5] : false;
  var expires = (argc > 6) ? argv[6] : null;
  //if (domain == null) {domain = ".wis.de";}
  //secure =  true;
  exp=new Date();
  if (value=='' || value == null || value == false) {
    exp.setTime(exp.getTime-1);
    var cval = "" //"wird gelöscht" //"-";
    win.document.cookie = name +"="+cval+";expires=" + exp.toGMTString;
  } else {
    if (expires=='' || expires == null || expires == false) {
      //exp.setYear(exp.getYear()+1901);
      //expires="Dec 31, 2002";
      //expires= new Date();expires.setTime((60*60*24*30*12*1)*(exp.getYear()+1901));
      //expires= new Date();expires.setTime( exp )  // 1 Jahr
      m=exp.getMonth()+1; if (m==1) {m='Jan'};if (m==2) {m='Feb'};if (m==3) {m='Mar'};if (m==4) {m='Apr'};if (m==5) {m='Mai'};if (m==6) {m='Jun'};if (m==7) {m='Jul'};if (m==8) {m='Aug'};if (m==9) {m='Sep'};if (m==10) {m='Oct'};if (m==11) {m='Nov'};if (m==12) {m='Dec'};
      expires= m+" "+exp.getDate()+", "+(exp.getYear()+1901)  // 1 Jahr
    }
    exp=new Date(expires);
    exp.toGMTString();
  //  win.document.cookie = name + "=" + escape(value) +
  //    ((expires == null) ? "" : ("; expires=" + exp)) +
  //    ((path == null) ? "" : ("; path=" + path)) +
  //    ((domain == null) ? "" : ("; domain=" + domain)) +
  //    ((secure == true) ? "; secure" : "");
    c=name + "=" + escape(value)
    if (expires != null) { c=c+ ""; expires="" + exp }
    if (path != null) { c=c+ ""; path="" + path }
    if (domain != null) { c=c+ ""; domain="" + domain }
    if (secure != null) { c=c+ ""; secure="" + secure }
    win.document.cookie = c
  }
  window.focus();
}
function GetCookie(name,win) {
  if (win=='' || win==null || win==false) { win=window;}
  if (win=='') { win=self.window;}
  var arg = name + "=";
  var alen = arg.length;
  var clen = win.document.cookie.length;
  var i = 0;
  var value= ""
  while (i < clen)
  { var j = i +alen;
    if (win.document.cookie.substring(i, j) == arg)
       value=GetCookieVal (win,j);
       //if (value=='-') { value=''};
       return value;
    i = win.document.cookie.indexOf(" ", i) +1;
    if (i == 0) break;
  }
  return null;
}
function GetCookieVal(win,offset) {
//,win)
// if (win=='' || win==null || win==false) { win=window;}
  var endstr = win.document.cookie.indexOf (";", offset);
  if (endstr == -1)
    endstr = win.document.cookie.length;
  return unescape(win.document.cookie.substring(offset, endstr));
}

function DeleteCookie(name,win) {
  if (win=='' || win==null || win==false) { win=window;}
  if (win=='') { win=self.window;}
  var exp = new Date();
  exp.setTime(exp.getTime-1);
  var cval = GetCookie(name,win);
  cval="" //"wird gelöscht" // "-"
  win.document.cookie = name +"="+cval+";expires=" + exp.toGMTString;
}

function GetHost(ip) {
  host=''
  if (ip=='') {ip='##distantip##';}
  if (ip.substring(0,7)=='195.185') {
    host='http://bohost.wis.de'
  } else {
    host='http://wsx.de'
  }
  return host;
}
function GetSecureHost(url,win,com) {
  if (com=='' || com==null || com==false) { com='';}
  if (win=='' || win==null || win==false) { win=window;}
  //if (url=='' || url==null || url==false) { url=win.location;}
  if (url=='' || url==null || url==false) { url=self.location;}
    url=url.toString();
    if (url.indexOf('https://')==-1 ) {
        //if (win.location.hostname=='mailer.wis.de') {
        if (url.indexOf('mailer.wis.de')!=-1 ) {
          url='https://'+url.substring(7);
        }// else if (win.location.hostname=='bohost.wis.de') {
        else if (url.indexOf('bohost.wis.de')!=-1 ) {
          //com="-";
        } else {
          //com="-";
         }
        if (com=='-') {
        } else if (com=='') {
          return url;
        } else if (com=='RELOAD') {
          win.location=url;
          return url;
        } else if (com=='RELOADIFNOT') {
          url2=win.location
          url2=url2.toString();
          if (url!=url2) {
            win.location=url;
          }
          return url;
        }
    }
}
function GetSSLDataInfo(win) {
 if (win=='' || win==null || win==false) {win=window;}
    x=self.location.protocol;x=x.toLowerCase();
    x1=win.document.forms[0].action;x1=x1.toLowerCase();
    txt=''
    if (x1.indexOf('https:')!=-1 && x=='https:') {
        txt=txt+"<img src='https://"+self.location.hostname+"/wis/include/ssltslok.gif' border=0 hspace=2 vspace=0 align=left>"
        txt=txt+'Ihre Angaben werden verschl&uuml;sselt gesendet, SSL-Protokoll zum Server f&uuml;r Formular und Seite besteht. ';
//    }
//    if (x1.indexOf('https:')!=-1 && x!='https:') {
//        txt=txt+"<img src='"+self.location.protocol+"://"+self.location.hostname+"/wis/include/ssltslok.gif' border=0 hspace=2 vspace=0 align=left>"
//        txt=txt+'Ihre Angaben werden verschl&uuml;sselt gesendet, SSL-Protokoll zum Server f&uuml;r Formular besteht. ';
    } else if (x=='https:') {
        txt=txt+"<img src='https://"+self.location.hostname+"/wis/include/ssltslok.gif' border=0 hspace=2 vspace=0 align=left>"
        txt=txt+'Ihre Angaben werden verschl&uuml;sselt gesendet, SSL-Protokoll zum Server f&uuml;r Seite besteht. ';
    } else if (x1.indexOf('https:')!=-1) {
        txt=txt+"<img src='http://"+self.location.hostname+"/wis/include/ssltslno.gif' border=0 hspace=2 vspace=0 align=left>"
        txt=txt+'Ihre Angaben werden ggf. unverschl&uuml;sselt gesendet - SSL-Protokoll zum Server wird erst zum Senden der Daten aufgebaut! ';
    } else {
        txt=txt+"<img src='http://"+self.location.hostname+"/wis/include/ssltslno.gif' border=0 hspace=2 vspace=0 align=left>"
        txt=txt+'Ihre Angaben werden unverschl&uuml;sselt gesendet - SSL-Protokoll zum Server nicht aktiv! ';
    }
    return txt;
}