|
Hey all, I'm new to the forum and must say this CAPTCHA is great when it works! I have 3 other sites that are all using the CAPTCHA successfully, so I know on my 4th site it should work as well, but when I correctly enter the CAPTCHA code it always takes me to my "error" redirect site.
Both my contact and "call" page are both asp extensions and i've followed the instructions on the documentation page on this site. I've even compared the code to the other sites i've created and can't find anything that would throw this off?
Any help would be appreciated!
Here is the code from the call page: (I've changed the email/SMTP items..)
<!-- Include file for CAPTCHA configuration -->
<!-- #include file="CAPTCHA/CAPTCHA_configuration.asp" -->
<!-- Include file for CAPTCHA form processing -->
<!-- #include file="CAPTCHA/CAPTCHA_process_form.asp" -->
<%
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
Dim Name
Dim Email_Address
Dim Company_Practice
Name = Trim(Request.Form("Name"))
Email_Address = Trim(Request.Form("Email_Address"))
Company_Practice = Trim(Request.Form("Company_Practice"))
'validation
Dim validationOK
validationOK=true
IF (Trim(Name)="") Then validationOK=false
If (Trim(Phone)="") Then validationOK=false
If (validationOK=false) Then Response.Redirect ("error.htm" & EmailFrom)
ObjSendMail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/sendusing" rel="nofollow - http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2 'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/smtpserver" rel="nofollow - http://schemas.microsoft.com/cdo/configuration/smtpserver ") ="mail.mydomain.com"
ObjSendMail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/smtpserverport" rel="nofollow - http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25
ObjSendMail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/smtpusessl" rel="nofollow - http://schemas.microsoft.com/cdo/configuration/smtpusessl ") = False 'Use SSL for the connection (True or False)
ObjSendMail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" rel="nofollow - http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout ") = 60
ObjSendMail.Configuration.Fields.Update
'End remote SMTP server configuration section==
ObjSendMail.To = " mailto:myemail@a" rel="nofollow - myemail@ yahoo.com"
ObjSendMail.Subject = "Form Submission"
ObjSendMail.From = " mailto:form@mysite.com" rel="nofollow - form@mysite.com "
ObjSendMail.TextBody = ObjSendMail.TextBody & "Name: " & Name & VbCrLf
ObjSendMail.TextBody = ObjSendMail.TextBody & "Email_Address: " & Email_Address & VbCrLf
ObjSendMail.TextBody = ObjSendMail.TextBody & "Company_Practice: " & Company_Practice & VbCrLf
ObjSendMail.Send
'redirect to success page
Response.Redirect("ok.htm?" & EmailFrom)
Set ObjSendMail = Nothing
%>
|