home *** CD-ROM | disk | FTP | other *** search
/ WinFiles.com 1998 June / WF0698_3.ISO / servers-websrv / websuite.exe / _LINKS.AP_ / _LINKS.AP
Text File  |  1998-04-01  |  4KB  |  143 lines
  1. <[
  2. // _links.htm    
  3. // Customizing Links Active Page
  4. // (c) 1997-98 SmartDesk, Inc., All Rights Reserved.
  5.  
  6. LIBRARY webdesk
  7.  
  8. desk = new( "PrivateDesktop", param( 1 ), param( 2 ) )
  9. if ( type( desk ) != "O" )
  10.     return( 0 )
  11. end
  12.  
  13. TRY
  14.  
  15. item = new( "LinkItem", desk, desk.session.var( "item" ) )
  16.  
  17. cmd = desk.session.var( "cmd" )
  18. if ( ! strempty( cmd ) )
  19.     switch ( upper( cmd ) )
  20.       case "UPDATE"
  21.         item.UpdateFromForm( )
  22.           break
  23.       case "DELETE"
  24.         item.delete( )
  25.           break
  26.       case "NEW"
  27.         item.createnew( )
  28.           break
  29.     end
  30. end
  31.  
  32. ]>
  33. <HTML>
  34. <HEAD>
  35. <TITLE>Customizing Links</TITLE>
  36. </HEAD>
  37. <BODY BGCOLOR=<[ ! desk.bclrBody + " TEXT=" + desk.fclrBody + " LINK=" + desk.clrLink + " ALINK=" + desk.clrALink + " VLINK=" + desk.clrVLink ]>>
  38.  
  39. <p>
  40. <CENTER>
  41.  
  42. <[ ! desk.templateHeader( ) ]>
  43.  
  44. <TABLE WIDTH=600 BORDER=0 CELLSPACING=0 CELLPADDING=1>
  45.  <TR BGCOLOR=<[! desk.bclrHdr ]>>
  46.   <TD VALIGN=bottom NOWRAP><FONT SIZE=+1 COLOR=<[ ! desk.fclrHdr + " FACE=" + desk.fontTitle + "><B> " ]>Customizing Links</B></FONT></TD>
  47.   <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>
  48.  </TR>
  49. </TABLE>
  50.  
  51. <[ ! desk.templateNavBar( ) ]>
  52.  
  53. </CENTER>
  54. </p>
  55.  
  56. <TABLE WIDTH=98% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  57.  <TR VALIGN=top>
  58.   <TD WIDTH=33%>
  59.  
  60.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  61.     <TR>
  62.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Links</B></FONT></TD>
  63.     </TR>
  64.    </TABLE>
  65.  
  66.     <[
  67.         ! DisplayLinks( desk, 3, 1 )
  68.     ]>
  69.  
  70.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  71.     <TR>
  72.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Jump</B></FONT></TD>
  73.     </TR>
  74.    </TABLE>
  75.  
  76.    <br><CENTER><a href="public.htm"><FONT SIZE=3>Public</FONT></a> | 
  77.    <a href="private.htm"><FONT SIZE=3>Private</FONT></a></CENTER><br>
  78.  
  79.   </TD>
  80.   
  81.   <TD NOWRAP WIDTH=13 ALIGN=middle><IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  82.    <IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  83.    <IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  84.   </TD>  
  85.   
  86.   <TD WIDTH=66%>
  87.  
  88.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  89.     <TR>
  90.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Details</B></FONT></TD>
  91.     </TR>
  92.    </TABLE>
  93.  
  94.    <center><p>Select the item at the left to view/update the details.</p></center>
  95.  
  96.     <[
  97.         ! item.display( )
  98.     ]>
  99.  
  100.    <P>
  101.    <CENTER>
  102.    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0>
  103.     <TR>
  104.      <TD>
  105.       <FORM ACTION="_links.htm" METHOD="get">
  106.        <FONT SIZE=2>Description:</br></FONT>
  107.        <INPUT TYPE="hidden" NAME="cmd" VALUE="update">
  108.        <INPUT TYPE="hidden" NAME="item" VALUE="<[ ! item.item ]>">
  109.        <INPUT TYPE="edit" NAME="desc" SIZE=30 VALUE="<[ ! item.desc ]>"><br>
  110.        <FONT SIZE=2>Link:</br></FONT>
  111.        <INPUT TYPE="edit" NAME="link" SIZE=30 VALUE="<[ ! item.link ]>"><br><br>
  112.            <INPUT TYPE="checkbox" NAME="ispublic" <[ ! ( ( item.scope & 1 ) ? "CHECKED" : "" ) ]>> Include in PUBLIC lists<br>
  113.            <INPUT TYPE="checkbox" NAME="isprivate" <[ ! ( ( item.scope & 2 ) ? "CHECKED" : "" ) ]>> Include in PRIVATE lists<br><br>
  114.        <center><INPUT TYPE="submit" VALUE="Update"><INPUT TYPE="reset" VALUE=" Reset "></center>
  115.       </FORM>
  116.  
  117.       <center><P>
  118.       <a href="_links.htm?cmd=delete&item=<[ ! item.item ]>">Delete</a> |
  119.       <a href="_links.htm?cmd=new">New</a>
  120.       </p></center>
  121.  
  122.      </TD>
  123.     </TR>
  124.    </TABLE>
  125.    </CENTER>
  126.    </P>
  127.  
  128.   </TD>
  129.  </TR>
  130. </TABLE>
  131.  
  132.  
  133. </BODY>
  134. </HTML>
  135.  
  136. <[
  137.     CATCH ( err )
  138.         println( 3000, "Error [" + err.errornum + "] at line #" + err.errorline + " (" + ErrorAsText( err.errornum ) + ")" )
  139.         return( 0 )
  140.     END
  141. ]>
  142.  
  143.