home *** CD-ROM | disk | FTP | other *** search
/ Image Master / L80.iso / Net / websuite / websuite.exe / PUBLIC.AP_ / PUBLIC.AP
Encoding:
Text File  |  1997-12-08  |  4.3 KB  |  150 lines
  1. <[
  2. // public.ap - Public Desktop Active Page
  3. // (c) 1997 SmartDesk, Inc., All Rights Reserved.
  4.  
  5. #include "/desktop/desksupp.fgl"
  6. #include "/desktop/contact.fgl"
  7. #include "/desktop/calendar.fgl"
  8. #include "/desktop/stuff.fgl"
  9. #include "/desktop/links.fgl"
  10. #include "/desktop/counter.fgl"
  11.  
  12. desk = new( "PrivateDesktop", param( 1 ), param( 2 ), 1 )
  13. if ( type( desk ) != "O" )
  14.     return( 0 )
  15. end
  16.  
  17. contact = new( "Contact", desk )
  18. ]>
  19. <HTML>
  20. <HEAD>
  21. <TITLE>Public Desktop for <[! desk.FullName ]></TITLE>
  22. </HEAD>
  23. <BODY BGCOLOR=<[ ! desk.bclrBody + " TEXT=" + desk.fclrBody + " LINK=" + desk.clrLink + " ALINK=" + desk.clrALink + " VLINK=" + desk.clrVLink ]>>
  24.  
  25. <p>
  26. <CENTER>
  27.  
  28. <[ ! desk.templateHeader( ) ]>
  29.  
  30. <TABLE WIDTH=600 BORDER=0 CELLSPACING=0 CELLPADDING=1>
  31.  <TR BGCOLOR=<[! desk.bclrHdr ]>>
  32.   <TD VALIGN=bottom NOWRAP><FONT SIZE=+1 COLOR=<[ ! desk.fclrHdr + " FACE=" + desk.fontTitle + "><B> " + desk.fname ]>'s Public Desktop</B></FONT></TD>
  33.   <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>
  34.  </TR>
  35. </TABLE>
  36.  
  37. <[ ! desk.templateNavBar( ) ]>
  38.  
  39. </CENTER>
  40. </p>
  41.  
  42. <TABLE WIDTH=98% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  43.  <TR VALIGN=top>
  44.   <TD WIDTH=22%>
  45.  
  46.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  47.     <TR>
  48.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Welcome...</B></FONT></TD>
  49.      <TD BGCOLOR=<[! desk.bclrHdr ]> VALIGN="center" ALIGN=right><a href="_public.ap"><img src="more.jpg" border=0 width=16 height=16></a></TD>
  50.     </TR>
  51.    </TABLE>
  52.  
  53.    <[ 
  54.            counterfile = webServerHome( desk.session.websrvr ) + "\\desktop\\counter.dat"
  55.            ! "<center>" + CounterDisplay( counterfile, 6 ) + "</center>"
  56.        ]>
  57.  
  58.    <CENTER><p><a href="mailto:<[ ! desk.email ]>"><img src="mypic.jpg" border=0 width=150 height=180></a><br>
  59.    <FONT SIZE=2><[ ! desk.fullname ]></FONT></p></CENTER>
  60.  
  61.    <P><CENTER>
  62.    <TABLE WIDTH=90% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  63.     <TR><TD><FONT SIZE=4><[ ! desk.curmsg ]></FONT><TD></TR>
  64.    </TABLE></P>
  65.  
  66.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  67.     <TR>
  68.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Jump</B></FONT></TD>
  69.     </TR>
  70.    </TABLE>
  71.  
  72.    <br><CENTER><FONT SIZE=3>
  73.    <a href="private.ap">Private</a> |
  74.    <a href="_public.ap">Personalize</a>
  75.    </CENTER><br>
  76.  
  77.   </TD>
  78.   
  79.   <TD NOWRAP WIDTH=13 ALIGN=middle><IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  80.    <IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  81.    <IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  82.   </TD>  
  83.   
  84.   <TD WIDTH=54%>
  85.  
  86.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  87.     <TR>
  88.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Contact Information</B></FONT></TD>
  89.     </TR>
  90.    </TABLE>
  91.  
  92.    <[ 
  93.            ! contact.display( ) 
  94.        ]>
  95.  
  96.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  97.     <TR>
  98.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Useful Stuff</B></FONT></TD>
  99.     </TR>
  100.    </TABLE>
  101.  
  102.     <[
  103.     
  104.         ! DisplayUsefulStuff( desk, 1 )
  105.         
  106.     ]>
  107.  
  108.  
  109.   </TD>
  110.  
  111.   <TD NOWRAP WIDTH=13 ALIGN=middle><IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  112.    <IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  113.    <IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  114.   </TD>  
  115.  
  116.   <TD WIDTH=22%>
  117.  
  118.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  119.     <TR>
  120.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Calendar</B></FONT></TD>
  121.     </TR>
  122.    </TABLE>
  123.  
  124.    <p>
  125.    <[ 
  126.    
  127.       ! DisplayCalendar( ) 
  128.       
  129.       ]>
  130.       </p> 
  131.       
  132.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  133.     <TR>
  134.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Links</B></FONT></TD>
  135.     </TR>
  136.    </TABLE>
  137.  
  138.     <[
  139.         // links
  140.         ! DisplayLinks( desk, 1 )
  141.     ]>
  142.  
  143.   </TD>
  144.  </TR>
  145. </TABLE>
  146.  
  147. </BODY>
  148. </HTML>
  149.  
  150.