Solved

VbScript form validation for phone number, outlook email address formats

Posted on 2003-12-01
11
1,090 Views
Last Modified: 2007-12-19
Hello,
I need some help regarding form validation of several items I have on a form.
Here is the pseudocode for the telephone format I want

if trim(request.querystring("tel")) does not fit the pattern (555) 555-5555 then      flag="error"
      response.write("Please enter a valid telephone number")
      response.write("<br>")
end if

Here is the pseudocode for the email format I want
*please note that the email I am checking for I only want to check that the address has a "," somewhere in the middle.

if trim(request.querystring("email")) does not fit the pattern AAA, AAA then      flag="error"
      response.write("Please enter a valid telephone number")
      response.write("<br>")
end if

thanks for all help
0
Comment
Question by:groovymonkey
  • 5
  • 4
  • 2
11 Comments
 
LVL 10

Expert Comment

by:MaxOvrdrv2
Comment Utility
first one ( Phone), here is the code to handle it:

'this section ensures that you have enough characters in the field
if Request.Form("Phone).length != 13 then
   response.write "Please click back and enter a valid phone number: Format (###)###-####"
end if

'this section ensures that you have an opening -(- character and that it's at the beginning
if InStr(Request.Form("Phone"),"(")<>1 then
    response.write "Please click back and enter a valid phone number: Format (###)###-####
end if

'this section ensure that you have a -)- character and that it's at the 4th character
if InStr(Request.Form("Phone"),")")<> 4 then
    response.write "Please click back and enter a valid phone number: Format (###)###-####"
end if

'this section ensures that you have a - character and that it's at the 9th character
if InStr(Request.Form("Phone"), "-")<>9 then
    response.write "Please click back and enter a valid phone number: Format (###)###-####"
end if



second one, that the e-mail contains a ",":

if InStr(Request.Form("email"), ",") <=0 then
     response.write "Please click back and insert the 2nd address!"
end if


hope this helps!

MaxOvrdrv2
0
 
LVL 10

Expert Comment

by:MaxOvrdrv2
Comment Utility
sorry sorry... the first if should be this instead:

if Length(Request.Form("Phone)) <> 13 then
   response.write "Please click back and enter a valid phone number: Format (###)###-####"
end if

MaxOvrdrv2
0
 

Author Comment

by:groovymonkey
Comment Utility
Is there a way to do this using the pattern property in VbScript?
0
 
LVL 10

Expert Comment

by:MaxOvrdrv2
Comment Utility
using the pattern property in VBScript? -- This is an ASP forum, i would help you if i knew what you were talking about...

from that comment, i'm guessing that you are working in a .Net environment?

MaxOvrdrv2
0
 
LVL 1

Accepted Solution

by:
MikeVirtual earned 100 total points
Comment Utility
<%

Dim objRegExp
Set objRegExp = New RegExp
objRegExp.Pattern = "\(\d{3}\)\d{3}\-\d{4}"
If objRegExp.Test(trim(request.querystring("tel"))) = False Then
 Response.Write("Please click back and enter a valid phone number: Format (###)###-####")
 Response.End()
Else

.........

Would suggest that you also use client side validation using javascript and similar regular expression.
Gimme a shout if you need the code.

Hope this helps
MikeVirtual
0
Find Ransomware Secrets With All-Source Analysis

Ransomware has become a major concern for organizations; its prevalence has grown due to past successes achieved by threat actors. While each ransomware variant is different, we’ve seen some common tactics and trends used among the authors of the malware.

 
LVL 1

Expert Comment

by:MikeVirtual
Comment Utility
By using javascript client side validation, you can simply remove any non-numeric characters, check you have 10 digits and, if so, reformat the text field accordingly, otherwise alert the user. This avoids a round trip to the server and the horrible 'back button' messsage.

Ask if you want the code.
MikeVirtual.
0
 

Author Comment

by:groovymonkey
Comment Utility
Mike Virtual,
The vbscript worked great for the phone number...how would I do the same thing to check for an email to make sure that there is a comma somewhere in the middle?
0
 
LVL 1

Assisted Solution

by:MikeVirtual
MikeVirtual earned 100 total points
Comment Utility
objRegExp.Pattern = "\w{3,},\w{3,}"

wil search for 3 or more word characters followed by a comma followed by 3 or more word characters

word characters are a-z, A-Z, 0-9 and _

If these are e-mail addresses, they will contain @ symbols and . character as well as possibly - characters

if so, I think

objRegExp.Pattern = "[\w\-\.]+@[\w\-\.]+\.[a-zA-Z]{2,4}"

should do the trick.

For more help on regular expressions see:

http://www.devguru.com/Technologies/vbscript/quickref/regexp_pattern.html

Hope this helps - if above regular expressiondoesn't do it, post a couple of examples of the strings you want to check
0
 
LVL 10

Expert Comment

by:MaxOvrdrv2
Comment Utility
Mike... don't forget that it's obligatory for his users to put 2 addresses seperated by a comma, and that if there is no comma, an error should come up...

MaxOvrdrv2
0
 
LVL 1

Expert Comment

by:MikeVirtual
Comment Utility
sorry,

objRegExp.Pattern = "[\w\-\.]+@[\w\-\.]+\.[a-zA-Z]{2,4},<?[\w\-\.]+@[\w\-\.]+\.[a-zA-Z]{2,4}>?"

or similar - depends what you are trying to parse

0
 
LVL 1

Expert Comment

by:MikeVirtual
Comment Utility
MaxOvrdrv2 - noticed it soon as I hit send, doh!
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

Suggested Solutions

I recently decide that I needed a way to make my pages scream on the net.   While searching around how I can accomplish this I stumbled across a great article that stated "minimize the server requests." I got to thinking, hey, I use more than one…
Hello, all! I just recently started using Microsoft's IIS 7.5 within Windows 7, as I just downloaded and installed the 90 day trial of Windows 7. (Got to love Microsoft for allowing 90 days) The main reason for downloading and testing Windows 7 is t…
It is a freely distributed piece of software for such tasks as photo retouching, image composition and image authoring. It works on many operating systems, in many languages.
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

744 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!

Get 1:1 Help Now