home *** CD-ROM | disk | FTP | other *** search
/ WinFiles.com 1998 June / WF0698_3.ISO / servers-websrv / websuite.exe / COLORS.AP_ / COLORS.AP
Text File  |  1998-04-01  |  4KB  |  148 lines
  1. <[
  2. // colors.htm    
  3. // Colors Active Page
  4. // (c) 1997-98 SmartDesk, Inc., All Rights Reserved.
  5.  
  6. LIBRARY webdesk
  7.  
  8. FUNCTION UpdateColor( desk, var, retval, flag )
  9.     clr = desk.session.var( var )
  10.     if ( strempty( clr ) )
  11.         return( retval )
  12.     end
  13.     flag = 1
  14.     return( clr )
  15. END
  16.  
  17. TRY
  18.  
  19. desk = new( "PrivateDesktop", param( 1 ), param( 2 ) )
  20. if ( type( desk ) != "O" )
  21.     return( 0 )
  22. end
  23.  
  24. flag = 0
  25. desk.fClrBody = UpdateColor( desk, "fpage", desk.fClrBody, @flag )
  26. desk.bClrBody = UpdateColor( desk, "bpage", desk.bClrBody, @flag )
  27. desk.fClrHdr = UpdateColor( desk, "fhdr", desk.fClrHdr, @flag )
  28. desk.bClrHdr = UpdateColor( desk, "bhdr", desk.bClrHdr, @flag )
  29. desk.ClrLink = UpdateColor( desk, "ulink", desk.ClrLink, @flag )
  30. desk.ClrVLink = UpdateColor( desk, "vlink", desk.ClrVLink, @flag )
  31. if ( flag )
  32.     desk.ClrALink = desk.ClrLink
  33.     desk.update( )
  34. end
  35.  
  36.  
  37. ]>
  38. <HTML>
  39. <HEAD>
  40. <TITLE>Colors</TITLE>
  41. </HEAD>
  42. <BODY BGCOLOR=<[ ! desk.bclrBody + " TEXT=" + desk.fclrBody + " LINK=" + desk.clrLink + " ALINK=" + desk.clrALink + " VLINK=" + desk.clrVLink ]>>
  43.  
  44. <p>
  45. <CENTER>
  46.  
  47. <[ ! desk.templateHeader( ) ]>
  48.  
  49. <TABLE WIDTH=600 BORDER=0 CELLSPACING=0 CELLPADDING=1>
  50.  <TR BGCOLOR=<[! desk.bclrHdr ]>>
  51.   <TD VALIGN=bottom NOWRAP><FONT SIZE=+1 COLOR=<[ ! desk.fclrHdr + " FACE=" + desk.fontTitle + "><B> " + desk.fname ]>'s Color Options</B></FONT></TD>
  52.   <TD WIDTH=100% ALIGN=right><FONT SIZE=-1 FACE=geneva,arial COLOR=<[ ! desk.fclrHdr + ">" + cdow( jdate( ) ) + ", " + date( "MMMM dd, YYYY " ) + timetostr( time( ), 0 ) + "m" ]></FONT></TD>
  53.  </TR>
  54. </TABLE>
  55.  
  56. <[ ! desk.templateNavBar( ) ]>
  57.  
  58. </CENTER>
  59. </p>
  60.  
  61. <TABLE WIDTH=98% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  62.  <TR VALIGN=top>
  63.   <TD WIDTH=24%>
  64.  
  65.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  66.     <TR>
  67.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Page</B></FONT></TD>
  68.     </TR>
  69.    </TABLE>
  70.  
  71.     <[
  72.         ! DisplayColors( "Foreground", "", "colors.htm?fpage=" )
  73.         ! DisplayColors( "Background", "", "colors.htm?bpage=" )
  74.     ]>
  75.    
  76.   </TD>
  77.   
  78.   <TD NOWRAP WIDTH=13 ALIGN=middle><IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  79.    <IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  80.   </TD>  
  81.   
  82.   <TD WIDTH=24%>
  83.  
  84.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  85.     <TR>
  86.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Header</B></FONT></TD>
  87.     </TR>
  88.    </TABLE>
  89.  
  90.     <[
  91.         ! DisplayColors( "Foreground", "", "colors.htm?fhdr=" )
  92.         ! DisplayColors( "Background", "", "colors.htm?bhdr=" )
  93.     ]>
  94.    
  95.   </TD>
  96.  
  97.   <TD NOWRAP WIDTH=13 ALIGN=middle><IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  98.    <IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  99.   </TD>  
  100.   
  101.   <TD WIDTH=24%>
  102.  
  103.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  104.     <TR>
  105.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Unvisted Link</B></FONT></TD>
  106.     </TR>
  107.    </TABLE>
  108.  
  109.     <[
  110.         ! DisplayColors( "Link", "", "colors.htm?ulink=" )
  111.         ! "<br><CENTER><a href=\"public.htm\"><FONT SIZE=3>Goto Public Desktop</FONT></a></CENTER><br>"
  112.     ]>
  113.    
  114.   </TD>
  115.  
  116.   <TD NOWRAP WIDTH=13 ALIGN=middle><IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  117.    <IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  118.   </TD>  
  119.   
  120.   <TD WIDTH=24%>
  121.  
  122.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  123.     <TR>
  124.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Visited Link</B></FONT></TD>
  125.     </TR>
  126.    </TABLE>
  127.  
  128.     <[
  129.         ! DisplayColors( "Vlink", "", "colors.htm?vlink=" )
  130.         ! "<br><CENTER><a href=\"private.htm\"><FONT SIZE=3>Goto Private Desktop</FONT></a></CENTER><br>"
  131.     ]>
  132.    
  133.   </TD>
  134.  
  135.  </TR>
  136. </TABLE>
  137.  
  138.  
  139. </BODY>
  140. </HTML>
  141.  
  142. <[
  143.     CATCH ( err )
  144.         println( 3000, "Error [" + err.errornum + "] at line #" + err.errorline + " (" + ErrorAsText( err.errornum ) + ")" )
  145.         return( 0 )
  146.     END
  147. ]>
  148.