<% Option Explicit %> <% Response.Buffer = False Server.ScriptTimeout = 90 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 = "Invalid domain name - min 3 chars" '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 = "
IS AVAILABLE

REGISTER »" 'Else if there is an error ElseIF InStr(1, strWhoisResultString, "Error", vbTextCompare) Then 'Set the return result of the function to Taken whoisResult = "Error" 'Else there was a result Else 'Set the return result of the function to Taken whoisResult = "
is registered.

Details »" End If 'Clean up Set objXMLHTTP = Nothing End Function Private Function whoisResulteu(whoisURL, strMethod, strCheckString) 'Dimension variables Dim objXMLHTTPeu 'Holds the XML HTTP Object Dim strWhoisResultStringeu 'Holds the reult of the whois query 'Create an XML object to query the remote whois server Set objXMLHTTPeu = 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 objXMLHTTPeu.Open strMethod, whoisURL, False 'Send the request and return the data objXMLHTTPeu.Send 'Place the whois registry response into the result string strWhoisResultStringeu = objXMLHTTPeu.ResponseText strWhoisResultStringeu = Left(strWhoisResultStringeu,5100) '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 whoisResulteu = "Invalid domain name - min 3 chars" 'Check the whois result to see if a result has NOT been found ElseIf InStr(1, strWhoisResultStringeu, strCheckString, vbTextCompare) Then 'Set the return result of the function to available whoisResulteu = "
IS AVAILABLE

REGISTER »" 'whoisResulteu = "
IS AVAILABLE

REGISTER »" whoisResulteu = "
IS AVAILABLE

REGISTER »" 'Else if there is an error ElseIF InStr(1, strWhoisResultStringeu, "Error", vbTextCompare) Then 'Set the return result of the function to Taken whoisResulteu = "Errore" 'Else there was a result Else 'Set the return result of the function to Taken whoisResulteu = "
is registered

details »" End If 'Clean up Set objXMLHTTPeu = 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, ".eu", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".com", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".it", "", 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 %> Servicesandservices.com
 
   
   
REGISTER ANY DOMAIN WITH US!
   
  • .it
  • .com
  • .net
  • .org
  • .eu
  • .pro
  • .info
  • .biz
  • .fr
  • .de
  • .co.uk
  • .mobi
  • .asia
  • .ch
  • .tel
  • and More!
 
" />
Domain name:
<% 'If a domain name is enterd check it If strDomainName <> "" Then 'Display the avialbility Response.Write("www." & strDomainName & strSuffix & "
") 'Call the domain checking function depending on domain suffix 'Check for .it If strSuffix = ".it" Then Response.Write(whoisResult("http://www.ripe.net/perl/whois?query=" & strDomainName & ".it", "GET", "No entries found")) '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")) ElseIf strSuffix = ".eu" Then Response.Write(whoisResulteu("http://www2.whois.eu/whois/GetDomainStatus.htm?domainName=" & strDomainName, "GET", "AVAILABLE")) '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 %>

For other extension contact us
 
Control and management of traditional and innovative assets

Services And Services Srl
2006® All right reserved
34 Via Degli Arrotini - 57121 Livorno Tuscany Italy - P.I.V.A.(VAT) IT 00308500495 - REA: 56039
Services And Services