Domæne-checker

noget her: ?

http://azero.dk/support/programmering/asp/komponenter/sockets/domaincheck/

Har set deres, men skal bruge det til dk-domæner.

Se bunden af deres beskrivelse:

Hvorfor virker dette ikke med .dk domæner?
Fordi DK Hostmaster har fjernet denne mulighed, på grund af danske love om registrering af personlige data. Informationerne kan istedet hentes fra DK Hostmasters hjemmeside via XMLHTTP.

Du kunne jo eventuelt bruge Knappes.. Udemærket med lidt modifikationer, og for at kontrollere samtlige domæner skal du bare lige finde "stien" til alle domæne stederne..

http://activedeveloper.dk/artikler/default.asp?articleid=92

Takker, hvad skriver jeg i match'et hos dk-hostmaster? (Se spørgsmålstegnene)

<%

strDomain = LCase(Trim(Request.QueryString("Domain")))
strCountry = LCase(Trim(Request.QueryString("Country")))

strDomain = replace(strDomain, "http://", "")
strDomain = replace(strDomain, "www.", "")

If Len(strDomain) > 0 Then
  strDomain = strDomain & "." & strCountry

  ' 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 "dk"
      strHost = "dk-hostmaster"
      objSocket.Host = "whois.dk-hostmaster.dk:43"
      strMatch = "??????????????????"
    Case Else
      strHost = "RIPE"
      objSocket.Host = "whois.ripe.net:43"
      strMatch = "No entries found for the selected source"
    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
      strMessage = "Domænenavnet - WWW." & ucase(strDomain) & " - er ledigt"
    Else
      strMessage = "Domænenavnet - WWW." & ucase(strDomain) & " - er optaget"
    End If
   
    objSocket.Close
  Else
      strMessage = "Du skal angive et gyldigt domænenavn - f.eks. DitSite.dk"
  End If
 
  response.write "<script>alert('" & strMessage & "');</script>"

End If

%>

Jeg ville umiddelbart ikke selv koble mig op af DK hostmaster, MEN det kan du jo gøre..

Du kan næsten altid se fejl meddelelsen hos de forskellige i WHOIS´en. Men i DK hostmasters tilfælde ved jeg det ikke. Du skal dog bemærke, at du altså godt kan slå .dk domæner op, hvis du bare fjerner "dk" casen

:)

Mange tak for hjælpen :-)