CAPTCHA redirect setup issue
Printed From: Web Wiz Forums
Category: Web Wiz Web App Support Forums
Forum Name: Web Wiz CAPTCHA
Forum Description: Support forum for the Web Wiz CAPTCHA security image.
URL: https://forums.webwiz.net/forum_posts.asp?TID=24690
Printed Date: 28 March 2026 at 7:15am
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com
Topic: CAPTCHA redirect setup issue
Posted By: Web Tech Services
Subject: CAPTCHA redirect setup issue
Date Posted: 24 October 2007 at 5:52pm
I'm setting up the Captcha Express onto our company's website, and we've gone throught the steps set forth by the directions. Our problem lies in that each time we input the code and click on "SELECT," we get redirected to the confirmation page, whether we have typed in the correct code or not. Any ideas for why this is happening? All input/ideas are appriciated!
|
Replies:
Posted By: WebWiz-Bruce
Date Posted: 24 October 2007 at 6:41pm
One the main reasons why this happens is if people follow the advanced setup and don't put in to stop processing the rest of the code in your file if the CAPTCHA code is entered incorrectly.
-------------
https://www.webwiz.net/web-wiz-forums/forum-hosting.htm" rel="nofollow - Web Wiz Forums Hosting
https://www.webwiz.net/web-hosting/windows-web-hosting.htm" rel="nofollow - ASP.NET Web Hosting
|
Posted By: Web Tech Services
Date Posted: 24 October 2007 at 8:15pm
Thanks for the help, but I still haven't been able to work it out. I'm using a Content Management System (I hope the Captcha can work with it), and trying to put alert boxes to figure out where I'm having problems... can anyone lend me a hand? Many Thanks!
<%
' Form Designer : contactus.asp
%>
<%sPageID = 5%>
<!-- #include file="include/stdio.inc" -->
<!--#include file="include/header.inc" -->
<%
Function MarkAsRequired(sFieldName, bMarkIt)
If bMarkIt Then
MarkAsRequired = "* " & sFieldName
Else
MarkAsRequired = sFieldName
End If
End Function
'**Start Encode**
Const FBT_TEXT = 0
Const FBT_MEMO = 1
Const FBT_MAIL = 2
Const FBT_INT = 3
Const FBT_NUMBER = 4
Const FBT_CBO = 5
Const FBT_RADIOS = 6
Const FBT_CHECKBOXES = 7
Function PadText(sText, iPadTo)
iLen = Len(sText)
If iPadTo - iLen > 0 Then PadText = sText + Space(iPadTo - iLen) Else PadText = sText
End Function
Function ParseText(ByVal sText)
Dim sSQL, rsFields
' Get a list of fields to parse
sSQL = "SELECT FieldName, FieldCodeName FROM fbFormFields WHERE FormName = '" & sFormName & "' AND NOT FieldCodeName IS NULL"
Set rsFields = conDB.Execute(sSQL)
While Not rsFields.EOF
sText = Replace(sText, "$" + rsFields("FieldCodeName").Value, Request(rsFields("FieldCodeName").Value))
rsFields.MoveNext
Wend
rsFields.Close
ParseText = sText
End Function
Sub MailIt(sFrom, sTo, sSubject, sText)
Dim objEmail
On Error Resume Next
Set objEmail = CreateObject("CDO.Message")
objEmail.BodyPart.ContentTransferEncoding = "quoted-printable"
objEmail.From = sFrom
objEmail.To = sTo
objEmail.Subject = sSubject
objEmail.HTMLBody = sText
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = gsSMTPServer
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
If gsCDoAuthenticate = 1 Then
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = gsContactUsEMail
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = gsCDOPassword
End If
objEmail.Configuration.Fields.Update
objEmail.Send
If Not err.number=0 Then
Response.write "ERROR: " & err.Description
err.Clear
end if
Set objEmail = Nothing
If False Then
%>
<pre>
<b>From: </b> <%=sFrom%>
<b>To: </b> <%=sTo%>
<b>Subject:</b> <%=sSubject%>
<%=sText%>
</pre>
<hr>
<%
End If
End Sub
' Proccess this form as requested
Select Case Request("cmd")
Case "proccess"
' Cache form name and mailto properties
sFormName = Request("form")
If Len(sFormName) = 0 Then
sFormName = 2
End If
'Die Len(sFormName) = 0, "No form name was supplied."
' Get mail header and footer
sSQL = "SELECT MailSubject, MailHeader, MailFooter, MailTo, ARMailSubject, ARMailHeader, ARMailFooter, ARMailTo, ARText FROM fbForms WHERE FormName = '" & sFormName & "'"
rsData.Open sSQL
Die IsRSEmpty(rsData), "Form not found when proccessing it."
' Get field names for this form
sSQL = "SELECT FieldName, FieldCodeName, FieldType FROM fbFormFields WHERE FormName = '" & sFormName & "' ORDER BY OrderShown, FieldName"
Set rsFields = conDB.Execute(sSQL)
Die IsRSEmpty(rsFields), "It seems like the fields for this form that is being proccessing were deleted."
' Create a dictionary to store mail content for fields. I used this array to calculate the longest names
|
|