Hvad gør denne kode?

Hej Alle

Jeg har fundet denne kode på aspin.com og kan se den har noget med PageRank at gøre - men er der nogen der helt konkret kan forklare mig hvad koden gør og hvad det kan bruges til?

--------------------------------
<%
Function GetPR(ByRef Address)
    On Error Resume Next

    SET objSpider = Server.CreateObject("Microsoft.XMLHTTP")
    strHeaders = "email=can@aspindir.com" _
              & "&site=http://www.finarfin.net" _
              & "&copyright=Can HANHAN > finarfin" _
              & "&A=" & Server.URLEncode(Address)

    objSpider.open "GET", "http://www.aspindir.com/finarfin/hilal/pr.asp?" & strHeaders, False
    objSpider.send
   
    IF Err THEN
        GetPR = "n/a"
    ELSE
        GetPR = objSpider.ResponseText
    END IF
End Function
%>

Google PageRank of ASP Ýndir is <%=GetPR("http://www.aspindir.com")%>
--------------------------------------

/Peter