efet
05-09-2007, 05:31 PM
This is my first post here and I am embarrassed to ask something on my first post but I could not find a way to make this work. I want to show weather degrees on my website receiving information from yahoo weather services. And I have codes below for this. The problem is these codes get all the information from the website but I need only one very very little portion of it; today’s weather degrees.
<%
Dim objXML, objRoot, objItems
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.Async = False
objXML.SetProperty "ServerHTTPRequest", True
objXML.ResolveExternals = True
objXML.ValidateOnParse = True
objXML.Load("http://weather.yahooapis.com/forecastrss?p=94089")
If (objXML.parseError.errorCode = 0) Then
Set objRoot = objXML.documentElement
If IsObject(objRoot) = False Then
response.write "Bağlantı Hatası!"
End If
Set objItems = objRoot.getElementsByTagName("item")
If IsObject(objItems) = True Then
Dim objItem
For Each objItem in objItems
response.write objItem.selectSingleNode("title").Text & "<b><a href='" & objItem.selectSingleNode("link").Text & "'>" & objItem.selectSingleNode("description").Text & "</a></b><br /><br />" & vblf
Next
else
response.write "Bağlantı Hatası!"
End If
Set objItems = Nothing
Set objRoot = Nothing
End If
Set objXML = Nothing
%>
<%
Dim objXML, objRoot, objItems
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.Async = False
objXML.SetProperty "ServerHTTPRequest", True
objXML.ResolveExternals = True
objXML.ValidateOnParse = True
objXML.Load("http://weather.yahooapis.com/forecastrss?p=94089")
If (objXML.parseError.errorCode = 0) Then
Set objRoot = objXML.documentElement
If IsObject(objRoot) = False Then
response.write "Bağlantı Hatası!"
End If
Set objItems = objRoot.getElementsByTagName("item")
If IsObject(objItems) = True Then
Dim objItem
For Each objItem in objItems
response.write objItem.selectSingleNode("title").Text & "<b><a href='" & objItem.selectSingleNode("link").Text & "'>" & objItem.selectSingleNode("description").Text & "</a></b><br /><br />" & vblf
Next
else
response.write "Bağlantı Hatası!"
End If
Set objItems = Nothing
Set objRoot = Nothing
End If
Set objXML = Nothing
%>