Classic ASP rss reader / xml

<%
dim xmlObj, xmlList, XMLitem, keywordz, keywordz2

SUB showFeed(url)
    Set xmlObj = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
'    xmlObj.setTimeouts 5000, 60000, 10000, 10000 
    xmlObj.async = False
    xmlObj.setProperty "ServerHTTPRequest", True
    xmlObj.Load(url)
    If xmlObj.parseError.errorCode <> 0 Then
        Response.Write "Sorry, Server feed is unavailable.<br>"
    End If





Set xmlList = xmlObj.getElementsByTagName("item") 
Set xmlObj = Nothing 

For Each xmlItem In xmlList

 

' Response.Write xmlItem.childNodes(0).text & "<br>" 
' Response.Write xmlItem.childNodes(1).text & "<br>" 
' Response.Write xmlItem.childNodes(2).text & "<br>"
' Response.Write xmlItem.childNodes(3).text & "<br>"
' Response.Write xmlItem.childNodes(4).text & "<br>"
' Response.Write xmlItem.childNodes(8).text & "<br>"



Response.Write "<a href=" & xmlItem.childNodes(11).text & "><img src=" & xmlItem.childNodes(12).text & " alt='" & xmlItem.childNodes(5).text & "' width=100 border=0></a>" & "<br>"
Response.Write "<a href=" & xmlItem.childNodes(11).text & ">" & xmlItem.childNodes(5).text & "</a><br>"
Response.Write "<font color=red>Price</font> $" & xmlItem.childNodes(7).text & "<br><b>Store</b>: " & xmlItem.childNodes(1).text &"<br>"
' Response.Write xmlItem.childNodes(5).text & "<br>"
Response.Write "<b>Keywords:</b> " & xmlItem.childNodes(6).text & "<br>"

' Response.Write "<b>Keywords</b>" & xmlItem.childNodes(10).text & "<br>"
' Response.Write xmlItem.childNodes(9).text & "<br>"
Response.Write "<hr>"
keywordz = xmlItem.childNodes(6).text
keywordz2 = xmlItem.childNodes(5).text
Next 


Set xmlList = Nothing 



    Set xmlList = Nothing
End SUB

%>