<%
function DomainTable (Domainname)
const cDomainname = 0
const cStatus = 1
dim xmlhttp, xmldoc, objLst, objHdl, objNumber, Teller, Buffer
set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP")
set xmldoc = Server.CreateObject("Microsoft.XMLDOM")
xmlhttp.Open "GET", "http://check.is.nl/XML/checkdomain.asp?query=" & Domainname, false
xmlhttp.Send ()
xmldoc.Async = false
xmldoc.Loadxml (xmlhttp.ResponseText)
set objLst = xmldoc.getElementsByTagName("domain")
objNumber = objLst.length
if objNumber <> 0 then
for Teller = 0 to objNumber - 1
set objHdl = objLst.Item(Teller)
Buffer = Buffer & "" & vbCrLf
Buffer = Buffer & " | " & vbCrLf
Buffer = Buffer & " " & objHdl.childNodes(cDomainame).Text & vbCrLf
Buffer = Buffer & " | " & vbCrLf
Buffer = Buffer & " " & vbCrLf
select case objHdl.childNodes(cStatus).Text
case 0
Buffer = Buffer & "bezet" & vbCrLf
case 1
Buffer = Buffer & "vrij" & vbCrLf
end select
Buffer = Buffer & " | " & vbCrLf
Buffer = Buffer & "
" & vbCrLf
set objHdl = nothing
next
end if
set objLst = nothing
set xmldoc = nothing
set xmlhttp = nothing
DomainTable = Buffer
end function
%>