|
|
| <% Dim xml, strData, url sub sub_scrapping(arg_url) url = arg_url Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP") xml.Open "GET", url, true Call xml.Send() On Error Resume Next If xml.readyState <> 4 then xml.waitForResponse 3 End If If Err.Number <> 0 then strData = err.Description Else If (xml.readyState <> 4) Or (xml.Status <> 200) Then xml.Abort strData = "Problem communicating with remote server..." Else strData = xml.ResponseText End If End If intLength = Len(strData) If intLength >0 Then response.Write ""+strData+"" End if end sub call sub_scrapping("http://www.futura-net.com/exchange_links.asp") %> |
