<% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz CAPTCHA(TM) '** http://www.webwizCAPTCHA.com '** '** Copyright (C)2005-2009 Web Wiz(TM). All rights reserved. '** '** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM 'WEB WIZ'. '** '** IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN 'WEB WIZ' IS UNWILLING TO LICENSE '** THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE '** AND DERIVATIVE WORKS IMMEDIATELY. '** '** If you have not received a copy of the license with this work then a copy of the latest '** license contract can be found at:- '** '** http://www.webwiz.co.uk/license '** '** For more information about this software and for licensing information please contact '** 'Web Wiz' at the address and website below:- '** '** Web Wiz, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, BH15 4JD, England '** http://www.webwiz.co.uk '** '** Removal or modification of this copyright notice will violate the license contract. '** '**************************************************************************************** '*************************** SOFTWARE AND CODE MODIFICATIONS **************************** '** '** MODIFICATION OF THE FREE EDITIONS OF THIS SOFTWARE IS A VIOLATION OF THE LICENSE '** AGREEMENT AND IS STRICTLY PROHIBITED '** '** If you wish to modify any part of this software a license must be purchased '** '**************************************************************************************** 'Enter your Web Wiz CAPTCHA Premium License Key between the two quote marks below strLicense = "" %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz CAPTCHA(TM) '** http://www.webwizCAPTCHA.com '** '** Copyright (C)2005-2009 Web Wiz(TM). All rights reserved. '** '** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM 'WEB WIZ'. '** '** IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN 'WEB WIZ' IS UNWILLING TO LICENSE '** THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE '** AND DERIVATIVE WORKS IMMEDIATELY. '** '** If you have not received a copy of the license with this work then a copy of the latest '** license contract can be found at:- '** '** http://www.webwiz.co.uk/license '** '** For more information about this software and for licensing information please contact '** 'Web Wiz' at the address and website below:- '** '** Web Wiz, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, BH15 4JD, England '** http://www.webwiz.co.uk '** '** Removal or modification of this copyright notice will violate the license contract. '** '**************************************************************************************** '*************************** SOFTWARE AND CODE MODIFICATIONS **************************** '** '** MODIFICATION OF THE FREE EDITIONS OF THIS SOFTWARE IS A VIOLATION OF THE LICENSE '** AGREEMENT AND IS STRICTLY PROHIBITED '** '** If you wish to modify any part of this software a license must be purchased '** '**************************************************************************************** 'Get about status Private Function about() about = 1 'Calulate the lentgh If LEN(strLicense) > 47 Then Dim intAbout intAbout = 1 'Read in the data If isNumeric(Mid(strLicense, len(strLicense)-3, 4)) Then intAbout = CInt(Mid(strLicense, len(strLicense)-3, 4)) strDisplayLicense = Mid(strLicense, 4, 40) about = CBool(intAbout MOD 18) End If End Function 'Get CAPTCHA info Private Sub captchaInfo() Response.Write("" & _ vbCrLf & "
" & _
	vbCrLf & "*********************************************************" & _
	vbCrLf & "Software: Web Wiz CAPTCHA(TM)" & _
	vbCrLf & "Version: " & strCAPTCHAversion & _
	vbCrLf & "License: " & strDisplayLicense & _
	vbCrLf & "Author: Web Wiz." & _
	vbCrLf & "Address: Unit 10E, Dawkins Raod Ind Est, Poole, Dorset, UK" & _
	vbCrLf & "Info: http://www.webwizCAPTCHA.com" & _
	vbCrLf & "Copyright: (C)2001-2009 Web Wiz. All rights reserved" & _
	vbCrLf & "*********************************************************" & _
	vbCrLf & "
<%
'****************************************************************************************
'**  Copyright Notice    
'**
'**  Web Wiz CAPTCHA(TM)
'**  http://www.webwizCAPTCHA.com
'**                                                              
'**  Copyright (C)2005-2009 Web Wiz(TM). All rights reserved.  
'**  
'**  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM 'WEB WIZ'.
'**  
'**  IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN 'WEB WIZ' IS UNWILLING TO LICENSE 
'**  THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE
'**  AND DERIVATIVE WORKS IMMEDIATELY.
'**  
'**  If you have not received a copy of the license with this work then a copy of the latest
'**  license contract can be found at:-
'**
'**  http://www.webwiz.co.uk/license
'**
'**  For more information about this software and for licensing information please contact
'**  'Web Wiz' at the address and website below:-
'**
'**  Web Wiz, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, BH15 4JD, England
'**  http://www.webwiz.co.uk
'**
'**  Removal or modification of this copyright notice will violate the license contract.
'**
'****************************************************************************************          



'*************************** SOFTWARE AND CODE MODIFICATIONS **************************** 
'**
'** MODIFICATION OF THE FREE EDITIONS OF THIS SOFTWARE IS A VIOLATION OF THE LICENSE  
'** AGREEMENT AND IS STRICTLY PROHIBITED
'**
'** If you wish to modify any part of this software a license must be purchased
'**
'****************************************************************************************




