<% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Guide ASP Domain Checker '** '** Copyright 2001-2002 Bruce Corkhill All lefts Reserved. '** '** This program is free software; you can modify (at your own risk) any part of it '** under the terms of the License that accompanies this software and use it both '** privately and commercially. '** '** All Copyright notices must remain in tacked in the scripts and the '** outputted HTML. '** '** You may use parts of this program in your own private work, but you may NOT '** redistribute, repackage, or sell the whole or any part of this program even '** if it is modified or reverse engineered in whole or in part without express '** permission from the author. '** '** You may not pass the whole or any part of this application off as your own work. '** '** All links to Web Wiz Guide and powered by logo's must remain unchanged and in place '** and must remain visible when the pages are viewed unless permission is first granted '** by the Copyright holder. '** '** This program is distributed in the hope that it will be useful, '** but WITHOUT ANY WARRANTY; without even the implied warranty of '** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER '** WARRANTIES WHETHER EXPRESSED OR IMPLIED. '** '** You should have received a copy of the License along with this program; '** if not, write to:- Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom. '** '** '** No official support is available for this program but you may post support questions at: - '** http://www.webwizguide.info/forum '** '** Support questions are NOT answered by e-mail ever! '** '** For correspondence or non support questions contact: - '** info@webwizguide.com '** '** or at: - '** '** Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom '** '**************************************************************************************** 'Set the response buffer to true Response.Buffer = False 'Set the script timeout to 90 seconds Server.ScriptTimeout = 90 'Whois function to query the whois server Private Function whoisResult(whoisURL, strMethod, strCheckString) 'Dimension variables Dim objXMLHTTP 'Holds the XML HTTP Object Dim strWhoisResultString 'Holds the reult of the whois query 'Create an XML object to query the remote whois server Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") 'Alternative XML HTTP component, for version 3.0 of XMLHTTP 'Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP") 'Open a connection to the remote whois server objXMLHTTP.Open strMethod, whoisURL, False 'Send the request and return the data objXMLHTTP.Send 'Place the whois registry response into the result string strWhoisResultString = objXMLHTTP.ResponseText 'If the domain name is to short then tell them it's invalid If Len(strDomainName) < 3 Then 'Set the return result of the function to not valid whoisResult = "Not Valid - must be at least 3 characters" 'Check the whois result to see if a result has NOT been found ElseIf InStr(1, strWhoisResultString, strCheckString, vbTextCompare) Then 'Set the return result of the function to available whoisResult = "Available" 'Else if there is an error ElseIF InStr(1, strWhoisResultString, "Error", vbTextCompare) Then 'Set the return result of the function to Taken whoisResult = "An Error has occured" 'Else there was a result Else 'Set the return result of the function to Taken whoisResult = "Taken" End If 'Clean up Set objXMLHTTP = Nothing End Function 'Function to strip non alphanumeric characters Private Function characterStrip(strTextInput) 'Dimension variable Dim intLoopCounter 'Holds the loop counter 'Loop through the ASCII characters up to - hyphen For intLoopCounter = 0 to 44 strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0) Next 'Loop through the ASCII characters from hyphen to numeric charcaters For intLoopCounter = 46 to 47 strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0) Next 'Loop through the ASCII characters numeric characters to lower-case characters For intLoopCounter = 58 to 96 strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0) Next 'Loop through the extended ASCII characters For intLoopCounter = 123 to 255 strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0) Next 'Return the string characterStrip = strTextInput End Function 'Dimension variables Dim strDomainName 'Holds the domain name to search for Dim strSuffix 'Holds the domain name suffix to search 'Read in the domain name to search strDomainName = Trim(Request.QueryString("domain")) strSuffix = Trim(Request.QueryString("suffix")) 'If a domain name has been entred then strip any unwanted characters from it If strDomainName <> "" Then 'Convert the domain name to check to lower case strDomainName = LCase(strDomainName) 'Remove www and http from in front strDomainName = Replace(strDomainName, "http://", "", 1, -1, 1) strDomainName = Replace(strDomainName, "www.", "", 1, -1, 1) 'Remove suffixes strDomainName = Replace(strDomainName, ".com", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".net", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".org", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".info", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".biz", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".tv", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".name", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".co.uk", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".org.uk", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".ltd.uk", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".plc.uk", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".net.uk", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".me.uk", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".pn.uk", "", 1, -1, 1) 'Remove any hyphens from the first and last characters If Left(strDomainName, 1) = "-" Then strDomainName = Mid(strDomainName, 2, Len(strDomainName)) If Right(strDomainName, 1) = "-" Then strDomainName = Mid(strDomainName, 1, Len(strDomainName)-1) 'Remove any hyphens double hyphens strDomainName = Replace(strDomainName, "--", "-", 1, -1, 1) 'Strip all non aphanumeric characters from the input strDomainName = characterStrip(strDomainName) End If %> Domain Name Checker

    
Electrical
Telecomm 
Network
Forum
Guest Book
Chat

ShareBuilder


