Domænetester kan ikke slå DK domæner op mere....

Denne domænetester i ASP som bruger w3 Sockets  kan ikke længere slå dk domæner op. Test af andre domæner virker fint....Hvad er der galt ???

<%
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
%>

Det må være denne linie der er noget galt i:
----------------------------------------------------
      strHost = "RIPE"
      objSocket.Host = "whois.dk-hostmaster.dk:43"