
















































































































<!--

/****************************************************************/
/* This site has been designed by Ralf Schuetz                  */
/* This application should not be copied !                      */
/*      Ralf.Schuetz@schuetz-consulting-gmbh.de                 */
/* (C) 1999-2002                                                */
/****************************************************************/
window.defaultStatus='Loading Ticker-Data ...';
var id2,position=0,tick_dir=-1,V=0,msgNum=0,Msgs=new Array(),ticknews1=new Array(),ticknews2=new Array();tickimgs=new Array();tickadr=new Array();
function changeNum(anArg) {V+=anArg*3;}
function changeMsg(anArg) {msgNum=Math.abs((msgNum+anArg)%Msgs.length);position=0;tick_dir=-1;changeMsgHead();chImg();}
function chImg() {if (document.images && document.linkimg) {document.linkimg.src=tickimgs[msgNum];document.links[0].href=tickadr[msgNum];}}
function changeMsgHead() {document.BAN.MSGHEAD.options.selectedIndex=msgNum;}
function rsb(msgHead,msg,x,y,v) {
   var dirchanged=0;
   if (v!="") {
      Msgs=msg;V=v;
      document.write('<STYLE>button,textarea,select {background-color: #CCffCC; scrollbar-base-color: #99CC99; scrollbar-arrow-color: #003399; scrollbar-track-color: #e0e0e0; scrollbar-face-color: #CCFFCC; scrollbar-3dlight-color:#99CC99; scrollbar-highlight-color: #99CC99; scrollbar-darkshadow-color:#99CC99; border:0px solid #AAAAAA; }input {background-color: #99CC99; border:1px solid #AAAAAA;</STYLE>');
      document.write('<CENTER><FORM NAME="BAN"><TABLE BORDER=2 cellspacing=3 cellpadding=3 bordercolor="red"><TR><TH><TABLE BORDER=0 CELLSPACING=0 CELLPADDING=5 BGCOLOR="#CFCFCF">',
                     '<TR>',
                     '<TD ALIGN="RIGHT" COLSPAN=2><SELECT NAME="MSGHEAD" SIZE=1 onChange="msgNum=this.options.selectedIndex;position=0;tick_dir=-1;changeMsgHead();chImg();">');
      for (var j=0;j<msgHead.length;j++) {document.write('<OPTION'+(j==0?' SELECTED':'')+'>'+msgHead[j]);}
      document.write('</SELECT></TD>',
                     '<TD ROWSPAN=5><FONT FACE="Courier,Courier New"><TEXTAREA NAME="BANNER" WRAP=VIRTUAL READONLY=1 ROWS=',y,' COLS=',x,'> ... initializing ... </TEXTAREA></FONT></TD>',
                     '</TR><TR>',
                     '<TH ALIGN="RIGHT">Nachricht:</TH><TD ALIGN="RIGHT"><MAP NAME="skipmsg"><AREA SHAPE="poly" COORDS="0,0, 15,0, 15,11, 0,11" HREF="JavaScript: changeMsg(1)" onMouseOver="window.status=\'next message\'; return true;">',
                     '<AREA SHAPE="poly" COORDS="0,12, 15,12, 15,22, 0,22" HREF="JavaScript: changeMsg(-1)" onMouseOver="window.status=\'last Message\'; return true;"></MAP>',
                     '<IMG SRC="updown.gif" BORDER=0 USEMAP=#skipmsg ALIGN=ABSMIDDLE HSPACE=2></TD>',
                     '</TR><TR>',
                     '<TH ALIGN="RIGHT">Geschwindigkeit:</TH><TD ALIGN="RIGHT"><MAP NAME="updownmap"><AREA SHAPE="poly" COORDS="0,0, 15,0, 15,11, 0,11" HREF="JavaScript: changeNum(1)" onMouseOver="window.status=\'increase speed\'; return true;">',
                     '<AREA SHAPE="poly" COORDS="0,12, 15,12, 15,22, 0,22" HREF="JavaScript: changeNum(-1)" onMouseOver="window.status=\'decrease speed\'; return true;"></MAP>',
                     '<IMG SRC="updown.gif" BORDER=0 USEMAP=#updownmap ALIGN=ABSMIDDLE HSPACE=2></TD>',
                     '</TR><TR>',
                     '<TH ALIGN="RIGHT" VALIGN="TOP">Tick:',
                     '</TH><TD ALIGN="right"><INPUT TYPE=CHECKBOX NAME=DIRECTION CHECKED></TD></TR>',
                     '<TR><TH COLSPAN=2 BGCOLOR="#AFAFAF"><FONT SIZE="2"><INPUT TYPE=BUTTON VALUE="neuer Eintrag" onClick="newEntry();">',
                     '<INPUT TYPE=BUTTON VALUE="speichern" onClick="if (document.NEWENTRY.NEWTITLE.value+document.NEWENTRY.NEWTEXT.value!=\'\') document.NEWENTRY.submit(); else alert(\'Kein neuer Eintrag vorhanden!\');"></FONT>',
                     '</TH></TR></FORM>',
                     '<FORM NAME="NEWENTRY" METHOD=GET ACTION="/cgi-bin/ttcnews.pl">',
                     '<INPUT NAME=\"NEWTITLE\" TYPE=HIDDEN VALUE="">',
                     '<INPUT NAME=\"NEWTEXT\" TYPE=HIDDEN VALUE="">',
                     '',
                     '</TABLE></TH></TR></TABLE></FORM></CENTER>'
                     );
      window.defaultStatus='TTC - News-Ticker - (C) Ralf Schuetz 1999-2002';
      id2=setTimeout('rsb("","",'+x+','+y+',"")',10);
   } else {
      if (document && document.BAN && document.BAN.BANNER) {
         if (document.BAN.DIRECTION && document.BAN.DIRECTION.checked == true) {
            if (V<0) V*=-1; else if (V==0) V++;
            if (tick_dir<0) {
               var templen=x*(y-y*.25);
               if (position < templen) {
                  document.BAN.BANNER.value=Msgs[msgNum].substring(0,position)+'_';
               } else {
                  if (Msgs[msgNum]) {
                     document.BAN.BANNER.value='<--|'+Msgs[msgNum].substring((position-(templen)),position)+'_';
                  }
               }
            } else if (tick_dir>0) {
               document.BAN.BANNER.value='_'+Msgs[msgNum].substring(position,Msgs[msgNum].length);
            }
            if (position++==Msgs[msgNum].length) {
               position=0;tick_dir*=-1;dirchanged=1000;
               if (tick_dir==-1) {
                  msgNum=(++msgNum)%Msgs.length;changeMsgHead();
                  if (document.linkimg) document.linkimg.src=tickimgs[msgNum];
               }
            }
         } else {
            if (document.BAN.BANNER.value!=Msgs[msgNum]) {
               document.BAN.BANNER.value=Msgs[msgNum];
            }
         }
      }
      var titLen = 80;
      var valLen = document.BAN.BANNER.value.length;
      if (valLen<titLen) {
         titLen=valLen;
      }
      document.title=document.BAN.BANNER.value.substring(valLen-titLen,valLen);
      id2=setTimeout('rsb("","",'+x+','+y+',"")',(1000/V)+dirchanged);
   }
   if (document.BAN.DIRECTION && document.BAN.DIRECTION.checked == true) window.status=document.BAN.BANNER.value.substring(tick_dir<0?document.BAN.BANNER.value.length-75:0,tick_dir<0?document.BAN.BANNER.value.length:75);
   dirchanged=null;j=null;
}

function newEntry() {
   var newTitle=prompt('Bitte geben Sie hier einen neuen Themenbegriff ein:','Beispielthema');
   if (!newTitle) {return;}
   var newText=prompt('Bitte geben Sie hier den Text zum Themenbegriff "'+newTitle+'" ein:','Beispiel-Thementext');
   if (!newText) {return;}
   ticknews1[ticknews1.length]=newTitle;
   document.NEWENTRY.NEWTITLE.value=newTitle;
   ticknews2[ticknews2.length]=newText;
   document.NEWENTRY.NEWTEXT.value=newText;
   document.BAN.MSGHEAD.options[document.BAN.MSGHEAD.options.length]=new Option(newTitle);
   msgNum=document.BAN.MSGHEAD.options.length-1;position=0;tick_dir=-1;changeMsgHead();
}
//-->

