home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / HTML / AceHTML / AceHTML4Free.exe / %MAINDIR% / EScripts / jscript / ban2.scr < prev    next >
Encoding:
Text File  |  2001-09-06  |  926 b   |  30 lines
  1. <SCRIPT LANGUAGE="JavaScript">
  2. <!-- begin script
  3. var msgBan2, msgBan2b, string2 = "", stringPart2, delayBan2, ban2;
  4. function banner2(delay) {
  5.   delayBan2 = delay;
  6.   if (string2.length == 0) {
  7.     string2 = " ";
  8.     msgBan2b = msgBan2;
  9.     stringPart2 = "";
  10.   }
  11.   else if (string2.length == 1) {
  12.     while (msgBan2b.substring(0, 1) == " ") {
  13.       stringPart2 = stringPart2 + string2;
  14.       string2 = msgBan2b.substring(0, 1);
  15.       msgBan2b = msgBan2b.substring(1, msgBan2b.length);
  16.     }
  17.     stringPart2 = stringPart2 + string2;
  18.     string2 = msgBan2b.substring(0, 1);
  19.     msgBan2b = msgBan2b.substring(1, msgBan2b.length);
  20.     for (var i = 0; i < 120; i++)
  21.       string2 = " " + string2;
  22.   }
  23.   else string2 = string2.substring(10, string2.length);
  24.  
  25.   document.formBan2.Fbanner2.value = stringPart2 + string2;
  26.   ban2 = window.setTimeout('banner2(delayBan2)',delay);
  27. }
  28. // end script -->
  29. </SCRIPT>
  30.