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