domain søger

whois.asp:
dette kræver at du har w3 sockets installeret som du kan hente på www.dimac.se
<% strDomain = LCase(Trim(Request.Form(\"Domain\"))) %>
<html><head>
<title>Domæne tester med w3 Sockets</title><body>
<p><b>Domæne tester</b></p>

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

</body></html>

det skulle selvfølgelig ha været et svar :o)

den direkte linie til at hente komponentet er:
http://download.dimac.net/sockets/w3sockets.exe

tsk tsk .. hvad tror du Dimac siger til det !? man skal jo udfylde alle mulige felter for at må D/L\'e den .. *G*

hehe

tpiil: Kan den både teste .dk .com .net & .org

Desuden ville det være dejligt hvis den kunne .ws også

jep .dk .com .net og .org, men .ws kan den ikke!

hvilket land er .ws??

.ws .. WorldSite ..

det kender jeg ikke til!

eller .ws (WebSite) men for nu at være seriøs er det et land der hedder Western Samoa!!!

worldsite og website :o)
kan i blive enige :o)

TAKKER!

En god ven af mig testede den lige så tilykke du er lige blevet 1042 point rigere!!!

jep og den gode ven er tdaugaard :o)
jeg snakker også med ham :o)