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  |  6KB  |  182 lines
  1. <[
  2. // _public.htm - Public Desktop Maintenance Active Page
  3. // (c) 1997-98 SmartDesk, Inc., All Rights Reserved.
  4.  
  5. LIBRARY webdesk
  6.  
  7. desk = new( "PrivateDesktop", param( 1 ), param( 2 ) )
  8. if ( type( desk ) != "O" )
  9.     return( 0 )
  10. end
  11.  
  12. contact = new( "Contact", desk )
  13.  
  14. cmd = desk.session.var( "CMD" )
  15. if ( ! strempty( cmd ) )
  16.     switch ( upper( cmd ) )
  17.       case "MSG"
  18.           desk.curmsg = desk.session.var( "CURMSG" )
  19.           desk.updateMsg( )
  20.           break
  21.       case "CONTACT"
  22.         contact.updateFromForm( )
  23.         break
  24.     end    
  25. end
  26.  
  27. template = desk.session.var( "template" )
  28. if ( ! strempty( template ) )
  29.     desk.template = 0 + template
  30.     desk.update( )
  31. end
  32.  
  33.  
  34. ]>
  35. <HTML>
  36. <HEAD>
  37. <TITLE>Personalize Desktop for <[! desk.FullName ]></TITLE>
  38. </HEAD>
  39. <BODY BGCOLOR=<[ ! desk.bclrBody + " TEXT=" + desk.fclrBody + " LINK=" + desk.clrLink + " ALINK=" + desk.clrALink + " VLINK=" + desk.clrVLink ]>>
  40.  
  41. <p>
  42. <CENTER>
  43.  
  44. <[ ! desk.templateHeader( ) ]>
  45.  
  46. <TABLE WIDTH=600 BORDER=0 CELLSPACING=0 CELLPADDING=1>
  47.  <TR BGCOLOR=<[! desk.bclrHdr ]>>
  48.   <TD VALIGN=bottom NOWRAP><FONT SIZE=+1 COLOR=<[ ! desk.fclrHdr + " FACE=" + desk.fontTitle + "><B> Personalize " ]> the Desktop</B></FONT></TD>
  49.   <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>
  50.  </TR>
  51. </TABLE>
  52.  
  53. <[ ! desk.templateNavBar( ) ]>
  54.  
  55. </CENTER>
  56. </p>
  57.  
  58. <TABLE WIDTH=98% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  59.  <TR VALIGN=top>
  60.   <TD WIDTH=22%>
  61.  
  62.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  63.     <TR>
  64.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Jump</B></FONT></TD>
  65.     </TR>
  66.    </TABLE>
  67.  
  68.    <br><CENTER>
  69.    <a href="public.htm">Public</a> | 
  70.    <a href="private.htm">Private</a> |
  71.    <a href="/">Home</a>
  72.    </CENTER><br>
  73.  
  74.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  75.     <TR>
  76.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Picture</B></FONT></TD>
  77.      <TD BGCOLOR=<[! desk.bclrHdr ]> VALIGN="center" ALIGN=right><a href="mypic.htm"><img src="more.jpg" border=0 width=16 height=16></a></TD>
  78.     </TR>
  79.    </TABLE>
  80.  
  81.    <CENTER>
  82.     <p><a href="mypic.htm"><img src="mypic.jpg" border=1 width=150 height=180></a><br></p>
  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>Message</B></FONT></TD>
  87.     </TR>
  88.    </TABLE>
  89.    
  90.    <P><FORM ACTION="_public.htm" METHOD="GET"><CENTER>
  91.    <TABLE WIDTH=90% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  92.     <TR><TD><FONT SIZE=4><TEXTAREA NAME="curmsg" WRAP=virtual ROWS=10><[ ! desk.curmsg ]></TEXTAREA></FONT><TD></TR>
  93.    </TABLE>
  94.    <INPUT TYPE="hidden" NAME="cmd" VALUE="msg">
  95.    <INPUT TYPE="submit" VALUE="Update Message">
  96.    </FORM></P>
  97.  
  98.   </TD>
  99.   
  100.   <TD NOWRAP WIDTH=13 ALIGN=middle><IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  101.    <IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  102.    <IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  103.   </TD>  
  104.   
  105.   <TD WIDTH=54%>
  106.  
  107.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  108.     <TR>
  109.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Contact Information</B></FONT></TD>
  110.     </TR>
  111.    </TABLE>
  112.  
  113.    <[ 
  114.            ! contact.update( ) 
  115.        ]>
  116.  
  117.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  118.     <TR>
  119.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Useful Stuff</B></FONT></TD>
  120.      <TD BGCOLOR=<[! desk.bclrHdr ]> VALIGN="center" ALIGN=right><a href="_stuff.htm"><img src="more.jpg" border=0 width=16 height=16></a></TD>
  121.     </TR>
  122.    </TABLE>
  123.  
  124.     <[
  125.     
  126.         ! DisplayUsefulStuff( desk, 3, 1 )
  127.     ]>
  128.     
  129.    </CENTER>
  130.    </P>
  131.  
  132.   </TD>
  133.  
  134.   <TD NOWRAP WIDTH=13 ALIGN=middle><IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  135.    <IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  136.    <IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  137.   </TD>  
  138.  
  139.   <TD WIDTH=22%>
  140.  
  141.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  142.     <TR>
  143.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Colors</B></FONT></TD>
  144.      <TD BGCOLOR=<[! desk.bclrHdr ]> VALIGN="center" ALIGN=right><a href="colors.htm"><img src="more.jpg" border=0 width=16 height=16></a></TD>
  145.     </TR>
  146.    </TABLE>
  147.  
  148.    <CENTER>
  149.    <p><a href="colors.htm"><img src="clrs.jpg" BORDER=1 WIDTH=120 HEIGHT=20></a><br></p>
  150.    </CENTER>
  151.  
  152.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  153.     <TR>
  154.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Calendar</B></FONT></TD>
  155.      <TD BGCOLOR=<[! desk.bclrHdr ]> VALIGN="center" ALIGN=right></TD>
  156.     </TR>
  157.    </TABLE>
  158.  
  159.    <p><[ ! DisplayCalendar( ) ]></p>
  160.  
  161.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  162.     <TR>
  163.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Links</B></FONT></TD>
  164.      <TD BGCOLOR=<[! desk.bclrHdr ]> VALIGN="center" ALIGN=right><a href="_links.htm"><img src="more.jpg" border=0 width=16 height=16></a></TD>
  165.     </TR>
  166.    </TABLE>
  167.  
  168.     <[
  169.         // links
  170.         ! DisplayLinks( desk, 3, 1 )
  171.     ]>
  172.  
  173.    </CENTER>
  174.    </P>
  175.   </TD>
  176.  </TR>
  177. </TABLE>
  178.  
  179. </BODY>
  180. </HTML>
  181.  
  182.