01.Function getURL(url)
02. On Error Resume Next
03. Set http = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
04. http.open "GET", url, true
05. http.send
06. If http.readyState <> 4 then
07. http.waitForResponse 10
08. End If
09. If Err.Number = 0 AND http.Status = 200 then
10. getURL=http.responsetext
11. else
12. getURL=""
13. end if
14. set http = nothing
15.End Function
16.
17.Dim theValue
