home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / HTML / AceHTML / AceHTML4Free.exe / %MAINDIR% / EScripts / jscript / ban1.scr next >
Encoding:
Text File  |  2001-09-06  |  524 b   |  19 lines
  1. <SCRIPT LANGUAGE="JavaScript">
  2. <!-- begin script
  3. var posBan1=0, ban1, delayBan1, msgBan1;
  4. function banner1(delay) {
  5.   delayBan1 = delay;
  6.   if (posBan1 >= msgBan1.length)
  7.     posBan1 = 0;
  8.   else if (posBan1 == 0) {
  9.     msgBan1 = '        ' + msgBan1;
  10.     while (msgBan1.length < 128)
  11.       msgBan1 += '        ' + msgBan1;
  12.   }
  13.   document.formBan1.Fbanner1.value = msgBan1.substring(posBan1,posBan1+msgBan1.length);
  14.   posBan1++;
  15.   ban1 = setTimeout("banner1(delayBan1)",delay);
  16. }
  17. // end script -->
  18. </SCRIPT>
  19.