Function getHTTPPage(url)
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate <> 4 then
exit function
else
getHTTPPage = http.status
end if
set http=nothing
if err.number<>0 then err.Clear
end function