msxml3.dll error '80072ee6' error

[Blueie]

Hello

I would be grateful for any help with this, please.

I am getting the following error:

msxml3.dll error '80072ee6'

The URL does not use a recognized protocol

/feed.asp, line 23

This is the code:

<%
' change the RSSURL variable to the exact URL of the RSS Feed you want to pull
RSSURL = "[URL unfurl="true"]http://www.timeshighereducation.co.uk/rss.asp?navcode=111"[/URL]
Dim objHTTP ' this object is used to call the RSS Feed remotely
Dim RSSURL,RSSFeed ' these variables hold the URL and Content for the RSS Feed
Dim xmlRSSFeed ' this variable hold the XML data in a DOM Object
Dim objItems,objItem, objChild ' these variables are used to temporarily hold data from the various RSS Items
Dim title,description,link '  these are local variables that will hold the data to be displayed
Dim OutputHTML_1,OutputHTML_2,OutputHTML_3 ' these variables will hold the HTML that was converted from the RSS Feed
' this code requests the raw RSS/XML and saves the response as a string <RSSFeed>
Set objHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP")
objHTTP.open "GET",RSSURL,false
objHTTP.send
RSSFeed = objHTTP.responseText
' this code takes the raw RSSFeed and loads it into an XML Object
Set xmlRSSFeed = Server.CreateObject("MSXML2.DomDocument")
xmlRSSFeed.async = false
xmlRSSFeed.LoadXml(RSSFeed)
' this code disposes of the object we called the feed with
Set objHTTP = Nothing
' this is where you determine how to display the content from the RSS Feed
' this code grabs all the "items" in the RSS Feed
Set objItems = xmlRSSFeed.getElementsByTagName("item")
' this code disposes of the XML object that contained the entire feed
Set xmlRSSFeed = Nothing
' loop over all the items in the RSS Feed
For x = 0 to objItems.length - 1
		' this code places the content from the various RSS nodes into local variables
	Set objItem = objItems.item(x)
		For Each objChild in objItem.childNodes
			Select Case LCase(objChild.nodeName)
				Case "title"
					  title = objChild.text
				Case "link"
					  link = objChild.text
				Case "description"
				  description = objChild.text
			End Select
		Next
		' Here are some various display samples.
		OutputHTML_1 = OutputHTML_1 & "<a href=""" & link & """>" & title & "</a><br />" & description & "<br /><br />"
		OutputHTML_2 = OutputHTML_2 & "<a href=""" & link & """>" & title & "</a><br />"
		OutputHTML_3 = OutputHTML_3 & "<a href=""" & link & """>" & title & "</a><hr />"
	Next
%>

and line 23 refers to this:

objHTTP.open "GET",RSSURL,false

Does it mean that this
RSSURL = "

http://www.timeshighereducation.co.uk/rss.asp?

is invalid?

Many thanks

Blueie