home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 1999 April / APC443.iso / features / grpware / coldfus / coldfusi.exe / data1.cab / Examples / publish / admin / addmorecontent.cfm < prev    next >
Encoding:
Text File  |  1998-10-08  |  2.3 KB  |  83 lines
  1. <CFSET Session.AddContent.ReqContentTypes = "">
  2. <CFSET Session.AddContent.ReqContentTypeNames = "">
  3. <CFSET Session.AddContent.ReqContentTypeFile = "">
  4. <CFSET Session.AddContent.OptContentTypes = "">
  5. <CFSET Session.AddContent.OptContentTypeNames = "">
  6. <CFSET Session.AddContent.OptContentTypeFile = "">
  7. <CFSET Session.AddContent.ObjectID = ObjectID>
  8.  
  9. <CFQUERY DATASOURCE="CFexamples" NAME="GetObject">
  10. SELECT * FROM PubObjects
  11. WHERE ObjectID = #ObjectID#
  12. </CFQUERY>
  13.  
  14. <CFSET Session.AddContent.ClassID = GetObject.ClassID>
  15.  
  16. <CFQUERY DATASOURCE="CFexamples" NAME="GetOptContentTypes">
  17. SELECT * FROM PubClassDefinitions, PubContentTypes
  18. WHERE PubClassDefinitions.TypeID = PubContentTypes.TypeID
  19.     AND ClassID = #GetObject.ClassID#
  20. </CFQUERY>
  21.  
  22. <CFQUERY DATASOURCE="CFexamples" NAME="GetCurrContentTypes">
  23. SELECT TypeID FROM PubContent
  24. WHERE ObjectID = #ObjectID#
  25. </CFQUERY>
  26.  
  27. <CFSET CurrContentList = ValueList(GetCurrContentTypes.TypeID)>
  28.  
  29. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
  30.  
  31. <HTML>
  32. <HEAD>
  33.     <TITLE>Add Content</TITLE>
  34. <STYLE TYPE="text/css">
  35. <!-- A {text-decoration: none} -->
  36. </STYLE>
  37. </HEAD>
  38.  
  39. <BODY BGCOLOR="#660000" TEXT="#FFFFFF" LINK="#FFFF00" VLINK="#FFFF00">
  40.  
  41. <TABLE ALIGN="RIGHT" CELLPADDING="0" CELLSPACING="0">
  42. <TR>
  43.     <TD ALIGN="RIGHT">
  44.     <FONT FACE="MS Sans Serif, Helvetica" SIZE="-2">
  45.         <A HREF="index.cfm">Administrator Home</A>
  46.     </FONT>
  47.     </TD>
  48. </TR>
  49. </TABLE>
  50.  
  51. <P><IMG SRC="images/addcontent.gif" WIDTH=109 HEIGHT=20 BORDER=0 ALT="Add Content"></P>
  52.  
  53. <FORM ACTION="addcontent2.cfm" METHOD="POST">
  54. <TABLE BORDER="1" CELLPADDING="5" CELLSPACING="2">
  55.  
  56. <CFLOOP QUERY="GetOptContentTypes">
  57.     <CFIF ListFind(CurrContentList, TypeID) IS 0>
  58.         <CFOUTPUT>
  59.  
  60.         <TR>
  61.             <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2">
  62.                 <INPUT TYPE="checkbox" NAME="OptContentTypes" VALUE="#TypeID#">
  63.             </FONT></TD>
  64.             <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2"><B>#TypeName#</B></FONT></TD>
  65.             <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2">#TypeDesc#<BR></FONT></TD>
  66.             <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2">
  67.                 <CFIF TypeFile IS 1>Binary File<CFELSE>Text/HTML</CFIF>
  68.             </FONT></TD>
  69.         </TR>
  70.  
  71.         </CFOUTPUT>
  72.     </CFIF>
  73. </CFLOOP>
  74.  
  75. </TABLE>
  76.  
  77. <P><INPUT TYPE="SUBMIT" VALUE="Continue"></P>
  78.  
  79. </FORM>
  80.  
  81. </BODY>
  82. </HTML>
  83.