<% Option Explicit %> <% 'Set the response buffer to true Response.Buffer = False 'Set the script timeout to 90 seconds Server.ScriptTimeout = 90 Dim lAvailable lAvailable = False Dim lnDomainNamePrice lnDomainNamePrice = 12.99 '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 %> Commatic Limited - IT Services, Programming, Web Design, Web Hosting, Domain Names, Consultancy

Commatic - Domain name and web site hosting

Commatic, specialists in website design, search engine optimisation and search engine marketing

Telephone
0845 260 8450

Send an email

Commatic Ltd also trade as

Commatic domain name and web site hosting

This Domain Name Checker will check the availability of domain names. If your chosen domain name is available you will then be able to place an order online for your chosen domain name and web site hosting

  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 lAvailable = whoisResult("http://cgi.nic.uk/cgi-bin/whois.cgi?query=" & strDomainName & ".co.uk", "GET", "No match") lnDomainNamePrice = 12.99 '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 lAvailable = whoisResult("http://cgi.nic.uk/cgi-bin/whois.cgi?query=" & strDomainName & ".me.uk", "GET", "No match") lnDomainNamePrice = 12.99 'Check for .org.uk ElseIf strSuffix = ".org.uk" Then lAvailable = whoisResult("http://cgi.nic.uk/cgi-bin/whois.cgi?query=" & strDomainName & ".org.uk", "GET", "No match") lnDomainNamePrice = 12.99 'Check for .net.uk ElseIf strSuffix = ".net.uk" Then lAvailable = whoisResult("http://cgi.nic.uk/cgi-bin/whois.cgi?query=" & strDomainName & ".net.uk", "GET", "No match") lnDomainNamePrice = 12.99 'Check for .ltd.uk ElseIf strSuffix = ".ltd.uk" Then lAvailable = whoisResult("http://cgi.nic.uk/cgi-bin/whois.cgi?query=" & strDomainName & ".ltd.uk", "GET", "No match") lnDomainNamePrice = 12.99 'Check for .plc.uk ElseIf strSuffix = ".plc.uk" Then lAvailable = whoisResult("http://cgi.nic.uk/cgi-bin/whois.cgi?query=" & strDomainName & ".plc.uk", "GET", "No match") lnDomainNamePrice = 12.99 'Check for .com ElseIf strSuffix = ".com" Then lAvailable = whoisResult("http://www-whois.internic.net/cgi/whois?whois_nic=" & strDomainName & ".com&type=domain", "GET", "No match") lnDomainNamePrice = 14.99 'check for .net ElseIf strSuffix = ".net" Then lAvailable = whoisResult("http://www-whois.internic.net/cgi/whois?whois_nic=" & strDomainName & ".net&type=domain", "GET", "No match") lnDomainNamePrice = 14.99 'Check for .org ElseIf strSuffix = ".org" Then lAvailable = whoisResult("http://www-whois.internic.net/cgi/whois?whois_nic=" & strDomainName & ".org&type=domain", "GET", "NOT FOUND") lnDomainNamePrice = 14.99 'Check for .biz ElseIf strSuffix = ".biz" Then lAvailable = whoisResult("http://www-whois.internic.net/cgi/whois?whois_nic=" & strDomainName & ".biz&type=domain", "GET", "Not found") lnDomainNamePrice = 14.99 'Check for .info ElseIf strSuffix = ".info" Then lAvailable = whoisResult("http://www-whois.internic.net/cgi/whois?whois_nic=" & strDomainName & ".info&type=domain", "GET", "NOT FOUND") lnDomainNamePrice = 14.99 End If Response.write lAvailable 'Finsh the red span tag Response.Write("") If lAvailable = "Taken" Then response.write("

Please try searching again
") END If End If If lAvailable = "Available" Then %>
> >
Place order for <%=strDomainName & strSuffix%>
Item  
Price (£) - Excl. VAT
Domain name <%=strDomainName & strSuffix%> (1 Year)  
<% response.write lnDomainNamePrice %>
     
Web site hosting space attached to <%=strDomainName & strSuffix%>  





Please note : These prices above are only available for online orders. Orders taken by telephone or email, or renewal orders will be charged at Commatic's standard prices
The 20Mb web hosting offer is only available for online orders.
Once your order has been successfully processed we will contact you with email forwaring options and ftp login details where applicable

<% End If %>

 

Commatic, Joining Your Business

Tel : 0845 260 8450
info@commatic.co.uk

©Commatic Limited - 1998-2011
Registered in England and Wales - Reg No : 03572301 - VAT Reg No : 728 9686 68
Registered Office : Oakley House, Tetbury Road, Cirencester, Gloucestershire, GL7 1US
Commatic is a Registered Trade Mark® of Commatic Limited
Cirencester Web Design and Cirencester Website Design are trademarks of Commatic Limited