' MiniReportCuteAnimals
' 
' Reads the unoffical RSS feed of Astronomy Picture of the Day
' Scrapes the link and img src
' Shoehorns the img into the image spot 

'

Sub MiniReportCuteAnimals

 'code borrowed from http://www.oreilly.com/pub/h/466

  Dim MSXML
  Dim XMLURL
  Dim Loaded
  Dim strDescription
  Dim strLink
  Dim strImgSrc

    
  ' Create an instance of the MSXML Parser
  Set MSXML = CreateObject("MSXML.DOMDocument")
  
  ' Set MSXML Options
  MSXML.Async = False
  MSXML.preserveWhiteSpace = False
  MSXML.validateOnParse = True
  MSXML.resolveExternals = False
 
  ' Form the request URL
  XMLURL = "http://www.acme.com/jef/apod/rss.xml"
  
  ' Issue the request and wait for the response
  Loaded = MSXML.Load(XMLURL)

  ' If the request is loaded successfully, grab the first item in the feed
  If (Loaded) Then
    strDescription = MSXML.SelectSingleNode("/rss/channel/item[0]/description").text
    strLink        = MSXML.SelectSingleNode("/rss/channel/item[0]/link").text

   Dim objRegExp
   Dim objMatches
   Dim objMatch
   Dim objGroup

   Set objRegExp = New Regexp
   objRegExp.IgnoreCase = True
   objRegExp.Global = True
   objRegExp.Pattern = "<IMG SRC=""(.+)"""
   Set objMatches = objRegExp.Execute(strDescription)


   For each objMatch in objMatches
     For each objGroup in objMatch.SubMatches
 	strImgSrc = objGroup
     Next
   Next

  End If



	SummaryBegin FB_PICTURE_OF_THE_DAY, "width:204px"
	%>
		<tr class="r-a">
			<td class="picture" colspan="2">
				<a href="<% =strLink %>">
				<img 
				     src="<% =strImgSrc %>" 
				     alt="Astronomy Picture of the Day"
				     width="196" height="100%"
				     border="0" />
				</a<
			</td>
		</tr>
	<%
	SummaryEnd

End Sub