<% 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") dim xsl set xsl=Server.CreateObject("Microsoft.XMLDOM") xsl.async=false xsl.load(Server.MapPath("exchange_links.xsl")) Set xml = Server.CreateObject("Microsoft.XMLDOM") xml.async = False xml.load (Server.MapPath("exchange_links.xml")) dim strXMLFile strXMLFile=XML.transformNode(XSL) strXMLFile=replace(strXMLFile,"<","<") strXMLFile=replace(strXMLFile,">",">") response.Write(strXMLFile) Set xml = Nothing set xsl=nothing %>
 
Copyright © 2005-2006 Futura Internet Services All Rights Reserved.