home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 1999 April / APC443.iso / features / grpware / coldfus / coldfusi.exe / data1.cab / Examples / publish / admin / addcontent2.req.cfm < prev    next >
Encoding:
Text File  |  1998-10-08  |  1.3 KB  |  46 lines
  1. <CFIF evaluate("Type" & CurrItem) IS "|0">
  2.  
  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/addcontent.gif" WIDTH=109 HEIGHT=20 BORDER=0 ALT="Add Content"></P>
  13.     
  14.     <FORM ACTION="addcontent2a.req.cfm" METHOD="POST" ENCTYPE="multipart/form-data">
  15.     
  16.         <CFOUTPUT>
  17.             <INPUT TYPE="HIDDEN" NAME="CurrItem" VALUE="#CurrItem#">
  18.             <INPUT TYPE="HIDDEN" NAME="CurrPos" VALUE="#CurrPos#">
  19.         </CFOUTPUT>
  20.     
  21.         <P><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2"><B>Select a file...</B></FONT><BR>
  22.         <INPUT TYPE="FILE" NAME="UploadedFile"></P>
  23.     
  24.         <P><INPUT TYPE="SUBMIT" VALUE="Continue"></P>
  25.     
  26.     </FORM>
  27.     
  28.     </BODY>
  29.     </HTML>
  30.  
  31. <CFELSE>
  32.  
  33.     <CFSET "Session.AddContent.Content.Type#CurrItem#" = #evaluate("Type" & CurrItem)#>
  34.  
  35.     <CFIF CurrPos IS ListLen(Session.AddContent.ReqContentTypes)>
  36.         <CFIF Session.AddContent.OptContentTypes IS "">
  37.             <CFLOCATION URL="addcontent3.cfm" ADDTOKEN="NO">
  38.         <CFELSE>
  39.             <CFLOCATION URL="addcontent.opt.cfm?CurrPos=1" ADDTOKEN="NO">
  40.         </CFIF>
  41.     <CFELSE>
  42.         <CFSET NextPos = CurrPos + 1>
  43.         <CFLOCATION URL="addcontent.req.cfm?CurrPos=#NextPos#" ADDTOKEN="NO">
  44.     </CFIF>
  45.  
  46. </CFIF>