home *** CD-ROM | disk | FTP | other *** search
/ Image Master / L80.iso / Net / websuite / websuite.exe / CALENDAR.AP_ / CALENDAR.AP
Encoding:
Text File  |  1997-12-08  |  2.7 KB  |  107 lines
  1. <[
  2. // calendar.ap    
  3. // Calendar Active Page
  4. // (c) 1997 SmartDesk, Inc., All Rights Reserved.
  5.  
  6. #include "/desktop/desksupp.fgl"
  7. #include "/desktop/calendar.fgl"
  8.  
  9. desk = new( "PrivateDesktop", param( 1 ), param( 2 ), 0 )
  10. if ( type( desk ) != "O" )
  11.     return( 0 )
  12. end
  13.  
  14. TRY
  15.  
  16. ]>
  17. <HTML>
  18. <HEAD>
  19. <TITLE>Calendar</TITLE>
  20. </HEAD>
  21. <BODY BGCOLOR=<[ ! desk.bclrBody + " TEXT=" + desk.fclrBody + " LINK=" + desk.clrLink + " ALINK=" + desk.clrALink + " VLINK=" + desk.clrVLink ]>>
  22.  
  23. <p>
  24. <CENTER>
  25.  
  26. <[ ! desk.templateHeader( ) ]>
  27.  
  28. <TABLE WIDTH=600 BORDER=0 CELLSPACING=0 CELLPADDING=1>
  29.  <TR BGCOLOR=<[! desk.bclrHdr ]>>
  30.   <TD VALIGN=bottom NOWRAP><FONT SIZE=+1 COLOR=<[ ! desk.fclrHdr + " FACE=" + desk.fontTitle + "><B> " + desk.fname ]>'s Calendar</B></FONT></TD>
  31.   <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>
  32.  </TR>
  33. </TABLE>
  34.  
  35. <[ ! desk.templateNavBar( ) ]>
  36.  
  37. </CENTER>
  38. </p>
  39.  
  40. <TABLE WIDTH=98% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  41.  <TR VALIGN=top>
  42.  
  43.   <TD WIDTH=49%>
  44.  
  45.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  46.     <TR>
  47.      <TD ALIGN=center BGCOLOR=<[! desk.bclrHdr + "><FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr + "><B>" + date( "MMMM, YYYY" ) ]></B></FONT></TD>
  48.     </TR>
  49.    </TABLE>
  50.     <p>
  51.     <[
  52.         ! DisplayCalendar( 1 )
  53.     ]>
  54.    </p>
  55.  
  56.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  57.     <TR>
  58.      <TD WIDTH=48%>
  59.       <[ ! DisplayCalendar( ) ]>
  60.      </TD>
  61.      <TD WIDTH=4%> </TD>
  62.      <TD WIDTH=48%>
  63.       <[ 
  64.           ! DisplayCalendar( ) 
  65.        ]>
  66.      </TD>
  67.     </TR>
  68.    </TABLE>
  69.     <[
  70.         ! "<br><CENTER><a href=\"public.ap\"><FONT SIZE=2>Public Desktop</FONT></a> | "
  71.         ! "<a href=\"private.ap\"><FONT SIZE=2>Private Desktop</FONT></a></CENTER><br>"
  72.     ]>
  73.   </TD>
  74.   
  75.   <TD NOWRAP WIDTH=13 ALIGN=middle><IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  76.    <IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  77.    <IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  78.   </TD>  
  79.   
  80.   <TD WIDTH=49%>
  81.  
  82.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  83.     <TR>
  84.      <TD BGCOLOR=<[! desk.bclrHdr + "><CENTER><FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr + "><B>" + cdow( jdate( ) ) + ", " + date( "MMMM dd, YYYY" ) + "</B></FONT></CENTER></TD>" ]>
  85.     </TR>
  86.    </TABLE>
  87.     <[
  88.         ! "<p>" + DisplayDay( ) + "</p>"
  89.     ]>
  90.    
  91.   </TD>
  92.  
  93.  
  94.  </TR>
  95. </TABLE>
  96.  
  97.  
  98. </BODY>
  99. </HTML>
  100.  
  101. <[
  102.     CATCH ( err )
  103.         println( 3000, "Error [" + err.errornum + "] at line #" + err.errorline + " (" + ErrorAsText( err.errornum ) + ")" )
  104.         return( 0 )
  105.     END
  106. ]>
  107.