RSS - Whitespace is not allowed at this location.

mark r · May 14, 2008

Trying to create a page like popurls displaying rss feeds from music
sites only im trying with one to start from NME.com and the output
errors with the message "Whitespace is not allowed at this location."

anyone help?

DEMO: http://mngr.co.uk/rss1.asp

Code:
<%@ Language="VBScript" %>
<% Option Explicit %>
<% Response.Charset = "UTF-8" %>
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>ASP 101's MegaTokyo RSS Feed Reader</title>
</head>
<body>

<%
If DateDiff("h", Application("MegaTokyoUpdated"), Now()) >= 2 _
Or Request.QueryString("force") <> "" Then

Dim objXML
Dim objItemList
Dim objItem
Dim strHTML
Set objXML = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
objXML.async = False

objXML.setProperty "ServerHTTPRequest", True
objXML.Load("http://nme.com/rss/news.xml")
'objXML.Load(Server.MapPath("megatokyo.xml"))

If objXML.parseError.errorCode <> 0 Then
Response.Write "<pre>" & vbCrLf
Response.Write "Error: " &
objXML.parseError.reason
Response.Write "Line: " &
objXML.parseError.line & vbCrLf
Response.Write "Text: " _
& Server.HTMLEncode(objXML.parseError.srcText) & vbCrLf
Response.Write "</pre>" & vbCrLf
End If

Set objItemList = objXML.getElementsByTagName("item")
Set objXML = Nothing

For Each objItem In objItemList
' MegaTokyo Feed childNodes: 0=title, 1=link, 2=description
strHTML = strHTML & "" & vbCrLf
strHTML = strHTML & "<a href=""" & objItem.childNodes(1).text &
""">"
strHTML = strHTML & "" & objItem.childNodes(0).text
strHTML = strHTML & "</a> " & vbCrLf
strHTML = strHTML & Replace(objItem.childNodes(2).text, " ",
" ") & vbCrLf
strHTML = strHTML & "" & vbCrLf
Next

Set objItemList = Nothing

Application.Lock
Application("MegaTokyoContent") = strHTML
Application("MegaTokyoUpdated") = Now()
Application.UnLock
End If
%>

<%= Application("MegaTokyoContent") %>


</body>
</html>

Anthony Jones · May 15, 2008

mark r said:
Trying to create a page like popurls displaying rss feeds from music
sites only im trying with one to start from NME.com and the output
errors with the message "Whitespace is not allowed at this location."

anyone help?

DEMO: http://mngr.co.uk/rss1.asp

Code:
<%@ Language="VBScript" %>
<% Option Explicit %>
<% Response.Charset = "UTF-8" %>
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>ASP 101's MegaTokyo RSS Feed Reader</title>
</head>
<body>

<%
If DateDiff("h", Application("MegaTokyoUpdated"), Now()) >= 2 _
Or Request.QueryString("force") <> "" Then

Dim objXML
Dim objItemList
Dim objItem
Dim strHTML
Set objXML = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
objXML.async = False

objXML.setProperty "ServerHTTPRequest", True
objXML.Load("http://nme.com/rss/news.xml")
'objXML.Load(Server.MapPath("megatokyo.xml"))

If objXML.parseError.errorCode <> 0 Then
Response.Write "<pre>" & vbCrLf
Response.Write "Error: " &
objXML.parseError.reason
Response.Write "Line: " &
objXML.parseError.line & vbCrLf
Response.Write "Text: " _
& Server.HTMLEncode(objXML.parseError.srcText) & vbCrLf
Response.Write "</pre>" & vbCrLf
End If

Set objItemList = objXML.getElementsByTagName("item")
Set objXML = Nothing

For Each objItem In objItemList
' MegaTokyo Feed childNodes: 0=title, 1=link, 2=description
strHTML = strHTML & "" & vbCrLf
strHTML = strHTML & "<a href=""" & objItem.childNodes(1).text &
""">"
strHTML = strHTML & "" & objItem.childNodes(0).text
strHTML = strHTML & "</a> " & vbCrLf
strHTML = strHTML & Replace(objItem.childNodes(2).text, " ",
" ") & vbCrLf
strHTML = strHTML & "" & vbCrLf
Next

Set objItemList = Nothing

Application.Lock
Application("MegaTokyoContent") = strHTML
Application("MegaTokyoUpdated") = Now()
Application.UnLock
End If
%>

<%= Application("MegaTokyoContent") %>


</body>
</html>

At a guess I would say the its the Cr Lf between these that is the cause:-

<% Response.Charset = "UTF-8" %>
<?xml version="1.0" encoding="UTF-8"?>

Try it like this:-

<%
Option Explicit
Response.Charset = "UTF-8"
Response.CodePage = 65001
%><?xml version="1.0" encoding="UTF-8"?>

Having the xml declaration directly follow the closing %> without a line
break eliminates unwanted whitespace at the top of the XML output.

Note without setting the codepage any non-ASCII characters will be trashed
in the output.
I'm not sure why you are using a FreeThreadedDOMDocument in the way you are
a standard DOMDocument would suffice.

I would create the whole lot as XML in a FreeThreadDOMDocument and store
that DOM in the application object.

Given a FreeThreadedDOMDocument in a variable oDOM sending a reponse would
simply be:-

Response.CharSet = "UTF-8"
oDOM.Save Response

Note strictly speaking the content type should be set to
application/xhtml+xml but since some browsers don't recognise that type as a
HTML type that may not be an option here.

ASP with XML isn't working :-(	1	Mar 17, 2008
issues with MSXML2.FreeThreadedDOMDocument	4	Mar 23, 2006
PHP RSS Feed Aggregator changing to todays date everytime feed is aggregated	1	Jan 11, 2022
Can someone tell me if this a real tracker? Or is it one designed to show you a different message at certain times, ie. acting like one?	0	Jan 10, 2021
Using ASP to loop thru XML file and generate HTML	4	Nov 30, 2007
RSS Feed selector	0	Jul 16, 2008
CDONTS not working on W2000 Server	12	Nov 15, 2004
reading XML	1	Jul 4, 2006

RSS - Whitespace is not allowed at this location.

mark r

Anthony Jones

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads