<% 'Set the response buffer to true Response.Buffer = true '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 = "Please enter 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 %> Free Web Hosting, Bangkok, Thailand, ThaiWebpro.com
Free Web Hosting, Bangkok, Thailand
Web Design Thailand

Free Web Hosting, Bangkok, Thailand
Free Web Hosting, Bangkok, Thailand, ThaiWebpro.com
 Search at ThaiWebpro Support at ThaiWebpro Forum at ThaiWebpro
Flash Web Design Bangkok
Flash Design Thailand
Thailand Web Designers Thai Web Designers
Web Designer Thailand Web Design Bangkok
CLIENT LOGIN
User Name:
 
Password:
 
WEB HOSTING
• Web Hosting Introduction
• Windows 2000 Hosting
• Unix Hosting
• Dedicated & Co-located
• Special Promotions
• Control Panel
• Our Network
Windows 2003 Hosting Plans
Plan1: Windows PERSONAL
Plan2: Windows BUSINESS
Plan3: Windows CORPORATE
Plan4: Windows ENTERPRISE
Web Hosting Thailand
Unix Hosting Plans
Plan1: Unix PERSONAL
Plan2: Unix BUSINESS
Plan3: Unix CORPORATE
Plan4: Unix ENTERPRISE
Web Hosting Bangkok
SPECIAL PROMOTIONS

Free Web Hosting

To celebrate the New Year, ThaiWebpro are offering 3 months of FREE Web Hosting worth 1,800 Baht to anyone registering a new domain name through us.

The choice of the new Domain Name is of course yours and it can be for a business website, personal website, company emails or just for fun !

Your extension choices for your new Domain include:
• com • net • org • biz • info

Use the Domain Check Tool below to see if your choice of domain is still available?
 
 
<% '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 %>
 
[NOTE: if the domain is taken, please try
another name or different extension]










If it is available, simply send us your full name, address and the chosen domain name and we will do the rest!

CLICK HERE TO CONTACT US NOW

...and the best part is the cost, just 800 Baht for the registrar fee, plus a small one time setup charge of only 1,500 Baht - which includes ThaiWebpro registering the domain name for you (in your name) as well as us setting up 5 EMAIL ACCOUNTS of your choice.

Hurry! this offer is ONLY until the end of the Month!
Free Web Hosting, Bangkok, Thailand
SEO Thailand
Web Marketing Bangkok
HOME
|
 WEB MARKETING
|
 WEB DEVELOPMENT
|
 WEB HOSTING
|
 GRAPHIC DESIGN
|
 PORTFOLIO
|
 ADD URL
|
 CONTACT

Copyright © 2002 - 2011 : THAIWEBPRO.COM : All Rights Reserved
Privacy : Terms of Service : Site Map

Web Design, Web Hosting, Web Marketing - ThaiWebpro.com
Site developed by : www.thaiwebpro.com