| Author |
 Topic  |
|
kolucoms6
Average Member
845 Posts |
 Posted - 15 February 2008 : 08:43:10
|
If we look at the code of Readme.txt and HTML file , in zip file of CAPTCH MOD ,
there are differences in it.
When I used HTML file code it gave me many errors.
When I tried Text file code, somewhat it worked out.
Still, I am getting error :
Microsoft VBScript compilation error '800a03f6'
Expected 'End'
/forum/post.asp, line 1713
|
|
|
Podge
Support Moderator
Ireland
3775 Posts |
|
|
kolucoms6
Average Member
845 Posts |
|
|
Podge
Support Moderator
Ireland
3775 Posts |
Posted - 15 February 2008 : 11:59:32
|
As far as I can tell you accidentally deleted two end if's when you inserted the captcha code.
At line 644 add
end if
end if The whole section should look like this (with the red end if's added)
'CAPTCHA Mod
if strLinkSpamCaptcha = 1 then
captcha = generateCode()
Session("Snitz.captcha") = captcha 'Store the code in a Session Object
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Anti-Spam Code:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ valign=""top""><a href=""#""><acronym title=""Please enter the four letter code in the box below. Click to reload the image.""><img src = ""captcha.asp?c=" & SHA256(captcha) & """ border=""0"" onClick=""window.location.reload()""></acronym></a><br /><input name=""captcha"" maxLength=""25"" size=""25"" type=""text"" value=""""></td>" & vbNewLine & _
" </tr>" & vbNewLine
else
Session("Snitz.captcha") = ""
end if
'Captcha Mod
end if
end if |
Podge.
The Hunger Site - Click to donate free food | My Blog | Snitz 3.4.05 AutoInstall (Beta!)
My Mods: CAPTCHA Mod | GateKeeper Mod
Tutorial: Enable subscriptions on your board
Warning: The post above or below may contain nuts. |
 |
|
|
Podge
Support Moderator
Ireland
3775 Posts |
|
|
kolucoms6
Average Member
845 Posts |
Posted - 18 February 2008 : 15:37:01
|
Worked..
Thna a lot :-) |
|
|
|
kolucoms6
Average Member
845 Posts |
Posted - 18 February 2008 : 15:39:05
|
| Even after Catcha Mod, I am still getting BOT signing up ?? |
|
|
|
Podge
Support Moderator
Ireland
3775 Posts |
|
|
kolucoms6
Average Member
845 Posts |
Posted - 18 February 2008 : 19:17:07
|
Email Validation is ON.
So, many BOTS are still pending ;)
www.ulcindia.com/forum
|
|
|
|
Hermes
Junior Member
Croatia
113 Posts |
|
|
Podge
Support Moderator
Ireland
3775 Posts |
Posted - 19 February 2008 : 09:08:56
|
Have you added this code to register.asp?
##############################
register.asp
##############################
Around line 208 find the following lines
------------------------------
if strAutoLogon <> 1 then
if trim(Request.Form("Name")) = "" then
Err_Msg = Err_Msg & "<li>You must choose a UserName</li>"
end if
if Len(trim(Request.Form("Name"))) < 3 then
Err_Msg = Err_Msg & "<li>Your UserName must be at least <strong>3</strong> characters long</li>"
end if
end if
------------------------------
After them add
------------------------------
'CAPTCHA Mod
if strRegisterCaptcha = 1 then
Dim strUsersInput
strUsersInput= Request.Form("captcha")
If Session("Snitz.captcha") <> "" then
If UCase(strUsersInput) <> UCase(Session("Snitz.captcha")) then
Err_Msg = Err_Msg & "<li>You entered the wrong Anti SPAM confirmation code !</li>"
End if
End IF
End if
Session.Contents.Remove("Snitz.captcha")
'CAPTCHA Mod
------------------------------
If it still doesn't work, post a text version of register.asp |
Podge.
The Hunger Site - Click to donate free food | My Blog | Snitz 3.4.05 AutoInstall (Beta!)
My Mods: CAPTCHA Mod | GateKeeper Mod
Tutorial: Enable subscriptions on your board
Warning: The post above or below may contain nuts. |
|
|
|
kolucoms6
Average Member
845 Posts |
|
|
Podge
Support Moderator
Ireland
3775 Posts |
|
|
kolucoms6
Average Member
845 Posts |
Posted - 19 February 2008 : 18:12:23
|
| I made the changes but it didnt work. |
|
|
|
kolucoms6
Average Member
845 Posts |
Posted - 19 February 2008 : 18:14:57
|
HTML file has :
*************************
quote:
'CAPTCHA Mod
if strRegisterCaptcha = 1 then
Dim strUsersInput
strUsersInput= Request.Form("captcha")
Select Case len(trim(strUsersInput))
case "4"
If Session("Snitz.captcha") <> "" then
If UCase(strUsersInput) <> UCase(Session("Snitz.captcha")) then
Go_Result "You entered the wrong Anti SPAM confirmation code !", 0
End if
End IF
case "0"
Go_Result "You did not enter the Anti SPAM confirmation code !", 0
case else
Go_Result "You entered the wrong amount of characters for the Anti SPAM confirmation code !", 0
End Select
End if
Session.Contents.Remove("Snitz.captcha")
'CAPTCHA Mod
Test file :
***********************
quote:
'CAPTCHA Mod
if strRegisterCaptcha = 1 then
Dim strUsersInput
strUsersInput= Request.Form("captcha")
If Session("Snitz.captcha") <> "" then
If UCase(strUsersInput) <> UCase(Session("Snitz.captcha")) then
Err_Msg = Err_Msg & "<li>You entered the wrong Anti SPAM confirmation code !</li>"
End if
End IF
End if
Session.Contents.Remove("Snitz.captcha")
'CAPTCHA Mod
So, its CONFUSING.
Kindly update the zip file and uplaod a new one.
captcha_-_anti_spam-34-1.zip
|
|
|
|
kolucoms6
Average Member
845 Posts |
Posted - 29 February 2008 : 08:18:24
|
My forum is down and noone can post :-(
Everytime anyone tried to post , Enter Confirmation Code.
Podge, Can you help me ?
I can send you the text version of asp file.
|
|
|
|
Topic |
|
Topic Locked
