ASP uses Microsoft.XMLHTTP to get page information

xml| Page | Page info

<%
function gethttppage (URL)
On Error Resume Next
Dim http
Set Http=server.createobject ("Microsoft.XMLHTTP")
Http.open "Get", Url,false
Http.send ()
If Http.readystate<>4 Then
Exit function
End If
Gethttppage=bytes2bstr (Http.responsebody)
Set http=nothing
If Err.number<>0 then err. Clear
End Function
Function Bytes2bstr (vIn)
Dim Strreturn
Dim I1,thischarcode,nextcharcode
Strreturn = ""
for i1 = 1 to LenB (vIn)
Thischarcode = AscB (MidB (vin,i1,1))
If Thischarcode < &h80 Then
Strreturn = Strreturn & Chr (Thischarcode)
Else
Nextcharcode = AscB (MidB (vin,i1+1,1))
Strreturn = Strreturn & Chr (CLng (thischarcode) * &h100 + CInt (nextcharcode))
I1 = I1 + 1
End If
Next
Bytes2bstr = Strreturn
End Function
%>