home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 1999 April / APC443.iso / features / grpware / coldfus / coldfusi.exe / data1.cab / Examples / publish / admin / createinstance2.cfm < prev    next >
Encoding:
Text File  |  1998-10-08  |  2.2 KB  |  78 lines
  1. <CFIF NOT IsDefined("PageID")>
  2.     <CFIF IsDefined("ObjectID")>
  3.         <CFLOCATION URL="createinstance.cfm?ObjectID=#ObjectID#">
  4.     <CFELSE>
  5.         <CFLOCATION URL="index.cfm">
  6.     </CFIF>
  7. </CFIF>
  8.  
  9. <CFQUERY DATASOURCE="CFexamples" NAME="GetPage">
  10. SELECT * FROM PubPages
  11. WHERE PageID = #PageID#
  12. </CFQUERY>
  13.  
  14. <!--- Just in case we have to skip to createinstance3.cfm (this will
  15.     occur if the page that was selected only has one location
  16.     available), since createinstance3.cfm refers to TemplatePath
  17.     and not GetPage.TemplatePath --->
  18. <CFSET TemplatePath = GetPage.TemplatePath>
  19.  
  20. <CFIF GetPage.MaxLocation IS 1>
  21.  
  22.     <CFINCLUDE TEMPLATE="createinstance3.cfm">
  23.  
  24. <CFELSE>
  25.  
  26.     <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
  27.     
  28.     <HTML>
  29.     <HEAD>
  30.         <TITLE>Add Instance</TITLE>
  31.     <STYLE TYPE="text/css">
  32.     <!-- A {text-decoration: none} -->
  33.     </STYLE>
  34.     </HEAD>
  35.  
  36.     <BODY BGCOLOR="#660000" TEXT="#FFFFFF" LINK="#FFFF00" VLINK="#FFFF00">
  37.  
  38.     <TABLE ALIGN="RIGHT" CELLPADDING="0" CELLSPACING="0">
  39.         <TR>
  40.         <TD ALIGN="RIGHT">
  41.         <FONT FACE="MS Sans Serif, Helvetica" SIZE="-2">
  42.             <A HREF="index.cfm">Administrator Home</A><BR>
  43.             <CFOUTPUT><A HREF="properties.cfm?ObjectID=#ObjectID#">Return to Object #ObjectID#</A></CFOUTPUT>
  44.         </FONT>
  45.         </TD>
  46.     </TR>
  47.     </TABLE>
  48.  
  49.     <P><IMG SRC="images/createinstance.gif" WIDTH=131 HEIGHT=20 BORDER=0 ALT="Create Instance"></P>
  50.     
  51.     <P><FONT FACE="MS Sans Serif, Helvetica" SIZE="-1"><CFOUTPUT>Creating an instance for <B>Object #ObjectID#</B> on <B>#GetPage.TemplatePath#</B>...</CFOUTPUT></P>
  52.  
  53.     <BR>
  54.  
  55.     <FORM ACTION="createinstance3.cfm" METHOD="POST">
  56.     
  57.     <CFOUTPUT>
  58.         <INPUT TYPE="HIDDEN" NAME="ObjectID" VALUE="#ObjectID#">
  59.         <INPUT TYPE="HIDDEN" NAME="PageID" VALUE="#PageID#">
  60.         <INPUT TYPE="HIDDEN" NAME="TemplatePath" VALUE="#GetPage.TemplatePath#">
  61.     </CFOUTPUT>
  62.     
  63.     <P><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2"><B>Select a location:</B></FONT></P>
  64.     
  65.     <P><SELECT NAME="Location" SIZE="3">
  66.     <CFLOOP FROM="1" TO="#GetPage.MaxLocation#" INDEX="CurrLocation">
  67.         <OPTION><CFOUTPUT>#CurrLocation#</CFOUTPUT>
  68.     </CFLOOP>
  69.     </SELECT></P>
  70.     
  71.     <P><INPUT TYPE="SUBMIT" VALUE="Continue"></P>
  72.     
  73.     </FORM>
  74.     
  75.     </BODY>
  76.     </HTML>
  77.  
  78. </CFIF>