[VB.NET Script] Bible Verse of the Day

[ArbWare]

I took the code from the "word for the day" script we discussed yesterday and found a site that does Bible Verse of the day...

It's from an ESV (english standard version)

VerseOfTheDay.vb

Imports System.IO
Imports System.Xml
Sub Main(parm as object)
   Dim m_xmld As XmlDocument
   Dim m_node As XmlNode
   Dim CHverse as xmlNode
   dim tverse as xmlNode
 
   m_xmld = New XmlDocument
   m_xmld.Load("http://www.gnpcb.org/esv/share/rss2.0/daily/")
   CHverse = m_xmld.SelectSingleNode("rss/channel/item/title")
   tverse = m_xmld.SelectSingleNode("rss/channel/item/description")
 
 
   hs.speak ("The Verse for the day is from " & CHverse.InnerText &". The Verse is. . " & tverse.InnerText)
 
 
End Sub

Note: You will need to put -
ScriptingReferences=System.XML;System.XML.dll
in your Settings.ini file if it isn't there already.

Nothing special... but thought i might save someone some legwork if i shared.

Andrew

[lpitman]

Move to disscusion thread.