CAPTCHA redirect setup issue

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!

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