<%
extURL = "http://www.seo1.net/rss.php"
Set xmlDoc = createObject("Msxml.DOMDocument" )
xmlDoc.async = false
xmlDoc.setProperty "ServerHTTPRequest" , true
xmlDoc.load(extURL)
If (xmlDoc.parseError.errorCode <> 0) Then
Response.Write xmlDoc.parseError.reason
Else
Set channelNodes = xmlDoc.selectNodes("//item/*" )
a= "1"
For Each entry in channelNodes
If entry.tagName = "description" Then
response.write entry.text & "<br>"
End If
If entry.tagName = "title" Then
response.write entry.text & "<br>"
End If
If entry.tagName = "pubDate" Then
response.write entry.text & "<br>"
End If
If entry.tagName = "link" Then
response.write entry.text & "<br>"
End If
Next
End If
%>