Y el archivo whoisinc.asp es este:
Class Whois
Public domain
Public Root
Private strHTML
Private xml
Private strHTMLbits
public Function Run
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
If Right(root,3) = ".uk" then
xml.Open "GET", "http://www.nic.uk/cgi-bin/whois.cgi?query=" & domain & "." & root, False
Else
xml.Open "GET", "http://www.internic.com/cgi/whois?type=domain&whois_nic=" & domain & "." & root, False
End if
xml.Send
strHTML = xml.responseText
If (InStr(strHTML,"<pre>") and InStr(strHTML,"</pre>")) OR (InStr(strHTML,"<PRE>") and InStr(strHTML,"</PRE>")) then
strHTMLbits = Split (strHTML, "<PRE>", -1, 1)
strHTML = strHTMLbits(1)
strHTMLbits = Split (strHTML, "</PRE>", -1, 1)
strHTML = strHTMLbits(0)
Else
strHTML = " Error:<br><br>The Domain you entered may contain invalid characters."
End If
End Function
Public Property Get available
If InStr(strHTML,"No match") or InStr(strHTML,"not found") then
available = 1
Elseif InStr(strHTML,"No information") then
available = 2
Elseif InStr(strHTML,"Error") then
available = 3
Else
available = 0
End If
End Property
Public Property Get output
output = strHTML
End Property
End Class