WEST LANCS K9 CENTRE - DOG TRAINING, OBEDIENCE,RESIDENTIAL, DISPLAY TEAM '************************************** ' for :Email Domain Validation '************************************** The code that does the nslookup is based on a simple script that did some of the same functionality (although not to the same extent) I found on the web. I would like to give recognition to that person, but do not rember where I found It. '************************************** ' Name: Email Domain Validation ' Description:This code can serve to pur ' poses. To preform reverse DNS Lookup/Val ' idate a domain exists and Validate email ' address structure and that the domain th ' at is provided in the email address is v ' alid. ' By: John Tolar ' ' ' Inputs:'Function :ValidateEmailAddress ' (sEmailAddr) 'sEmailAddr is the email address to vali ' date. ' 'Function : 'DomainLookup(sDomain) 'sDomain is the domain to validate or lo ' ok up ' ' Returns:'Function :ValidateEmailAddres ' s(sEmailAddr) 'Returns Boolean value indicating validi ' ty of email address. ' 'Function : DomainLookup(sDomain) 'Returns Boolean indicating if the domai ' n is a valid domain. This can be modifie ' d to return the IP address. but since It ' is not relevant to the Script, I did not ' include it. ' 'Assumes:This code may not work on Windo ' ws 95/98 or IIS 3 or below. That is due ' to the fact that it requires Windows Scr ' ipting Host (WSH) and the lack of the NS ' Lookup function on non WINNT based machi ' nes. ' 'Side Effects:None 'This code is copyrighted and has limite ' d warranties. 'Please see http://www.Planet-Source-Cod ' e.com/xq/ASP/txtCodeId.6980/lngWId.4/qx/ ' vb/scripts/ShowCode.htm 'for details. '************************************** Function ValidateEmailAddress(sEmailAddr) Dim sDomain 'as String 'Get domain portion of email address. sDomain = Mid(sEmailAddr, Instr(1, sEmailAddr, "@") + 1) 'Create Object for Reg. Expressions matching to validate address. 'This script will first validate that the email address is of valid format 'It then validates the domain portion by doing a nslookup. Set oRegExp = new RegExp oRegExp.Pattern = "^\w+(\.\w+)*@\w+\.\w+(\.\w+)*$" oRegExp.IgnoreCase = true 'Excute the pattern matching to return a collection. Set colMatches = oRegExp.Execute(sEmailaddr) 'If colMatches = 1 then the email address is of valid format. Response.write "colMatch = " & colMatches.count & "<BR>" 'Response.write "colMatch = " & colMatches(0). & "<BR>" If colMatches.Count = 1 then 'If the email address is valid format then we don't 'want to run this and create any more delay or cpu cycles 'than are needed. If DomainLookup(sDomain) then ValidateEmailAddress = true Else 'It wasn't Valid ValidateEmailAddress = false End If Set colMatches = Nothing Set objRegExpr = Nothing End Function Function DomainLookup(sDomain) Dim sReadData 'As String Dim fIpIsNextLine 'Ad boolean 'Create Shell Object set oShell = Server.CreateObject("Wscript.Shell") 'Run NSLookup via Command Prompt 'Dump Results into a temp text file 'The text file is unique and stored in t ' he directory specified 'using the %Tmp% environment variable. T ' his file will be deleted 'after validation. 'If you can not validate against the loc ' al name server for some reason you can s ' pecify a 'Name server by uncommenting this line a ' nd replacing the name of the server. 'oShell.Run "%ComSpec% /c nslookup " & s ' Domain & " WEBTERMINATOR1.Crystaltech.co ' m > %Tmp%" & _ ' Session.SessionID & sDomain & ".txt", ' 0, True oShell.Run "%ComSpec% /c nslookup " & sDomain & " > %Tmp%" & _ Session.SessionID & sDomain & ".txt", 0, True 'Open the temp Text File and Read out th ' e Data Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set oText = Fso.OpenTextFile("%Tmp%" & Session.SessionID & sDomain & ".txt") Do While Not oText.AtEndOfStream 'Read In the Text Dump sReadData = Trim(oText.Readline) 'If the domain name was found in the pre ' vious line read then this should be the ' IP. If fIpIsNextLine then DomainLookup = True 'If the domain name was found in the Rea ' d line then the tell it the 'next line is the Ip. If an IP address w ' as not found then it should not 'return the domain we are looking for in ' the txt file. Response.write sReadData & "<BR>" If Instr(1, sReadData, sDomain) then fIpIsNextLine = true Loop 'Close it oText.Close 'Delete It FSO.DeleteFile "%Tmp%" & Session.SessionID & sDomain & ".txt" Set FSO = Nothing End Function

Images from Bark in the Park 2003

About us

Mission Statement

Dog Training Courses

Fees & Timetable

Enrolment Form

	Overnight Holiday Care, Activity Holidays and Residential Training

Newsletter

Your Questions

Guestbook

Your suggestions

Bark in the Park

Contact Us & Map

	Puppy Training + Socialisation

	Owner + Dog Training Holidays 2008

	Links

	Testimonials

	West Lancs Dog Display Team Confirmed Events 2008

	Services Available at West Lancs Canine Centre 2008

	Flyball + Agility 2008

	Your Dog`s Health

	Home Dog Training /One to One Dog Training Courses 2008

	Guy Richardson Consultant Dog Behaviourist +Trainer -Training for Owners with Problem Dogs

	Daycare / Training + Sociialisation Creche for Puppies and Adult Dogs. Day Behavioural Assessment and Corrective Training for Problem Dogs.

	About The West Lancs Dog Display Team

	Animals in Need Bark In The Park Events 2008

	Kennel Club Good Citizen Dog Scheme 2008

	Ringcraft Classes 2008

	West Lancs Dog Display Team Pedigree 1992 - 2007

CHARITIES THAT WE SUPPORT

Animals In Need

Freshfields Rescue

Make A Wish

	Claire House Childrens Hospice

QUESTIONS SECTION

This area is for answering any questions that you might have.

If you have and questions regarding dog training and behaviour please contact us and we will help you. Use the form below or email Guy at westlancsk9@aol.com

Latest Events

OCTOBER 2007

NOVEMBER 2007

DECEMBER 2007

Latest News

AMNESTY DOGS FREED!

-Dogs �Guilty� of being Pit Bull �type�, but

DANGEROUS DOGS ACT 1991 + 1997

Dangerous Dogs Act 1991 (c. 65) 1991 CHAPTER 65 ARRANGEMENT

EXPERT WITNESS - DANGEROUS DOGS ACT 1991 PROSECUTIONS - ANIMALS IN NEED

Guy Richardson has many years experience dealing with

British Institute of Professional Dog Trainers