Hente info(firma/eier/ISP) på IP adresse

Jeg har et script som logg fører statistikk.

Det jeg er interessert i er en snutt som sjekker ip mot en database eller nettsted som finner hvilket firma som har ip`en.

Jeg fant et script på http://www.eksperten.dk/spm/589988 men problemet er at når jeg sjekker mot arin med dette scriptet så klarer den ikke å sjekke flere en 2 ip om gangen.

Her er scriptet:
<%
IP = Request.ServerVariables("REMOTE_ADDR")

Sub GetIPName(strInput)
    Dim oServerXMLHTTPRequest,URL,Kilde,Arr_Kilde,Arr_ISP,ISP
    Set oServerXMLHTTPRequest = Server.CreateObject("Msxml2.ServerXMLHTTP")
    URL = "http://www.ripe.net/perl/whois?form_type=simple&full_query_string=&searchtext=" & strInput & "&do_search=Search"
    oServerXMLHTTPRequest.open "GET", URL, False
    oServerXMLHTTPRequest.Send
    Kilde = LCase(oServerXMLHTTPRequest.ResponseText)

    Arr_Kilde = Split(Kilde, "descr:        ")
    Arr_ISP = Split(Arr_Kilde(1), "country")
    ISP = Arr_ISP(0)
   
    If Len(ISP) > 35 Then
        ISP = strInput
    End if
   
    Response.Write(UCASE(ISP))
End Sub

Call GetIPName("85.164.215.84")
Response.Write("<br>")

Call GetIPName("192.168.1.72")
Response.Write("<br>")

Call GetIPName("80.203.227.164")
Response.Write("<br>")
%>

Hvis man kjører fler etter hver andre så kommer feilmeldingen:
Subscript out of range: '[number: 1]'