issues with MSXML2.FreeThre adedDOMDocument

[s_m_b]

Using w2k advanced server (test system is standard server)

"Set objXML = Server.CreateOb ject("MSXML2.Fr eeThreadedDOMDo cument")
objXML.async = False
objXML.setPrope rty "ServerHTTPRequ est", True
objXML.Load
("http://news.bbc.co.uk/rss/newsonline_uk_e dition/front_page/rss091.xml")
If objXML.parseErr or.errorCode <> 0 Then
'Response.Write "<pre>" & vbCrLf
Response.Write ("<strong>Error :</strong> " &
objXML.parseErr or.reason )
Select Case objXML.parseErr or.errorCode
Case 0
strResult = "Valid: " & strFileName & vbCr
Case Else
strResult = vbCrLf & "ERROR! Failed to validate " &
vbCrLf & objXML.parseErr or.reason & vbCr & "Error code: " &
objXML.parseErr or.errorCode & ", Line: " & objXML.parseErr or.line & ",
Character: " & objXML.parseErr or.linepos & ", Source: " & Chr(34) &
objXML.parseErr or.srcText & Chr(34) & " - " & Now & vbCrLf
End Select
Response.Write ("<strong>Line: </strong> " & objXML.parseErr or.line
& vbCrLf)
Response.Write ("<strong>Text: </strong> " & strResult)
Server.HTMLEnco de(objXML.parse Error.srcText) & vbCrLf
'Response.Write "</pre>" & vbCrLf
End If

