[RESOLVED] Form mail + Recaptcha script

[towreg]

I am using a ASP script to parse an HTML contact-us page and send an email. I also implemented recaptcha into the ASP script and it's working, but I run into an issue when I attempt to response.Redirect the user to the "contact_success.html" page.

If I comment out the response.redirect line and use response.write it writes a blank message "thanks for your comment" fine, but I really want the regular look of my website experienced by going to "contact_success.html"

So my issue is I can't redirect to a confirmation page.


Below is the error I receive after successfully answering recaptcha and failing to redirect:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/contact_us/contact_us.asp, line 125


Below is my code (the error is pointing to the line "response.redirect(contact_suc...)":

<%@ Language="VBScript" %>
<%
Option Explicit

'------defining script vars-----------------------------------------------
  Dim myBody, subject, mail_to, mail_from, pubkey, privkey, challenge, response, server_response 
  Dim test_captcha, smtpserver, message, show_form, form_feedback, newCaptcha


'-------Settings----------------------------------------------------------
  smtpserver = SERVER
  subject = SUBJECT
  mail_from = FROM_EMAIL
  mail_to = TO_EMAIL
  pubkey = PUBLIC_KEY
  privkey = PRIVATE_KEY
  
  'challenge = Request.Form("recaptcha_challenge_field")
  'response = Request.Form("recaptcha_response_field")

'------------------Function to Test Captcha Field-------------------------

' returns "" if correct, otherwise it returns the error response
  function recaptcha_confirm(rechallenge,reresponse)

  Dim VarString
  VarString = _
          "privatekey=" & privkey & _
          "&remoteip=" & Request.ServerVariables("REMOTE_ADDR") & _
          "&challenge=" & rechallenge & _
          "&response=" & reresponse

  Dim objXmlHttp
  Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
  objXmlHttp.open "POST", "http://www.google.com/recaptcha/api/verify", False
  objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  objXmlHttp.send VarString

  Dim ResponseString
  ResponseString = split(objXmlHttp.responseText, vblf)
  Set objXmlHttp = Nothing

  if ResponseString(0) = "true" then
    'They answered correctly
     recaptcha_confirm = ""
  else
    'They answered incorrectly
     recaptcha_confirm = ResponseString(1)
  end if

  end function

  server_response = ""
  newCaptcha = True
  if (Request.Form("recaptcha_challenge_field") <> "" or Request.Form("recaptcha_response_field") <> "") then
    server_response = recaptcha_confirm(Request.Form("recaptcha_challenge_field"), Request.Form("recaptcha_response_field"))
    newCaptcha = False
  end if


'---------------Example Function to Send Email Using CDOSYS
  function sendMail(mail_to, subject, myBody, mail_from)
  'send email

  
   'Assemble message           
  myBody = myBody & vbCRLF & "Title: " &  Trim(Request.Form("Title"))
  myBody = myBody & vbCRLF & "First Name: " &  Trim(Request.Form("FirstName")) 
  myBody = myBody & vbCRLF & "Last Name: " & Trim(Request.Form("LastName")) 
  myBody = myBody & vbCRLF & "Address1: " & Trim(Request.Form("Address1")) 
  myBody = myBody & vbCRLF & "Address2: " &  Trim(Request.Form("Address2")) 
  myBody = myBody & vbCRLF & "City: " &  Trim(Request.Form("City"))
  myBody = myBody & vbCRLF & "State: " &  Trim(Request.Form("State")) 
  myBody = myBody & vbCRLF & "Zip: " &  Trim(Request.Form("ZIP_code")) 
  myBody = myBody & vbCRLF & "Day Phone: " &  Trim(Request.Form("Daytime_phone"))
  myBody = myBody & vbCRLF & "Email: " &  Trim(Request.Form("Email")) 
  myBody = myBody & vbCRLF & "Topic: " &  Trim(Request.Form("Topic")) 
  myBody = myBody & vbCRLF & "Question/Comment: " &  Trim(Request.Form("Question/Comment")) 
  
  
  
  
  Dim cdoConfig, cdoMessage
  Set cdoConfig = CreateObject("CDO.Configuration")

  With cdoConfig.Fields
  .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network)
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  .Update
  End With

  Set cdoMessage = CreateObject("CDO.Message")
  
  With cdoMessage
  Set .Configuration = cdoConfig
  .Subject = subject
  .From = mail_from
  .To = mail_to
  .TextBody = myBody
  .Send
  End With
    
  Set cdoMessage = Nothing
  Set cdoConfig = Nothing

  end function

 '''''''''' FORM REQUEST, PROCESSED ON POSTBACK '''''''''''''' 

  'Required - Correct Captcha Value                 
  'test_captcha = recaptcha_confirm(challenge, response)                 
  'response.write(test_captcha)
  
    if server_response <> "" or newCaptcha then   
        if newCaptcha = False then
            Response.Write("go back and try again")     
                end if       
    else
        call sendMail(mail_to, subject, myBody, mail_from)
        'Response.Write("thanks for your comment")
        Response.Redirect("contact_success.html")      
    end if
     


%>

The script has no problems with Response.Write but I run into issues redirecting. Some variable needs to probably be set to NOTHING.

I'm not sure which variable is not resetting to nothing, but the script used to write my recaptcha response (whatever the user typed into the recaptcha field) to the page.

I fixed that issue somehow.