Den returnerer blot IP.
Jeg har selv løst det:
<%
Set oServerXMLHTTPRequest = Server.CreateObject("Msxml2.ServerXMLHTTP")
URL = "
http://www.ripe.net/perl/whois?form_type=simple&full_query_string=&searchtext=" & Request.ServerVariables("REMOTE_ADDR") & "&do_search=Search"
oServerXMLHTTPRequest.open "GET", URL, False
oServerXMLHTTPRequest.Send
Kilde = LCase(oServerXMLHTTPRequest.ResponseText)
Arr_Kilde = Split(Kilde, "<u>origin</u>")
Arr_ISP = Split(Arr_Kilde(UBound(Arr_Kilde) - 1), "descr: ")
ISP = Arr_ISP(UBound(Arr_ISP))
Response.Write "<b>ISP:</b> <font style='text-transform:capitalize;'>" & ISP & "</font><br>"
Set oServerXMLHTTPRequest = Nothing
%>