The Code-Bin
Links
Home
Add your code!
All Listings
About
Latest Entry
Featured Scripts
Author's Website
Latest Entries
FFMPEG Thumbnail Scr...
PHP, 0.8KB
Jul. 29, 10:24pm
John
Z80 Assembler, 190 bytes
Feb. 17, 3:36am
John
Z80 Assembler, 176 bytes
Sep. 13, 2:19am
John
Z80 Assembler, 77 bytes
Sep. 13, 2:18am
John
Z80 Assembler, 209 bytes
Sep. 13, 2:17am
For Barry
Posted by: Dave Phillips | July 15, 2009 @ 12:08pm
ColdFusion Code
[
Download
]
<!---Added to prevent an error if check box is empty---> <cfparam name="FORM.allst" default=""> <cfparam name="FORM.all" default="no"> <cfparam name="FORM.toAddress" default=""> <cfparam name="FORM.subject" default="Request A Quote For Mailing List"> <cfparam name="FORM.messageBody" default=""> <!---Get all US states that are active---> <cfquery name="allStates" datasource="#request.dsn#" username="#request.un#" password="#request.pw#"> SELECT statename FROM states WHERE IsActive = 1 AND CountryID = 1 </cfquery> <div class='featurebox_left'> <!---Added captcha test here---> <cffunction name="makeRandomString" returnType="string" output="false"> <cfset var chars = "23456789ABCDEFHJKMNPRS"> <cfset var length = randRange(2,4)> <cfset var result = ""> <cfset var i = ""> <cfset var char = ""> <cfscript> for(i=1; i <= length; i++) { char = mid(chars, randRange(1, len(chars)),1); result&=char; } </cfscript> <cfreturn result> </cffunction> <cfset showForm = true> <cfparam name="form.captcha" default=""> <cfparam name="form.captchaHash" default=""> <cfif isDefined("form.send")> <cfset errors = ""> <cfif hash(ucase(form.captcha)) neq form.captchaHash> <cfset errors = errors & "You Did Not Enter The Right Text Below."> </cfif> <cfif errors is ""> <!--- do something here ---> <cfset showForm = false> </cfif> </cfif> <cfif showForm> <cfset captcha = makeRandomString()> <cfset captchaHash = hash(captcha)> <cfoutput> <!---End captcha test---> <!--- Provide simple form for recipient and message ---> <cfform action="#cgi.script_name#" method="post"> <table width="100%" border="0" align="center" cellpadding="2"cellspacing="2"> <!--- Table row: Input for Email Address ---> <tr> <td> </td> <td> <!--- Display Error Message---> <cfif isDefined("errors")> <img src="graphics/warning.png" hspace="5" vspace="5" align="absmiddle" /><strong>#errors#</strong> </cfif></td> </tr> <tr> <th valign="top">Email:</th> <td> <cfinput type="text" name="toAddress" value="#FORM.toAddress#" message="You must provide an email address (example@gmail.com)" validateat="onSubmit,onServer" validate="email" required="yes" size="50"> </td> </tr> <!--- Table row: Input for E-mail Subject ---> <tr> <th valign="top">Subject:</th> <td> <cfinput type="text" name="subject" value="#FORM.subject#" required="yes" size="50" maxlength="100" message="You must provide a subject for the email. (Maximum 100 characters)"> </td> </tr> <!--- Table row: Input for actual Message Text ---> <tr> <th valign="top">Your Message:</th> <td> <cftextarea name="messageBody" cols="50" rows="5" wrap="hard" required="yes" value="#form.messageBody#" maxlength="1000" message="You must provide a message body. (Maximum 1000 characters)" /> </td> </tr> <!---Table row: check box for all states ---> <tr> <td><!---Howdy #session.name#---></td> <td valign="top"> <!---<cfinput type="checkbox" name="all" checked="no"> All 50 States---> <cfinput type="checkbox" name="all" checked="#form.all#"> All 50 States </td> </tr> <tr> <td> </td> <td> <cfloop query="allstates"> <input type="checkbox" name="allst" value="#statename#"> #statename#<br /> </cfloop> </td> </tr> <!--- Table row: Input for captcha text ---> <tr> <td valign="top"> </td> <td>Enter Text Below: <cfinput type="text" name="captcha" required="yes" size="10" message="Please type the letters and numbers below."> </td> </tr> <!--- Table row: Display Captcha Image ---> <tr> <td> </td> <td> <cfimage action="captcha" width="300" height="75" text="#captcha#"> <cfinput type="hidden" name="captchaHash" value="#captchaHash#"> </td> </tr> <!--- Table row: Submit button to send message ---> <tr> <td valign="top"> </td> <td> <cfinput type="submit" name="send" validate="submitonce" value="Send Message Now"> </td> </tr> <tr> <td colspan="2" valign="top"> </td> </tr> </table> </cfform> </cfoutput> <cfelse> <!---Go to here if captcha is correct---> <!--- We do not want ColdFusion to suppress whitespace here ---> <cfprocessingdirective suppressWhitespace="No"> <!--- Send the mail message, based on form input ---> <cfmail subject="#FORM.subject#" type="html" from='#FORM.toAddress#' to="webmaster@firefightingnews.com" bcc="mcconaghey@vzw.blackberry.net" replyto="#FORM.toAddress#" > <b>This is a message from request a quote from our fire department mailing list page on FireFightingNews.com:</b> <p></p> #FORM.messageBody# <p></p> #FORM.all# <p></p> #FORM.allst# <br /> </cfmail> </cfprocessingdirective> <!--- Display "success" message to user ---> <cfinclude template="email_ok.cfm"> </cfif> </div>
Syntax Highlighting
[
Open in new window
]
Author Comments
none
Rating
4.43 / 8
104 Votes
http://codebin.yi.org/330
page generated in 0.01 seconds