domänkontroll menar du rent webbkontroll dvs du kan kontrollera vad som ska stås på sidorna, bygga upp sidorna direkt via applikationen eller ska du kunna styra exempel https://www.dinsida.com ?
'Nu gör vi en whois på domänen
Set oWhoisdll = Server.CreateObject("WhoisDLL.Whois")
sResult= oWhoisdll .whois(sDomain & "." & sTLD )
%>
Nu har vi infon från domänen, nu måste vi bara ta reda på om domänen är ledig eller inte, för att ta reda på det så tar vi fram någonting vi kan söka efter, t.ex. för .se så finns alltid texten "No data found." med om domänen är ledig. Så vi lägger till lite mer kod efter detta:
<%
select case sTLD
case "se"
if instr(sResult, "No data found.") = 0 then bFree = true
case "com"
if instr(sResult, "No match for ") = 0 then bFree = true
end select
%>