home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 1999 April / APC443.iso / features / grpware / coldfus / coldfusi.exe / data1.cab / Examples / publish / admin / modifycontent.cfm < prev    next >
Encoding:
Text File  |  1998-10-08  |  2.0 KB  |  81 lines
  1. <CFIF ListLen(ContentIDList) IS 1>
  2.     <CFIF evaluate("C" & ContentIDList) IS "|0">
  3.     <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
  4.     
  5.     <HTML>
  6.     <HEAD>
  7.         <TITLE>Upload File</TITLE>
  8.     </HEAD>
  9.     
  10.     <BODY BGCOLOR="#660000" TEXT="#FFFFFF" LINK="#FFFF00" VLINK="#FFFF00">
  11.     
  12.     <P><IMG SRC="images/modifycontent.gif" WIDTH=132 HEIGHT=25 BORDER=0 ALT="Modify Content"></P>
  13.     
  14.     <FORM ACTION="modifycontent2.cfm" METHOD="POST" ENCTYPE="multipart/form-data">
  15.     
  16.         <CFOUTPUT>
  17.             <INPUT TYPE="HIDDEN" NAME="ContentIDList" VALUE="#ContentIDList#">
  18.         </CFOUTPUT>
  19.     
  20.         <P><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2"><B>Select a file...</B></FONT><BR>
  21.         <INPUT TYPE="FILE" NAME="UploadedFile"></P>
  22.     
  23.         <P><INPUT TYPE="SUBMIT" VALUE="Continue"></P>
  24.     
  25.     </FORM>
  26.     
  27.     </BODY>
  28.     </HTML>
  29.     <CFABORT>
  30.     </CFIF>
  31. </CFIF>
  32.  
  33. <CFPARAM NAME="ContentIDList" DEFAULT="">
  34.  
  35. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
  36.  
  37. <HTML>
  38. <HEAD>
  39.     <TITLE>Modify Content</TITLE>
  40. <STYLE TYPE="text/css">
  41. <!-- A {text-decoration: none} -->
  42. </STYLE>
  43. </HEAD>
  44.  
  45. <BODY BGCOLOR="#660000" TEXT="#FFFFFF" LINK="#FFFF00" VLINK="#FFFF00">
  46.  
  47. <P><IMG SRC="images/modifycontent.gif" WIDTH=132 HEIGHT=25 BORDER=0 ALT="Modify Content"></P>
  48.  
  49. <CFIF ContentIDList IS "">
  50.  
  51.     <FONT FACE="MS Sans Serif, Helvetica" SIZE="-2"><B>Error:</B><BR>
  52.     Nothing to do...</FONT>
  53.  
  54. <CFELSE>
  55.  
  56.     <CFLOOP LIST="#ContentIDList#" INDEX="CurrID">
  57.     
  58.         <CFSET Data = evaluate("C" & CurrID)>
  59.         <CFQUERY DATASOURCE="cfexamples" NAME="UpdateContent">
  60.         UPDATE pubcontent
  61.         SET Data = '#Data#'
  62.         WHERE contentid = #CurrID#
  63.         </CFQUERY>
  64.     
  65.     </CFLOOP>
  66.     
  67.     <P><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2">Your changes have been made.</FONT></P>
  68.  
  69.     <CFQUERY DATASOURCE="CFexamples" NAME="GetObjectID">
  70.     SELECT ObjectID FROM PubContent
  71.     WHERE ContentID = #ListGetAt(ContentIDList,1)#
  72.     </CFQUERY>
  73.     
  74.     <P><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2">
  75.     <CFOUTPUT><A HREF="properties.cfm?ObjectID=#GetObjectID.ObjectID#">Back to Object #GetObjectID.ObjectID#</A></CFOUTPUT>
  76.     </FONT></P>
  77.  
  78. </CFIF>
  79.  
  80. </BODY>
  81. </HTML>