Hente indhold af tilgænglig tekstfil fra andet domæne

Hej,
Du kan prøve med den her:
<%
function GetHTML(url)
    Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
    xmlhttp.open "GET", url, false
    xmlhttp.setRequestHeader "User-Agent","My funky browser."
    xmlhttp.send()
    response.write xmlhttp.status                  ' Add this line.
    If(xmlhttp.status=404) Then
          response.write("Src not found")
    Else
          response.write Len(xmlhttp.responseText)  ' Add this line.
          GetHTML = xmlhttp.responseText
    End If
    If err.number <> 0 then
        response.write "Url not found"
    end if
    Set xmlhttp = nothing
end function

url = "http://localhost/test/test.asp"
theSrc = GetHTML(URL)
response.Write (theSrc)
%>

Prøv evt. med andre versioner af MSXML.

'Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
'Set xmlhttp = Server.CreateObject("Msxml2.ServerXMLHTTP.4.0")
'Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP")