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

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: MOD Implementation
 Gatekeeper Mod error message
 New Topic  Topic Locked
 Printer Friendly
Previous Page
Author Previous Topic Topic Next Topic
Page: of 2

Carefree
Advanced Member

Philippines
4222 Posts

Posted - 25 August 2008 :  08:20:27  Show Profile
That's my macro routine. For that set of lines (90-95 or so), remove all the else's, they should be simple if statements.<
Go to Top of Page

Carefree
Advanced Member

Philippines
4222 Posts

Posted - 25 August 2008 :  08:23:05  Show Profile
quote:
Originally posted by Carefree

That's my macro routine. For that set of lines (90-95 or so), remove all the else's, they should be simple if statements.



I fixed it - just replace it.<
Go to Top of Page

Andy Humm
Average Member

United Kingdom
908 Posts

Posted - 25 August 2008 :  08:51:59  Show Profile
Thank you we are so close, if we have entered a wrong gatekeeper answer the 'Send this Greeting' button is hidden, but if the answer input is blank the button displays.
Is it something to do with the
if (rgm=0 and strError="") then

Edit:
If rgm=0 with no answer button shows
If rgm=0 with wrong answer button hidden

If rgm=1 with no answer button hidden
If rgm=1 with wrong answer button shows

Additionally if we omit the other fields individually the separate error messages do not show associated with the error, all we get is a common statement "If you need to change anything, go back, but please remember to select an image for your greeting card - Back
"
<

Edited by - Andy Humm on 25 August 2008 09:20:10
Go to Top of Page

Carefree
Advanced Member

Philippines
4222 Posts

Posted - 25 August 2008 :  09:54:46  Show Profile
See this line:

				Response.Write	"<font face=""" & strDefaultFontFace & """ color=""#FF0000"" size=""" & strDefaultFontSize & """><b>You have not entered an answer for the Antispam question.</b><br /></font>" & vbNewLine

Just below it, add this: rgm=1

See this line:

	Response.Write	"<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>If you need to change anything, go back,<br> but please remember to select an image for your greeting card <br><a href=""javascript:history.back()"">Back</a></font><br><br>" & vbNewLine

Above it, add this:

	Response.Write	strError

<

Edited by - Carefree on 25 August 2008 09:57:15
Go to Top of Page

Andy Humm
Average Member

United Kingdom
908 Posts

Posted - 25 August 2008 :  13:33:00  Show Profile
Thank you everso much CF, now I have the system working, I can carry out a few, very small cosmetic changes, and were are there! Mucho appreciation andy<
Go to Top of Page

Carefree
Advanced Member

Philippines
4222 Posts

Posted - 25 August 2008 :  14:35:04  Show Profile
You're welcome.<
Go to Top of Page

Andy Humm
Average Member

United Kingdom
908 Posts

Posted - 27 August 2008 :  16:50:15  Show Profile
CF: Re your quote above - "I have not yet tackled the EMail issue"
I have a solution that works:

Running on the same technique as the strError = strError you provided and using the emailfield function (placed in the inc_func_member.asp)kindly provided by ruirib

function EmailField(fTestString) 
	set regEx = New RegExp
	regEx.Global = true
	regEx.IgnoreCase = true
	regEx.Pattern = "^[A-Z0-9._%-]+@(?:[A-Z0-9-]+\.)+[A-Z]{2,4}$"

	retVal = regEx.Test(fTestString)

	set regEx = nothing

	if Not retVal Then
           EmailField = 0
	Else
           EmailField = 1
	end if
end function 
If you add this line with the other error strings, in greeting_cards_preview.asp it seem to serve the purpose:

if EmailField(frommail) = 0 then strError = strError & "Enter an e-mail address in the syntax form username *@domain.co.uk<br>"


regards andy
edit *added to parse email quote<

Edited by - Andy Humm on 27 August 2008 16:56:37
Go to Top of Page
Page: of 2 Previous Topic Topic Next Topic  
Previous Page
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.31 seconds. Powered By: Snitz Forums 2000 Version 3.4.07