handling xml errors

grobar · 09-04-2006, 09:39 AM

I use the following code with the yahoo search api:

Code:

<%@ Language=VBScript %>
<%


Dim mysearch, mypage, pageinc, xml, objNodeList, objNode, objNode2

mysearch=Left(Request.QueryString("q"),256)
mypage = Request.QueryString("p")
if mypage=0 then mypage = 1

%>
<html>
<head>
<title>Yahoo! Web Search API In ASP</title>
</head>
<body>
<form method="GET" action="websearch.asp">
<b>Yahoo! Web Search:</b><br>
<input type="text" name="q" maxlength=256 size=40 value='<%=mysearch%>' size=15><input type="submit" value="Search!"></form><br>
<% if mysearch<>"" then

Dim Url
Url = "http://api.search.yahoo.com/WebSearchService/V1/webSearch?appid=someappid&query=" & Server.URLEncode(mysearch) & "&results=50&start=" & mypage

Set XML = Server.CreateObject("msxml2.DOMDocument.3.0")
XML.async = false
XML.setProperty "ServerHTTPRequest", True
XML.validateOnParse = false
XML.preserveWhiteSpace = false

If Not XML.Load(Url) Then

Response.write "<P>ERROR<br>code: " & _
XML.parseError.errorCode & _
"<br>Linea/Col: " & _
XML.parseError.line & "/" & _
XML.parseError.linepos & "</P><br /><p>" & _
XML.parseError.srcText & "</P>"
Else

Dim rTitle, rSummary, rUrl, rClickUrl, rMimeType, rModDate, rCache

pageinc=1

Set objNodeList = XML.getElementsByTagName("Result")
For Each objNode In objNodeList
For Each objNode2 In objNode.childNodes

Select Case objNode2.nodeName
	Case "Title"
		rTitle = objNode2.text
	Case "Summary"
		rSummary = objNode2.text
	Case "Url"
		rUrl = objNode2.text
	Case "ClickUrl"
		rClickUrl = objNode2.text
	Case "MimeType"
		rMimeType = objNode2.text
	Case "ModificationDate"
		rModDate = objNode2.text
	Case "Cache"
		rCache = objNode2.text
	End Select
Next

	' rURL can contain more than one URL seperated by spaces
	if InStr(rURL," ")>0 then rURL = Left(rURL,InStr(rURL," ")-1)
	response.write("<table border=0><tr><td><a href='" & rClickUrl & "'>" & rTitle & "</a><br>" & rSummary & "<br><font color='gray'>Date: " & DateAdd("s", rModDate, "01/01/1970 00:00:00") & " | <a style='color: gray;' href='" & rCache & "'>Cache</a> | MimeType: " & rMimeType & "</font></td></tr></table><br>")
	rTitle=""
	rSummary=""
	rUrl=""
	rClickUrl=""
	rMimeType=""
	rModDate=""
	rCache=""

    pageinc=pageinc+1
Next

set objNodeList = Nothing

end if

set xml = nothing


  if mypage>1 then
	response.write("<a href=?q=" & Server.URLEncode(mysearch) & "&p=" & cstr(mypage-50))
	response.write("><b><<< Previous Page</b></a> | ")
  end if


  if pageinc=>16 then
	response.write("<a href=?q=" & Server.URLEncode(mysearch) & "&p=" & cstr(mypage+50))
	response.write("><b>Next Page >>></b></a>")
  end if
%>
<br>powered by Yahoo! Search
<% end if %>
</body>
</html>

I am getting an error, presumable because of an ampersand with whitespace that is in one of the results, see specific error below: (notice the ampersand in title?_)

ERROR
code: -1072896749
Linea/Col: 51/99
txt: How to download CBC's technology show Quirks & Quarks to your iPod.http://www.cbc.ca/podcasting/http://...66800text/html

so, how can I handle this? (i dont really even need the title - but if i did, is there a way to ahndle it? is there a way not to return the title at all?

digiweb · 09-04-2006, 10:30 AM

I'm confused

a - is this code websearch.asp?
b - where does it retrieve the value of mysearch?

grobar · 09-04-2006, 10:41 AM

Quote:

Originally Posted by CarolineBogart

I'm confused

a - is this code websearch.asp?
b - where does it retrieve the value of mysearch?

A) - yes, it is websearch.asp
B) - <input type="text" name="q" maxlength=256 size=40 value='<%=mysearch%>' (form on this page that submits to itself)

so the input that give this error is "links:halifax.ca"

- this is a yahoo search api thing, and there is one line in the results -

"How to download CBC's technology show Quirks & Quarks to your iPod.http://www.cbc.ca/podcasting/http://...66800text/html"

im assuming that the xml cant handle the ampersand with the whitespaces. is there a way to handle this?

thanks for looking