Retuner true / false ved DK domaine

Ønsker du retuneret true hvis det er et dk domæne og ellers sand?

Hvordan har du de domæner som du ønsker at kontrollere, i en database, i en fil, eller noget helt andet?

jeg mente jo falsk hvor jeg skrev sand :-)

Hej.

Jeg har dem i en database, aå det er bare et loop.
Hvis et domaine er ledigt, skal der retuneres true

Følgende burde kunne gøre det. Metoden er ikke optimal, hivs der skal køres mange domæner igennem.
Mig bekedt er det bedste hvis man har adgang til et socket komponent, men jeg er ikke den bedste at spørge på det område....

function checkDom(domain)
    Dim objHTTP, strSvar
    Set objHTTP =CreateObject("Microsoft.XMLHTTP")

    objHTTP.Open "GET", "http://www.dk-hostmaster.dk/dkhostcms/bs?query="&domain&"&pageid=82&action=cmsview&lang=da", False
    objHTTP.Send
    strSvar = objHTTP.responseText
   
    Set objHTTP = Nothing
    if instr(1,strSvar,domain)<>0 then
        checkDom=false
    else
        checkDom=true
    end if
end function   

    ' her er vises lige et par eksempler. Det er bare her du skal loope din database igennem
    Response.Write  checkDom("eksperten.dk")
    Response.Write  checkDom("dsfsdf.dk")

Kunne ovenstående bruges?

Perfekt det virker .. Tak !