Domæne tester.

Jeg skal bruge en domæne tester, som kan søge i .dk,.com,.org,.net.
her kigget lidt på denne:
----------------------------------------
<% strDomain = LCase(Trim(Request.Form("Domain"))) %>
<% strland = LCase(Trim(Request.Form("land"))) %>
<% strsog = LCase(Trim(Request.Form("Domain") & Request.Form("land"))) %>


<form method="POST" action="?">
<p>www. <input type="text" name="Domain" style="font-family: Verdana; font-size: 10 pt;  border: 1 solid #000000" style="background-color: #ffffff" size="25" value="<%=strDomain%>">
    <select name="land">
      <option value=".dk"<% if request("land") = ".dk" Then %>selected<% end if %>>.dk
      <option value=".as"<% if request("land") = ".as" Then %>selected<% end if %>>.as
      <option value=".com"<% if request("land") = ".com" Then %>selected<% end if %>>.com
      <option value=".net"<% if request("land") = ".net" Then %>selected<% end if %>>.net
      <option value=".org"<% if request("land") = ".org" Then %>selected<% end if %>>.org
    </select>
<input type="submit" value="-- Test nu --" style="background-color: #ffffff" name="Test"></p>
</form>

<%
If Len(strDomain) > 0 Then
  ' Finder den sidste forekomst af .
  pos = InStrRev(strLand, ".")

  If pos > 0 Then
    strDOM = Mid(strLand, pos+1)
   
    Set objSocket = Server.CreateObject("Socket.TCP")
    Select Case strDOM
    Case "com", "net", "org", "edu"
      strHost = "Internic"
      objSocket.Host = "rs.internic.net:43"
      strMatch = "No match"
    Case Else
      strHost = "RIPE"
      objSocket.Host = "whois.dk-hostmaster.dk:43"
      strMatch = "% No entries found"
    End Select
 
    objSocket.Open

    ' Sender forespørgsel
    objSocket.SendLine(strDomain & request("land"))
 
    ' Venter på at disconnecte
    objSocket.WaitForDisconnect
 
    ' Gemmer output i variablen tmpBuffer
    tmpBuffer = objSocket.Buffer
   
    If InStr(1, tmpBuffer, strMatch, 1) > 0 Then
      Response.Write "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' COLOR='#72C661'><P>Domæne navnet <b>" & strsog & "</b> er ledigt <A HREF='dombestil.asp'><b>Bestil her >></a></b></p></font>"
    Else
      Response.Write "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' COLOR='#E8E62F'><p>Desværre domænet <b>" & strDomain & "</b> er optaget.</p>"
    End If
    Response.Write "</center><font face='Verdana, Arial, Helvetica, sans-serif' size='3' COLOR='#ffffff'><hr COLOR='#B4B9C3'><blockquote><pre>" & tmpBuffer & "</pre></blockquote></p>"
   
    objSocket.Close
  Else
    Response.Write "<p>Du skal angive et gyldigt domænenavn</p>"
  End If
End If
%>
-----------------------------------------
Den virker ikke, er det fordi den kræver et serverobject, som man sikkert skal betale for???