home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 1999 April / APC443.iso / features / grpware / coldfus / coldfusi.exe / data1.cab / Examples / publish / admin / modifycontentform.cfm < prev    next >
Encoding:
Text File  |  1998-10-08  |  1.9 KB  |  81 lines
  1. <CFPARAM NAME="URL.ContentID" DEFAULT="">
  2.  
  3. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
  4.  
  5. <HTML>
  6. <HEAD>
  7.     <TITLE>Modify Content</TITLE>
  8. <STYLE TYPE="text/css">
  9. <!-- A {text-decoration: none} -->
  10. </STYLE>
  11. </HEAD>
  12.  
  13. <BODY BGCOLOR="#660000" TEXT="#FFFFFF" LINK="#FFFF00" VLINK="#FFFF00">
  14.  
  15. <P><IMG SRC="images/modifycontent.gif" WIDTH=132 HEIGHT=25 BORDER=0 ALT="Modify Content"></P>
  16.  
  17. <CFIF URL.ContentID IS "">
  18.  
  19.     <FONT FACE="MS Sans Serif, Helvetica" SIZE="-2"><B>Error:</B><BR>
  20.     Nothing to do...</FONT>
  21.  
  22. <CFELSE>
  23.  
  24.     <!--- Find out whether or not this content is binary data --->
  25.  
  26.     <FORM ACTION="modifycontent.cfm" METHOD="POST">
  27.  
  28.     <CFQUERY NAME="GetContent" DATASOURCE="CFexamples">
  29.     SELECT * FROM PubContent, PubContentTypes 
  30.     WHERE PubContentTypes.TypeID = PubContent.TypeID
  31.         AND PubContent.ContentID = #URL.ContentID#
  32.     </CFQUERY>
  33.  
  34.     <FONT FACE="MS Sans Serif, Helvetica" SIZE="-2">
  35.     
  36.     <CFOUTPUT><P><B>Content Type:</B> #GetContent.TypeName#
  37.     <INPUT TYPE="HIDDEN" NAME="ContentIDList" VALUE="#GetContent.ContentID#"></CFOUTPUT>
  38.  
  39.     <BR><BR>
  40.  
  41.     <B>Data</B><BR>
  42.  
  43.     <CFIF GetContent.TypeFile IS FALSE>
  44.  
  45.         <CFOUTPUT>
  46.             <TEXTAREA NAME="C#ContentID#" COLS="50" ROWS="6" WRAP="VIRTUAL">#HTMLEditFormat(GetContent.Data)#</TEXTAREA>
  47.         </CFOUTPUT>
  48.  
  49.     <CFELSE>
  50.  
  51.         <CFDIRECTORY ACTION="LIST" DIRECTORY="#GetDirectoryFromPath(GetTemplatePath())#../binarydata" NAME="BinDir">
  52.  
  53.         <CFOUTPUT>
  54.             <SELECT NAME="C#ContentID#" SIZE="#Min(10,BinDir.RecordCount)#">
  55.         </CFOUTPUT>
  56.             <OPTION VALUE="|0">Upload new file...
  57.             <OPTION VALUE="|1">------------------------
  58.         <CFOUTPUT QUERY="BinDir">
  59.             <CFIF NOT (Name IS "." OR Name IS "..")>
  60.                 <CFIF Name IS GetContent.Data>
  61.                     <OPTION SELECTED>#Name#
  62.                 <CFELSE>
  63.                     <OPTION>#Name#
  64.                 </CFIF>
  65.             </CFIF>
  66.         </CFOUTPUT>
  67.         </SELECT>
  68.  
  69.     </CFIF>
  70.  
  71.     </FONT>
  72.  
  73.     <P><INPUT TYPE="SUBMIT" VALUE="Modify"> <INPUT TYPE="RESET" VALUE="Revert"></P>
  74.  
  75.     </FORM>
  76.  
  77. </CFIF>
  78.  
  79. </BODY>
  80. </HTML>
  81.