Help with Adding Code

I added the lines of code to my form where people enter data.. call it contactus.asp. Image shows up fine. Upon submission I post data to mailform.asp that contains ASP code. I added

I added the lines below to my mailform.asp but I get an error when I submit the contactus.asp form.
<!-- Include file for CAPTCHA form processing -->
<!-- #include file="CAPTCHA/CAPTCHA_process_form.asp" -->

I think if I move the above lines below the <% Option Explicit %> it will work. The next question is how can I stop the entire process if the code is not correct? I don't want the form to be reset and lose the data they have entered. Can I make them stay on the same page? What code do I need to add to do that?

Here is the mailform.asp file
<!-- Include file for CAPTCHA form processing -->
<!-- #include file="CAPTCHA/CAPTCHA_process_form.asp" -->

<% 'If CAPTCHA is entered correctly run the following code If blnCAPTCHAcodeCorrect = True Then        'Place code here that is to run if CAPTCHA is entered correctly        Response.Write("CAPTCHA code is correct") 'If CAPTCHA is NOT entered correctly run the following code ElseIf blnCAPTCHAcodeCorrect = False Then        'Place code here that is to run if CAPTCHA is NOT entered correctly        Response.Write("CAPTCHA code is NOT correct") End If %>

<%@ Language=VBScript %>
<% Option Explicit %>
<%
    Dim strTo
    'The header/footer for the email.
    Const strHeader = "FAM Web Inquiry:"
    Const strFooter = " "

    'Who does this go to?
    'Const strTo = "xx@xxx.net"
     strTo = Request.Form("EmailTo")

   
    'This information is optional
    Dim strFrom, strSubject, strRedirectURL, strFromPath
   
    strFrom = Request.Form("txtEmail")
    if Len(strFrom) = 0 then strFrom = strTo
   
    strSubject = Request.Form("txtEmailSubject")
    if Len(strSubject) = 0 then strSubject = "FAM Website Inquiry"
   
    strRedirectURL = Request.Form("urlSendTo")
    if Len(strRedirectURL) = 0 then strRedirectURL = "/"
   
    strFromPath = Request.Form("urlFromPath")
    if Len(strFromPath) = 0 then strFromPath = "Contact Us"
   
   

    Dim strBody
    strBody = strHeader & ( vbCrLf & vbCrLf )
    strBody = strBody & ( "FORM: " & strFromPath & vbCrLf ) & _
          ( "FORM submitted at " & Now() & vbCrLf & vbCrLf )

    dim ix, formElementName, formElementValue, prefix, fldName
    For ix = 1 to Request.Form.Count
        formElementName = Request.Form.Key(ix)
        formElementValue = Request.Form.Item(ix)

        ' what type of field was that on the form?
        prefix = Left(formElementName,3)
       
        ' and throw away prefix to get actual field name
        fldName = Mid(formElementName,4)
       
        ' but change periods to spaces for readability
        fldName = Replace(fldName, "."," ")

        Select Case prefix
            ' if the prefix indicates this is a form field of interest...
            Case "txt","sel","rad","cbo","lst","chk":
                ' if user didn't answer this question, say so...
                if Len(formElementValue) = 0 then formElementValue = "UNANSWERED"
               
                ' then tack on the name of the field and the answer
                strBody = strBody & (fldName & ": " & formElementValue & vbCrLf)
        End Select
    Next
        
    strBody = strBody & ( vbCrLf & strFooter )

    'Time to send the email
    Dim objCDO
    Set objCDO = Server.CreateObject("CDO.Message")
    objCDO.To = strTo
    objCDO.From = strFrom

    objCDO.Subject = strSubject
    objCDO.TextBody = strBody
   

    objCDO.Send

    Set objCDO = Nothing

    'Send them to the page specified
    Response.Redirect strRedirectURL
%>


Edited by hawkmanva - 30 November 2007 at 2:30am

Thanks. That may be happening now. I keep getting blank emails with the same from and to address. How do I format the code to parse like you are saying? I found this mailForm script at 4Guysfromrolla.com.. so if you recomend a better one, I am all ears. I have limited coding experience so be warned.

Ok makes sense, I see what you are saying.. I'll give this a try.