home *** CD-ROM | disk | FTP | other *** search
/ Cool Page Magazine 16 / CoolPage_16.iso / dynadb / codes / moditpe3.cfm < prev    next >
Text File  |  1997-12-08  |  1KB  |  45 lines

  1. <!-----------------------------└╔ªWíGModitpe3.cfm---------------------------------->
  2. <!--- ªb┤·╕╒¡n¡╫º∩¬║╕Ω«╞ª│¿Sª│┐∙╗~¬║«╔¡╘íA⌐╥Ñ╬¬║╡{ªí╜X⌐Míu╖s╝Wív¬║│íñ└½▄├■ªⁿíC    --->
  3. <!--- ñú╣Lªb┤·╕╒╜s╕╣¼Oº_¡½┬╨«╔íA┤Nª│┬Iñúñ@╝╦íC                    --->
  4. <!--- ½e│íñ└¼░┤·╕╒⌐╥┐ΘñJ¬║╕Ω«╞¼Oº_Ñ┐╜TíAªb│╠½ßñ~«e│\╕Ω«╞º≤╖s            --->
  5. <!--------------------------------------------------------------------------------->
  6.  
  7.     <!--- ▒N┼▄╝╞▒╥⌐lñ╞  --->
  8.  
  9.     <cfset iserror=false>        <!--- ¿M⌐wª│¿Sª│┐∙╗~╡oÑ═¬║┼▄╝╞        --->
  10.     <cfset dupidx=false>        <!--- ¿M⌐w│f¬½╜s╕╣ª│¿Sª│¡½┬╨¬║┼▄╝╞    --->
  11.     <cfset id_long=false>        <!--- ¿M⌐w│f¬½╜s╕╣ª│¿Sª│╣L¬°¬║┼▄╝╞    --->
  12.     <cfset name_long=false>        <!--- ¿M⌐w│f¬½ªW║┘ª│¿Sª│╣L¬°¬║┼▄╝╞    --->
  13.  
  14.  
  15.     <cfif len(#type_name#) greater than 25>
  16.         <cfset iserror=true>
  17.         <cfset name_long=true>
  18.     <cfelse>
  19.         <cfset name_long=false>
  20.     </cfif>
  21.  
  22.     <cfif iserror>
  23.         ┐ΘñJñúÑ┐╜TíCºAÑ╟ñFÑHñU┐∙╗~íG<br>
  24.         <cfif id_long>
  25.             │f¬½╜s╕╣ñ╙¬°íC<br>
  26.         </cfif>
  27.  
  28.         <cfif name_long>
  29.             │f¬½ªW║┘ñ╙¬°<br>
  30.         </cfif>                    
  31.  
  32.     <cfelse>
  33.  
  34.         <!---    ªp¬G│q╣LñF⌐╥ª│¬║┤·╕╒íA┤N╖|¿╙¿∞│oñ@│íñ└    --->
  35.         <CFUPDATE DATASOURCE="Dynamic Database" TABLENAME="prodtype">
  36.  
  37.         <HTML>
  38.         <HEAD><TITLE>╕Ω«╞ñw╕gº≤╖s</TITLE></HEAD>
  39.         <BODY background="paper12l.jpg">
  40.         <CENTER><H2>ºA¡Φñ~⌐╥┐ΘñJ¬║╕Ω«╞ñwº≤╖sª▄╝╞╛┌«wññ</H2></CENTER>
  41.         <HR>
  42.         <P ALIGN="center"><A HREF="/dynadb/index.htm">ª^¿∞ÑD¡╢</A></P>
  43.         </BODY>
  44.         </HTML>    
  45.     </cfif>