response.write getHTTPPage(a_url)
function getHTTPPage(url)
on error resume next
dim http
set http=Server.createobject("Msxml2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then exit function
set http=nothing
if err.number<>0 then err.Clear
end function