Metal Pillar Molds
<%
rssParser "http://open.api.ebay.com/shopping?callname=FindItemsAdvanced&appid=marksmit-ad04-4aa3-bf5c-b84e8ad1ea00&siteid=0&version=517&QueryKeywords=metal+pillar+mold&CategoryID=28114&MaxEntries=75&ItemType=AllItemTypes&ItemSort=PricePlusShipping&trackingid=5335819858&trackingpartnercode=9&affiliateuserid=sac"
%>
<%
Sub rssParser(rssFile)
Dim objXML, objRoot, objItems, c
c = 0
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.Async = False
objXML.SetProperty "ServerHTTPRequest", True
objXML.ResolveExternals = True
objXML.ValidateOnParse = True
objXML.Load(rssFile)
If (objXML.parseError.errorCode = 0) Then
Set objRoot = objXML.documentElement
If IsObject(objRoot) = False Then
response.Write "
No Root Found in Rss File
"
End If
Set objItems = objRoot.getElementsByTagName("Item")
If IsObject(objItems) = True Then
Dim objItem
For Each objItem in objItems
strTitle = objItem.selectSingleNode("Title").Text
On Error Resume Next
strDesc = objItem.selectSingleNode("GalleryURL").Text
On Error Resume Next
strLink = objItem.selectSingleNode("ViewItemURLForNaturalSearch").Text
On Error Resume Next
strDate = objItem.selectSingleNode("ConvertedCurrentPrice").Text
On Error Resume Next
response.Write("
" & vbnewline)
response.Write("" & vbnewline )
response.Write("" & vbnewline )
response.Write("| Image | " & vbnewline )
response.Write(" Title | " & vbnewline )
response.Write(" Price | " & vbnewline )
response.Write("" & vbnewline )
response.Write("" & vbnewline )
response.Write("| " & vbnewline )
response.Write(" | " & vbnewline )
response.Write(" " & vbnewline )
response.Write("" & strTitle & " " & vbnewline )
response.Write("
" & vbnewline )
response.Write(" | " & vbnewline )
response.Write(" " & vbnewline )
response.Write(" | " & vbnewline )
response.Write(" " & vbnewline )
response.Write(" | " & vbnewline )
response.Write(" " & vbnewline )
response.Write(" | " & vbnewline )
response.Write("
" & vbnewline )
response.Write("
" & vbnewline )
Next
else
response.Write "No Root Found in Rss File
"
exit sub
End If
Set objRoot = Nothing
Set objItems = Nothing
End If
Set objXML = Nothing
end sub
%>
