problemer med domain søgning

prøv dette:

if request(\"com\")=\"on\" then
  objSocket.Host = \"whois.internic.net:43\"
  objSocket.Open
  objSocket.SendLine(strDomain&\".com\") 
  objSocket.WaitForDisconnect
  tmpBuffer = objSocket.Buffer
  objSocket.close
  session(\"whoisCOM\")=tmpBuffer

  If InStr(tmpBuffer, \"Name Server\") Then
    anydomains=1
    Response.Write \"<FONT COLOR=\'f7740a\'>Domain navnet <a href=\'checkout.asp?domain=\"& strDomain &\".com&productid=3\' target=\'checkout\'><B>\" & strDomain & \".com</B></a> er ledigt<br></FONT>\" 
  Else
    Response.Write \"<a href=\'#\' onclick=window.open(\'viewwhois.asp?tekst=whoisDK&domain=\"&strDomain&\".com\',\'\',\'width=579,height=482\')><img src=\'Untitled-1.gif\' width=\'32\' height=\'32\'></a> \"&strdomain&\".com<br>\"
  End if 
End If

Hvad består dit forslag af ? at jeg skal bytte rundt på 2 kode linier ?

jep

Så har jeg måske ikke forklaret mig godt nok :-) Det er kun nogle domæner den laver fejl på.. F.eks tester den rigtigt på sexy.com for nu at blive i samme kategori :-) Så det er ikke et syntaks problem...

prøv denne:

<% strDomain = LCase(Trim(Request.Form(\"Domain\"))) %>
<form method=\"POST\" action=\"whois.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
  \' Finder den sidste forekomst af .
  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 Else
      strHost = \"RIPE\"
      objSocket.Host = \"whois.ripe.net:43\"
      strMatch = \"% No entries found\"
    End Select
 
    objSocket.Open

    \' Sender forespørgsel
    objSocket.SendLine(strDomain)
 
    \' Venter på at disconnecte
    objSocket.WaitForDisconnect
 
    \' Gemmer output i variablen tmpBuffer
    tmpBuffer = objSocket.Buffer
   
    If InStr(1, tmpBuffer, strMatch, 1) > 0 Then
      Response.Write \"<p><font color=blue>Domæne navnet <b>\" & strDomain & \"</b> er ledigt hos \" & strHost & \"</font></p>\"
    Else
      Response.Write \"<p>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
%>

Det virker heller ikke, det må være noget med at den server jeg connecter til ikke er up to date ? Hvordan ved jeg hvilken server der er senest opdateret ?

er du sikker på at du har komponentet installeret???

hmm der kom ikke nogen svar jeg kunne bruge til noget så jeg lukker og slukker