" & vbCrLf
End If
Set channelinfolist = objXML.getElementsByTagName("channel")
set channelinfo= channelinfolist.item(0)
for each child in channelinfo.childNodes
Select case lcase(child.nodeName)
case "title"
channeltitle = child.text
case "link"
channellink = child.text
case "description"
channeldescription = child.text
case "copyright"
channelcopyright = child.text
case "lastBuildDate"
channeldate = child.text
End Select
next
strHTML=strHTML&"
Industry News
"
strHTML=strHTML&"
" & channeltitle
strHTML=strHTML&""
Set objItemList = objXML.getElementsByTagName("item")
Set objXML = Nothing
For i = 0 To RSSItemsCount
Set RSSItem = objItemList.Item(i)
for each child in RSSItem.childNodes
Select case lcase(child.nodeName)
case "title"
RSStitle = child.text
case "link"
RSSlink = child.text
case "description"
RSSdescription = child.text
End Select
next
strHTML = strHTML & "
