<% Option Explicit %> <% '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 Dim resultwi '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 %> Check Domain Name, web hosting, web hosting india, Domain Name Registration
Home | About us | Our Work Process | Portfolio | Feedback | Career | Contact Us
 

Domain Registration
 

▪    Hosting Solutions

▪    Web Designing

▪    Web Development

▪    Software Development

▪    Multimedia Solutions

▪    Ecommerce Solutions

▪    Portal Development

▪    Search Engine Optimization

▪    Link Popularity


   

CHECK DOMAIN NAME
 

Please Enter a Domain Name (Rs.495/- per year only)

Search Domain :     

To check who owns this Domain Name, Please click here (Who Is Lookup)


Please follow the under-motioned processes

Just enter the Domain Name without the extension and select extension from combo box.Use only letters, numbers, or hyphen ("-"). Cannot begin or end with a hyphen.

A domain name can be up to 67 characters long including the 4 characters used to identify the Top Level Domain (.COM, .NET or .ORG)

Please Note The Following

All domain names are usually registered within 24 hours of the receipt of payment. Once Successfully registered nobody can register your domain name, but it still takes 1-2 days for it to show up in the WHOIS database.

Internationally, Domain Name registration is done on a First-come-first-serve basis. The domain requested may be registered by some other person/organization in between the period of request for domain registration and the receipt of payment. Microsys Infomedia will not be responsible in any way for the non-availability of the domain. The money you send will be refunded in case you do not want to register another Domain with us.

Home | About Us | Career | Feedback | Contact Us | Privacy policy | Disclaimer | Resources | Sitemap

Portfolio | Clientele | Case Studies | Our Work Process | Customer Support | Quality | Request A Quote

 

Microsys Infomedia Pvt Ltd. All rights reserved
domain name registration, hosting solutions india, portal development, search engine optimization, cd multimedia presentation india, professional web services india, custom web development india, multimedia presentations, custom web design india, web design company india, website design india, website development companies india