Domaintester problem

Hejsa,
Jeg har et problem med denne domaintester (fundet her på eksperten). Den virker fint i originalformen, når komponenten Socket.TCP er installeret. Men nu er jeg så ved at prøve at udvide den til også at omfatte .biz og .info domæner, og her går det galt. Selvom den ved .biz burde checke med Neulevels whois-server springer den ned til RIPE. Tror det går galt nede ved case-sætningerne.

Tak for hjælpen .. Simon

--koden--

<% strDomain = LCase(Trim(Request.Form("Domain"))) %>

<form method="POST" action="domaintester.asp">
<p><input type="text" name="Domain" size="30" value="<%=strDomain%>"> <input type="submit" value="Test" name="Test"></p>
</form>

<%
If Len(strDomain) > 0 Then
  pos = InStrRev(strDomain, ".")

  If pos > 0 Then
    strDOM = Mid(strDomain, 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 "info" 
    strHost = "Crsnic"
    objSocket.Host = "whois.crsnic.net:43"
    strMatch = "not in the registry"
        Case "biz"
    strHost = "Neulevel"
    objSocket.Host = "whois.nic.biz:43"
    strMatch = "There were no records"
        Case else
      strHost = "RIPE"
      objSocket.Host = "whois.ripe.net:43"
      strMatch = "% No entries found"
      End Select
 
    objSocket.Open
    objSocket.SendLine(strDomain)
    objSocket.WaitForDisconnect
    tmpBuffer = objSocket.Buffer
   
    If InStr(1, tmpBuffer, strMatch, 1) > 0 Then
      Response.Write "<p><font color=green>Domænenavnet <b>" & strDomain & "</b> er ledigt hos " & strHost & "</font></p>"
    Else
      Response.Write "<p><font color=red>Desværre, domænet <b>" & strDomain & "</b> er optaget.</p>"
    End If
    ' Response.Write "<hr><p><blockquote><pre>" & tmpBuffer & "</pre></blockquote></p>"
    objSocket.Close
  Else
    Response.Write "<p>Du skal angive et gyldigt domænenavn</p>"
  End If
End If
%>