provalo così, io ho risolto...
codice:
	Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") 
		objXMLHTTP.Open "Get", URLOggetto, False
		objXMLHTTP.Send
	
		If objXMLHTTP.status = 200 then
			Set rs = Server.CreateObject("ADODB.Recordset")
				rs.Fields.Append "text", 201, -1 ' text field
				rs.Open
				rs.AddNew
				rs("text").AppendChunk objXMLHTTP.responseBody
				testoHTML = rs("text")
				rs.Delete
				rs.Update
				rs.Close
			Set rs=Nothing	
		Else
			testoHTML = "Errore"
		End If
	
	Set xml = Nothing