VP-ASP :: Shopping Cart Software

Shopping Cart Software Solutions for anywhere in the World

US/Canada(Toll Free): +1 888 587 2278
Europe/UK: +44 (020) 7193 9408
Australia/New Zealand: +61 3 9016 4497

VP-ASP Shopping Cart Customer Forum

Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 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-ASP 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-ASP 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