'Initialise variables
Dim blnCAPTCHAabout
Dim strDisplayLicense
Dim strLicense
Dim strCanvasColour, strBorderColour, strCharacterColour
Dim blnRandomLinePlacement, blnSkewing
Dim intNoiseLevel1, strNoiseColour1, intNoiseLevel2, strNoiseColour2
Dim intNoiseLines1, strNoiseLinesColour1, intNoiseLines2, strNoiseLinesColour2



'*****  Change this if to False if you do NOT want the CAPTCHA code to be case sensitive *****
Const blnCAPTCHAcaseSensitive = False



'***** This is the name of the page you want users redirected to if CAPTCHA is entered incorrectly *****
'Place the page to be redirected to between the quote marks below
Const strIncorrectCAPTCHApage = "http://www.soundprodjs.com/incorrect_CAPTCHA_code.html" 



'*****  Change this if you wish to change the displayed text text *****
Const strTxtLoadNewCode = "Load New Code"
Const strTxtCodeEnteredIncorrectly = "The security code entered was incorrect.
Please go back and resubmit the form" '************************************************ '**** CAPTCHA Image Settings **** '************************************************ 'The settings below allow you to configure the colours, noise level, distortion type, etc. of the CAPTCHA image 'Background Colour strCanvasColour = "FFFFFF" 'Border Colour strBorderColour = "999999" 'Character Colour strCharacterColour = "006600" 'Random Character Line Placement 'This places the characters at different line levels on the canvas, this is good at preventing OCR software reading the image but still allows the image to be readable for humans blnRandomLinePlacement = True 'Random Character Skewing 'Random Skewing is good at preventing OCR software recognising characters blnSkewing = True 'Making one of the noise levels and line noise the same as the background colour and the other the same as the character colour 'is good at preventing OCR software recognised characters by using colour filters to remove noise 'Pixelation Noise #1 'This is the pixelation noise level, random pixels which prevent OCR software recognising characters intNoiseLevel1 = 8 strNoiseColour1 = "FFFFFF" 'Pixelation Noise #2 intNoiseLevel2 = 3 strNoiseColour2 = "006600" 'Noise Lines #1 'Random lines overlaying image, prevents OCR software recognising characters, but can quickly make the image difficult for a human to read intNoiseLines1 = 5 strNoiseLinesColour1 = "006600" 'Noise Lines #2 intNoiseLines2 = 3 strNoiseLinesColour2 = "FFFFFF" '********************************************************************* '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** Const strCAPTCHAversion = "4.01" blnCAPTCHAabout = about() If Request.QueryString("about") Then Call captchaInfo() '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz CAPTCHA(TM) '** http://www.webwizCAPTCHA.com '** '** Copyright (C)2005-2009 Web Wiz(TM). All rights reserved. '** '** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM 'WEB WIZ'. '** '** IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN 'WEB WIZ' IS UNWILLING TO LICENSE '** THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE '** AND DERIVATIVE WORKS IMMEDIATELY. '** '** If you have not received a copy of the license with this work then a copy of the latest '** license contract can be found at:- '** '** http://www.webwiz.co.uk/license '** '** For more information about this software and for licensing information please contact '** 'Web Wiz' at the address and website below:- '** '** Web Wiz, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, BH15 4JD, England '** http://www.webwiz.co.uk '** '** Removal or modification of this copyright notice will violate the license contract. '** '**************************************************************************************** '*************************** SOFTWARE AND CODE MODIFICATIONS **************************** '** '** MODIFICATION OF THE FREE EDITIONS OF THIS SOFTWARE IS A VIOLATION OF THE LICENSE '** AGREEMENT AND IS STRICTLY PROHIBITED '** '** If you wish to modify any part of this software a license must be purchased '** '**************************************************************************************** '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** Response.Write(vbCrLf & vbCrLf & "") '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %> <%if false then%>
<% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** If blnCAPTCHAabout Then Response.Write("") End If '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** end if '[oDesk:jcordoba 5/31/2011] if true then %> <% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** If blnCAPTCHAabout Then Response.Write("") End If '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** end if%>
Company/Organization
First Name
Last Name
Fiancé's First Name
Fiancé's Last Name
E-mail
Re-type E-mail
Address
City
State
Zip Code
Referral Source Other
Contact's Title Other
At least one phone number must be provided in order to receive a quote!
Work   Ext.
Home
Cell
Fax
Event Date
Event Type
Number of Guests Expected
Location
Start Time
End Time
Additional Notes
Verification Code
Code Image - Please contact webmaster if you have problems seeing this image code <% = strTxtLoadNewCode %>
Powered by Web Wiz CAPTCHA version " & strCAPTCHAversion & "
Copyright ©2005-2009 Web Wiz
Verification Code
Code Image - Please contact webmaster if you have problems seeing this image code <% = strTxtLoadNewCode %>
Powered by Web Wiz CAPTCHA version " & strCAPTCHAversion & "
Copyright ©2005-2009 Web Wiz