RoboWhois + ASP example: get the WHOIS record for a domain.

whois.asp

<%

' Requests the WHOIS record for the domain
' and returns a String containing the WHOIS response.
Function Whois(url)
  Dim objXmlHttp

  Set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")

  objXmlHttp.Open "GET", url, False, "YOUR_API_KEY", "X"
  objXmlHttp.SetRequestHeader "User-Agent", "ASP/3.0"
  objXmlHttp.Send

  If objXmlHttp.Status = 200 Then
    Whois = CStr(objXmlHttp.ResponseText)
  end if  

  Set objXmlHttp = Nothing
End Function


' Declare the variable to store the result
Dim strResult

' Call the function and assign the result
strResult = Whois("http://api.robowhois.com/whois/google.com")

%>