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