Hämta innehåll från annan webplats

med Microsoft.XMLHTTP

Kör jag denna kod:

Function GetHTML(strURL)
	Dim objXMLHTTP, strReturn
	Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
		objXMLHTTP.Open "GET", strURL, False
		objXMLHTTP.Send
		
		strReturn = objXMLHTTP.responseText
	Set objXMLHTTP = Nothing
	
	GetHTML = strReturn
End Function

Response.Write GetHTML("http://www.minsida.se")

Så får jag följande fel:
Serverobjekt fel 'ASP 0177 : 80004005'

Server.CreateObject misslyckades

/cargotec/gethtml.asp, rad 6

Åtgärden utfördes.

Lite irriterande då jag vet att Microsoft.XMLHTTP (XML3 Parser) finns installerat på maskinen för detta funkar:

Set objXML = Server.CreateObject("Microsoft.XMLHTTP")

utan att generera ett enda fel.

Ngn som har en fiffig lösning?

cya,
PatrikB

------------------
'## -- second place is the first looser -- ##'