Welcome, Guest ( Customer Panel | Login )




 All Forums
 VPCart Forum
 Suggestions for future release
 Captcha in shopcustregister.asp
 New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

elvis
VP-CART Super User

202 Posts

Posted - March 01 2009 :  05:06:20  Show Profile  Reply with Quote
I am getting bogus registrations.
Please put capcha in the shopcustregister.asp in the future release.

Thanks.

ironhawker
VP-CART Super User

USA
260 Posts

Posted - May 05 2009 :  13:55:29  Show Profile  Visit ironhawker's Homepage  Reply with Quote
[4/2/2009 8:40:00 PM - ironhawker]
Yes to windows server.
I did just find this in shopquestion.asp to go along with the above <!--- include
'VP-ASP 6.50 - add a random string to email form to stop bots spamming it
Sub CreateCAPTCHA
if getconfig("xprotectemailforms") <> "Yes" then exit sub
Response.Write "<div class=""std_table"">"
Response.write "<strong>" & getlang("langcaptchaenter") & "</strong>"
getCAPTCHA
Response.write "</div>"
End Sub


[4/2/2009 8:55:00 PM - support18]
Dear RC,

Please follow the steps below to modify shopmaillist.asp

1) Search the code:

CreateCustRow getlang("LangCustEmail"), "strEmail", strEmail, "Yes"

add in the code below it:

response.write tablecolumnend & tablerowend
'VP-ASP 6.50 - add a random string to email form to stop bots spamming it
if getconfig("xprotectemailforms") = "Yes" then
CreateCAPTCHA
end if

2) add in sub routine at the end just before the "%>"

'VP-ASP 6.50 - add a random string to email form to stop bots spamming it
Sub CreateCAPTCHA
if getconfig("xprotectemailforms") <> "Yes" then exit sub
Response.write tablerow & tablecolumn
Response.write "*" & getlang("langcaptchaenter") & TablecolumnEnd
Response.write tablecolumn
getCAPTCHA
Response.write tablecolumnend & tableRowend
End Sub

3) Search the code within ValidateDate sub routine

ValidatePassword
if getsess("Login")="" then
Validateusername
end if

add in the code below it:

'VP-ASP 6.50 - add a random string to email form to stop bots spamming it
if getconfig("xprotectemailforms") = "Yes" then
%><!-- #include file="captcha/captcha_process_form.asp" --><%
If blnCAPTCHAcodeCorrect Then
'Fine
Else
sError = sError & getlang("langcaptchawrong") & "<br />"
End If
End if

If Serror<>"" then
Serror= getlang("LangCommonRequired") & "<br />" & SError
end if

4) Save and test the file

Thank you.

Regards,
Jackson Teo

--- I had submitted and got this from the helpdesk

~-~-~-~-~-~-~-~-~-~
Randy "RC" Corn
Institute for Higher Learning
[email protected]
http://www.ironhawker.com
425-828-0738
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000
0 Item(s)
$0.00