Add site to our Search Engine
Add your Favorite Link
Add Your Favorite Saying
Southern Heritage
Astrology / Tarot Reading
Auctions
Baby Supplies
Buy And Sell Books
Buy Computers
Business Cards
Business-To-Business
Cars and Supplies
Cell Phones / Wireless
Credit Report / Credit Cards
Clothing /Apparel
Codes
Collectibles
Comment/Feedback
Calculators
Electrical
Flowers / Plants
Free Translation
Fun / Free Stuff
Food And Wine
Golf
Georgia Business
Health & Beauty
Hobbies/Toys
House/Building Supplies
Home Plans
HomeWork Help
Jewelry
Jokes
Jobs Links
Legal
Links
Incorporate Company
Loans
Lottery
Investment / Stocks
Insurance
Nascar
Networking
Magazines
Marketing
Music
Outdoors
Pet Supplies
Professional Learning
Programming
Promote Your Web Site
Real Estate Services
Recipes
Rome Georgia
Safety
Satellites
Security / Cameras
Education/ScholarShips
Search The Web
Software
Sports
Support
Supplies
Swimming Pools
Telecommunications
Tools
Travel
Vitamins & Herbs
Wedding Services
Web Hosting
Web Site Design
Whois Domain Name Checker
Domain Name Checker

ShareBuilder

In Association with Amazon.com

 

MoneyCentral Stock Quote       

Enter Symbol(s)

  

 

 

 

Go to msn.com

Search the Web for:
Use Advanced Search

 

 

 

 

 
Domain Name Checker
The Domain Name Checker will check the availability of domain names in
.com, .net, .biz, info, .org, .co.uk, org.uk, net.uk, plc.uk, ltd.uk
Domain Name Search   Domain Name Search:
 
<% 'If a domain name is enterd check it If strDomainName <> "" Then 'Display the avialbility Response.Write("www." & strDomainName & strSuffix & " is
") 'Call the domain checking function depending on domain suffix 'Check for .co.uk If strSuffix = ".co.uk" Then Response.Write(whoisResult("http://cgi.nic.uk/cgi-bin/whois.cgi?query=" & strDomainName & ".co.uk", "GET", "No match")) 'Check for .me.uk ElseIf strSuffix = ".me.uk" Then Response.Write(whoisResult("http://cgi.nic.uk/cgi-bin/whois.cgi?query=" & strDomainName & ".me.uk", "GET", "No match")) 'Check for .org.uk ElseIf strSuffix = ".org.uk" Then Response.Write(whoisResult("http://cgi.nic.uk/cgi-bin/whois.cgi?query=" & strDomainName & ".org.uk", "GET", "No match")) 'Check for .net.uk ElseIf strSuffix = ".net.uk" Then Response.Write(whoisResult("http://cgi.nic.uk/cgi-bin/whois.cgi?query=" & strDomainName & ".net.uk", "GET", "No match")) 'Check for .ltd.uk ElseIf strSuffix = ".ltd.uk" Then Response.Write(whoisResult("http://cgi.nic.uk/cgi-bin/whois.cgi?query=" & strDomainName & ".ltd.uk", "GET", "No match")) 'Check for .plc.uk ElseIf strSuffix = ".plc.uk" Then Response.Write(whoisResult("http://cgi.nic.uk/cgi-bin/whois.cgi?query=" & strDomainName & ".plc.uk", "GET", "No match")) 'Check for .us ElseIf strSuffix = ".us" Then Response.Write(whoisResult("http://www.whois.us/whois.cgi?TLD=us&WHOIS_QUERY=" & strDomainName & "&TYPE=DOMAIN", "GET", "no records")) 'Check for .com ElseIf strSuffix = ".com" Then Response.Write(whoisResult("http://www-whois.internic.net/cgi/whois?whois_nic=" & strDomainName & ".com&type=domain", "GET", "No match")) 'check for .net ElseIf strSuffix = ".net" Then Response.Write(whoisResult("http://www-whois.internic.net/cgi/whois?whois_nic=" & strDomainName & ".net&type=domain", "GET", "No match")) 'Check for .org ElseIf strSuffix = ".org" Then Response.Write(whoisResult("http://www-whois.internic.net/cgi/whois?whois_nic=" & strDomainName & ".org&type=domain", "GET", "NOT FOUND")) 'Check for .biz ElseIf strSuffix = ".biz" Then Response.Write(whoisResult("http://www-whois.internic.net/cgi/whois?whois_nic=" & strDomainName & ".biz&type=domain", "GET", "Not found")) 'Check for .info ElseIf strSuffix = ".info" Then Response.Write(whoisResult("http://www-whois.internic.net/cgi/whois?whois_nic=" & strDomainName & ".info&type=domain", "GET", "NOT FOUND")) End If 'Finsh the red span tag Response.Write("") End If %>>

<% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** Response.Write("Powered By - www.webwizguide.info") '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>

Web Wiz Guide!

Brownlow Consulting © 2002 Email: brownlowconsulting@brownlows.net