Set objItemList = objXML.getEleme ntsByTagName("i tem")
Set objXML = Nothing
intcount = 0
For Each objItem In objItemList
intcount = intcount+1
' childNodes: 0=title, 2=link, 1=description
Response.Write ("<p>&raquo;&nb sp;" & vbLf)
Response.Write ("<a href=""" & objItem.childNo des(2).text & """
target = ""bbcnews"" >" & vbLf)
Response.Write (objItem.childN odes(0).text & "</a><br />&nbsp;
&nbsp;&nbsp; " & vbLf)
response.write ("<span style=""font-style:italic""> " &
objItem.childNo des(1).text & "</span>" & vbLf)
Response.Write ("</p>" & vbCrLf)
if intcount > 1 then exit for
Next"

Is there any way to get the raw feed from the XML, no matter what the
error comes back as. I'm currently getting 'invalid response' with an
error code of :-2147012744, which I can't find, but understand to be a
nonespecific HTTP error.

[Bob Barrows [MVP]]

s_m_b wrote:

Using w2k advanced server (test system is standard server)

"Set objXML = Server.CreateOb ject("MSXML2.Fr eeThreadedDOMDo cument") 1. Why the initial quote (before Set)?
2. Unlikely to have anything to do with your problem, but why are you using
the bulky Free-threaded object? Are you planning to store it in Application
or Session? If not, switch to the normal DomDocument object
Set objXML = Server.CreateOb ject("MSXML2.DO MDocument")
objXML.async = False
objXML.setPrope rty "ServerHTTPRequ est", True
objXML.Load
(http://news.bbc.co.uk/rss/newsonline...age/rss091.xml) <snip>
Is there any way to get the raw feed from the XML, no matter what the
error comes back as. I'm currently getting 'invalid response' with an
error code of :-2147012744, which I can't find, but understand to be a
nonespecific HTTP error.

I don't understand. Is this error contained in the parseError object?
I think you should be using ServerXMLHTTP for this task, but I'm not sure
having never attempted it.

Bob Barrows
--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.

[s_m_b]

"Bob Barrows [MVP]" <re******@NOyah oo.SPAMcom> wrote in
news:#C******** ******@TK2MSFTN GP10.phx.gbl:

s_m_b wrote:

Using w2k advanced server (test system is standard server)

"Set objXML = Server.CreateOb ject("MSXML2.Fr eeThreadedDOMDo cument") 1. Why the initial quote (before Set)?

Oh, ignore that - it was to highlight the code snippet, and I should have
added a line after (!)
2. Unlikely to have anything to do with your problem, but why are you
using the bulky Free-threaded object? Are you planning to store it in
Application or Session? If not, switch to the normal DomDocument
object Set objXML = Server.CreateOb ject("MSXML2.DO MDocument")
Simply because I've searched high and low for an easy way to get RSS XML
feeds parsed into my pages, and that's the only one I found that actually
worked.

objXML.async = False
objXML.setPrope rty "ServerHTTPRequ est", True
objXML.Load
(http://news.bbc.co.uk/rss/newsonline...age/rss091.xml
)

<snip>

Is there any way to get the raw feed from the XML, no matter what the
error comes back as. I'm currently getting 'invalid response' with an
error code of :-2147012744, which I can't find, but understand to be
a nonespecific HTTP error.

I don't understand. Is this error contained in the parseError object?
I think you should be using ServerXMLHTTP for this task, but I'm not
sure having never attempted it.

Yes, this is straight from parseError.
""""""""""
Error: opening (board=1) The server returned an invalid or unrecognized
response
Line No.: 0
Character: 0
File Position: 0
Source Text:
Error Code:-2147012744
""""""""""" ""
Is the result from the code on one server, and a perfect output of the
actual feed on the other. The solve I used for the now-working one was to
switch to the MSXML2.DOMDocum ent.4.0 object
I thought I was using ServerXMLHTTP.. .. I'd better do some more reading
and sort that bit!
Bob Barrows

[Anthony Jones]

"s_m_b" <sm********@hot mail.com> wrote in message
news:Xn******** *************** ***********@207 .46.248.16...

Using w2k advanced server (test system is standard server)

"Set objXML = Server.CreateOb ject("MSXML2.Fr eeThreadedDOMDo cument")
objXML.async = False
objXML.setPrope rty "ServerHTTPRequ est", True
objXML.Load
("http://news.bbc.co.uk/rss/newsonline_uk_e dition/front_page/rss091.xml")
If objXML.parseErr or.errorCode <> 0 Then
'Response.Write "<pre>" & vbCrLf
Response.Write ("<strong>Error :</strong> " &
objXML.parseErr or.reason )
Select Case objXML.parseErr or.errorCode
Case 0
strResult = "Valid: " & strFileName & vbCr
Case Else
strResult = vbCrLf & "ERROR! Failed to validate " &
vbCrLf & objXML.parseErr or.reason & vbCr & "Error code: " &
objXML.parseErr or.errorCode & ", Line: " & objXML.parseErr or.line & ",
Character: " & objXML.parseErr or.linepos & ", Source: " & Chr(34) &
objXML.parseErr or.srcText & Chr(34) & " - " & Now & vbCrLf
End Select
Response.Write ("<strong>Line: </strong> " & objXML.parseErr or.line
& vbCrLf)
Response.Write ("<strong>Text: </strong> " & strResult)
Server.HTMLEnco de(objXML.parse Error.srcText) & vbCrLf
'Response.Write "</pre>" & vbCrLf
End If

Set objItemList = objXML.getEleme ntsByTagName("i tem")
Set objXML = Nothing
intcount = 0
For Each objItem In objItemList
intcount = intcount+1
' childNodes: 0=title, 2=link, 1=description
Response.Write ("<p>&raquo;&nb sp;" & vbLf)
Response.Write ("<a href=""" & objItem.childNo des(2).text & """
target = ""bbcnews"" >" & vbLf)
Response.Write (objItem.childN odes(0).text & "</a><br />&nbsp;
&nbsp;&nbsp; " & vbLf)
response.write ("<span style=""font-style:italic""> " &
objItem.childNo des(1).text & "</span>" & vbLf)
Response.Write ("</p>" & vbCrLf)
if intcount > 1 then exit for
Next"

Is there any way to get the raw feed from the XML, no matter what the
error comes back as. I'm currently getting 'invalid response' with an
error code of :-2147012744, which I can't find, but understand to be a
nonespecific HTTP error.

-2147012744 This is better viewed as hex:- 80072F78

The top bit tells you it's an error code (helpful huh?)
The 7 tells you the error is a Windows API error.

2F78 is the windows API error number
converting back to Decimal is:- 12152

This turns out to be:-

ERROR_WINHTTP_I NVALID_SERVER_R ESPONSE
12152
The server response could not be parsed.

IOW, there was a successful connection but the headers (if any) returned by
the server failed to parse correctly.

Is there a proxy server that web browsers normally use where you are?

[s_m_b]

"Anthony Jones" <An*@yadayadaya da.com> wrote in
news:#J******** ******@TK2MSFTN GP14.phx.gbl:

"s_m_b" <sm********@hot mail.com> wrote in message
news:Xn******** *************** ***********@207 .46.248.16...

Using w2k advanced server (test system is standard server)

"Set objXML = Server.CreateOb ject("MSXML2.Fr eeThreadedDOMDo cument")
objXML.async = False
objXML.setPrope rty "ServerHTTPRequ est", True
objXML.Load
("http://news.bbc.co.uk/rss/newsonline_uk_e dition/front_page/rss091.xm
l") If objXML.parseErr or.errorCode <> 0 Then
'Response.Write "<pre>" & vbCrLf
Response.Write ("<strong>Error :</strong> " &
objXML.parseErr or.reason )
Select Case objXML.parseErr or.errorCode
Case 0
strResult = "Valid: " & strFileName & vbCr
Case Else
strResult = vbCrLf & "ERROR! Failed to validate " &
vbCrLf & objXML.parseErr or.reason & vbCr & "Error code: " &
objXML.parseErr or.errorCode & ", Line: " & objXML.parseErr or.line &
", Character: " & objXML.parseErr or.linepos & ", Source: " &
Chr(34) & objXML.parseErr or.srcText & Chr(34) & " - " & Now & vbCrLf
End Select
Response.Write ("<strong>Line: </strong> " & objXML.parseErr or.line
& vbCrLf)
Response.Write ("<strong>Text: </strong> " & strResult)
Server.HTMLEnco de(objXML.parse Error.srcText) & vbCrLf
'Response.Write "</pre>" & vbCrLf
End If

Set objItemList = objXML.getEleme ntsByTagName("i tem")
Set objXML = Nothing
intcount = 0
For Each objItem In objItemList
intcount = intcount+1
' childNodes: 0=title, 2=link, 1=description
Response.Write ("<p>&raquo;&nb sp;" & vbLf)
Response.Write ("<a href=""" & objItem.childNo des(2).text & """
target = ""bbcnews"" >" & vbLf)
Response.Write (objItem.childN odes(0).text & "</a><br />&nbsp;
&nbsp;&nbsp; " & vbLf)
response.write ("<span style=""font-style:italic""> " &
objItem.childNo des(1).text & "</span>" & vbLf)
Response.Write ("</p>" & vbCrLf)
if intcount > 1 then exit for
Next"

Is there any way to get the raw feed from the XML, no matter what the
error comes back as. I'm currently getting 'invalid response' with an
error code of :-2147012744, which I can't find, but understand to be
a nonespecific HTTP error.

-2147012744 This is better viewed as hex:- 80072F78

The top bit tells you it's an error code (helpful huh?)
The 7 tells you the error is a Windows API error.

2F78 is the windows API error number
converting back to Decimal is:- 12152

This turns out to be:-

ERROR_WINHTTP_I NVALID_SERVER_R ESPONSE
12152
The server response could not be parsed.

IOW, there was a successful connection but the headers (if any)
returned by the server failed to parse correctly.

Is there a proxy server that web browsers normally use where you are?

Ah. That's interesting.
We have a proxy, but I've used proxycfg to tell the server to bypass it for
internal hosts/addresses - the feed that's giving me grief is actually on
the same server.

The test server I mentioned works fine.

The example feed above (BBC) works perfectly.

This is kind of intriguing, since I tried to use my RSS reader (feeddemon)
to test out the local feed, and it can't connect either. However, I can
view the XML via my browser.