Go to:  Site entry | Site contents | Site index | Internet | HTMLScript | Text bottom

Tagline  Dated  List  HTMLScript

TAGLINES script generates colors for modification dates in the list of classified tagline sections.  Colors are chosen in such a way that brighter colors correspond to more recently modified items:

            Fuchsia  - Modified within last    week.
Red - Modified within last    month.
Brown - Modified within last 3 months.
Black - Modified beyond last 3 months.

To make script simple and quick it is assumed that any year contains 365 days and any month contains 30 days.  This might cause a slight imprecision on the border lines, but this anyway can not be completely avoided since server date might differ from that of a client. 

Notes: Entire HTMLScript code is placed between </HEAD> and <BODY> tags.
HTMLScript line right above <BODY> tag selects a background at random out of 9 opportunities.


<!-- Taglines         01/08/199812/15/1998 -->
<!-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -->
<!-- DAVAR/MISCL/TAGLINES/TAGLINES.HTS      -->
<!-- Copyright (C) 1998 by Vladimir Veytsel -->

<HTML>
<HEAD>
  <TITLE>Taglines (Miscellaneous at Davar Web Site)</TITLE>
</HEAD>

<!-- Random    -->  <LET D1="04/26/1998">  <LET C1="Black">
<!-- Wisdom    -->  <LET D2="03/06/1998">  <LET C2="Black">
<!-- Humor     -->  <LET D3="03/06/1998">  <LET C3="Black">
<!-- Computer  -->  <LET D4="03/06/1998">  <LET C4="Black">
<!-- Corporate -->  <LET D5="03/06/1998">  <LET C5="Black">
<!-- Political -->  <LET D6="03/06/1998">  <LET C6="Black">
<!-- Adult     -->  <LET D7="06/15/1998">  <LET C7="Black">
<!-- General   -->  <LET D8="03/06/1998">  <LET C8="Black">

<LET Total=8>  <!-- Current total number of items in the above list -->

<LET Cur_Date=365*tm_year+30*tm_mon+tm_mday>

<LET I=0>
<WHILE I LE Total>
  <LET I=I+1>
  <LET Month=(D&[I] SUBSTR "1,2")>
  <LET Day  =(D&[I] SUBSTR "4,2")>
  <LET Year =(D&[I] SUBSTR "7,4")>
  <LET Mod_Date=365*Year+30*Month+Day>
  <LET Diff=Cur_Date-Mod_Date>
  <IF Diff LE 90>
      <LET C&[I]="Maroon">   <!-- Modified during last 3 months -->
  </IF>
  <IF Diff LE 30>
      <LET C&[I]="Red">      <!-- Modified during last   month  -->
  </IF>
  <IF Diff LE 7>
      <LET C&[I]="Fuchsia">  <!-- Modified during last   week   -->
  </IF>
</WHILE>

