%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
City = Request.QueryString("City")
If City = "" then City = "San+Diego"
VCity = Replace(City,"+"," ")
%>
<%=VCity%> News
<%
NLink = "http://news.search.yahoo.com/rss?ei=UTF-8&n=10&va="&City&"&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&fl=1&vl=lang_en&fr=news-us-ss"
NLink = Replace(NLink," ","+")
NLink = Replace(NLink," ","+")
Dim objXMLCHART584, objRootCHART584, objresponse2CHART58s4, c4
c4 = 0
Set objXMLCHART584 = Server.CreateObject("Microsoft.XMLDOM")
objXMLCHART584.Async = False
objXMLCHART584.SetProperty "ServerHTTPRequest", True
objXMLCHART584.ResolveExternals = True
objXMLCHART584.ValidateOnParse = True
objXMLCHART584.Load(NLink)
If (objXMLCHART584.parseError.errorCode = 0) Then
Set objRootCHART584 = objXMLCHART584.documentElement
If IsObject(objRootCHART584) = False Then
response.Write "No Root Found in Rss File
"
End If
Set objresponse2CHART58s4 = objRootCHART584.getElementsByTagName("item")
If IsObject(objresponse2CHART58s4) = True Then
Dim objresponse2CHART584
For Each objresponse2CHART584 in objresponse2CHART58s4
strTitle = objresponse2CHART584.selectSingleNode("title").Text
On Error Resume Next
strDesc = objresponse2CHART584.selectSingleNode("description").Text
On Error Resume Next
strDate = objresponse2CHART584.selectSingleNode("pubDate").Text
On Error Resume Next
NewsLink = objresponse2CHART584.selectSingleNode("link").Text
On Error Resume Next
j = J+1
if j < 3 then
response.Write("" & StrTitle & "
")
response.Write("" & StrDesc & "
")
End If
Next
else
response.Write "No Root Found in Rss File
"
End If
Set objRootCHART584 = Nothing
Set objresponse2CHART58s4 = Nothing
End If
Set objXMLCHART584 = Nothing
%>