home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 1999 April / APC443.iso / features / grpware / coldfus / coldfusi.exe / data1.cab / Documentation / snippets / asc.cfm < prev    next >
Encoding:
Text File  |  1998-10-08  |  752 b   |  41 lines
  1. <!--- This code illustrates ASC --->
  2.  
  3. <HTML>
  4.  
  5. <HEAD>
  6. <TITLE>
  7. Asc Example
  8. </TITLE>
  9. </HEAD>
  10.  
  11. <BODY bgcolor=silver>
  12.  
  13. <H3>Asc Example</H3>
  14.  
  15. <!--- if the character string is not empty, then
  16. output its ascii value --->
  17. <CFIF IsDefined("form.charVals")>
  18.  
  19.     <CFIF form.charVals is not "">
  20.         <CFOUTPUT>#Left("#form.charVals#",1)# = #Asc("#form.charVals#")#</CFOUTPUT>
  21.     <CFELSE>
  22. <!--- if it is empty, output an error message --->
  23.         <H4>Please enter a character</H4>
  24.     </CFIF>
  25. </CFIF>
  26.  
  27.  
  28.  
  29. <FORM ACTION="asc.cfm" METHOD="POST">
  30. <P>Type in a character to see its ASCII value
  31. <BR><INPUT TYPE="Text" NAME="CharVals" SIZE="1" MAXLENGTH="1">
  32. <P><INPUT TYPE="Submit" NAME=""> <INPUT TYPE="RESET">
  33.  
  34.  
  35. </FORM>
  36.  
  37.  
  38. </BODY>
  39.  
  40. </HTML>       
  41.