<LET I=((tm_min*tm_sec) MOD 9)+1>
<BODY BACKGROUND="../../PAPER0&[I]0.JPG" BGCOLOR=White TEXT=Black LINK=Blue ALINK=Fuchsia VLINK=Purple>
<FONT FACE="Times New Roman" SIZE=3>
    
  <I>
    <FONT SIZE=5 COLOR=Red><B><I><U>Taglines</U></I></B></FONT>
    <!-- Disabled until screen will start scrolling
        
    <FONT COLOR=Green>Go to</FONT> <A HREF="../../HOME.HTS">Davar site entry</A>
       
    <FONT COLOR=Green>Go to</FONT> <A HREF="../../DIRECT.HTS">Site contents</A>
       
    <FONT COLOR=Green>Go to</FONT> <A HREF="../../INDEX.HTS">Site index</A>
       
    <FONT COLOR=Green>Go to</FONT> <A HREF="../MISCL.HTS">Miscellaneous</A>
    -->
  </I>
  <BR> 
  <TABLE>  <!-- Keep all extra spaces at the top row -->
      <TR>
        <TD> </TD>
        <TD><B><A HREF="RANDOM.HTS?0+0+0+0+0+0+0+0">Random</A></B></TD>
        <TD> </TD>
        <TD><I><FONT SIZE="-1">1998 - <FONT COLOR=&[C1]>&[D1]</FONT></FONT></I></TD>
        <TD> </TD>
        <TD><I>Random tagline samples</I></TD>
      </TR>
      <TR>
        <TD></TD>
        <TD><B><A HREF="WISDOM.HTS">Wisdom</A></B></TD>
        <TD></TD>
        <TD><I><FONT SIZE="-1">1998 - <FONT COLOR=&[C2]>&[D2]</FONT></FONT></I></TD>
        <TD></TD>
        <TD><I>"Doing it the hard way is always easier."  </I></TD>
      </TR>
      <TR>
        <TD></TD>
        <TD><B><A HREF="HUMOR.HTS">Humor</A></B></TD>
        <TD></TD>
        <TD><I><FONT SIZE="-1">1998 - <FONT COLOR=&[C3]>&[D3]</FONT></FONT></I></TD>
        <TD></TD>
        <TD><I>"Just a possum on the information superhighway..."  </I></TD>
      </TR>
      <TR>
        <TD></TD>
        <TD><B><A HREF="COMPUTER.HTS">Computer</A></B></TD>
        <TD></TD>
        <TD><I><FONT SIZE="-1">1998 - <FONT COLOR=&[C4]>&[D4]</FONT></FONT></I></TD>
        <TD></TD>
        <TD><I>"Become a programmer and never see the world!"  </I></TD>
      </TR>
      <TR>
        <TD></TD>
        <TD><B><A HREF="CORPORAT.HTS">Corporate</A></B></TD>
        <TD></TD>
        <TD><I><FONT SIZE="-1">1998 - <FONT COLOR=&[C5]>&[D5]</FONT></FONT></I></TD>
        <TD></TD>
        <TD><I>"The scenery only changes for the lead dog."  </I></TD>
      </TR>
      <TR>
        <TD></TD>
        <TD><B><A HREF="POLITICS.HTS">Political</A></B></TD>
        <TD></TD>
        <TD><I><FONT SIZE="-1">1998 - <FONT COLOR=&[C6]>&[D6]</FONT></FONT></I></TD>
        <TD></TD>
        <TD><I>"An honest politician: One who stays bought."  </I></TD>
      </TR>
      <TR>
        <TD></TD>
        <TD><B><A HREF="ADULT.HTS">Adult</A></B></TD>
        <TD></TD>
        <TD><I><FONT SIZE="-1">1998 - <FONT COLOR=&[C7]>&[D7]</FONT></FONT></I></TD>
        <TD></TD>
        <TD><I>"A man without a woman is like a neck without pain."  </I></TD>
      </TR>
      <TR>
        <TD></TD>
        <TD><B><A HREF="GENERAL.HTS">General</A></B></TD>
        <TD></TD>
        <TD><I><FONT SIZE="-1">1998 - <FONT COLOR=&[C8]>&[D8]</FONT></FONT></I></TD>
        <TD></TD>
        <TD><I>"Evolution stops when stupidity is no longer fatal."  </I></TD>
      </TR>
  </TABLE>
  <I>
    <BR>  
    <FONT COLOR=Green>Go to</FONT> <A HREF="../../HOME.HTS">Davar site entry</A>
       
    <FONT COLOR=Green>Go to</FONT> <A HREF="../../DIRECT.HTS">Davar site contents</A>
       
    <FONT COLOR=Green>Go to</FONT> <A HREF="../../INDEX.HTS">Davar site index</A>
       
    <FONT COLOR=Green>Go to</FONT> <A HREF="../MISCL.HTS">Miscellaneous</A>
  </I>
</FONT>
</BODY>
</HTML>
  

View Tagline Dated List   (Use [Back] button or [Alt]+[CL] to return here)
View [and save] TAGLINES.TXT text   (Use [Back] button or [Alt]+[CL] to return here)
To make text executable rename it to *.HTS and make a global change of "&lt;" to "<" signs.
Go to:  Site entry | Site contents | Site index | Internet | HTMLScript | Text top