Untitled

Imports SqlToolBox
Imports System.Data.SqlClient
Imports System.Configuration

Module Module1

    Sub Main(ByVal sArgs() As String)

        Dim r As RSSFEEDS = New RSSFEEDS()

        Dim SQLdr As SqlDataReader = r.GetAll()

        While SQLdr.Read()
            Dim iRSSID As Integer = SQLdr.GetInt32(SQLdr.GetOrdinal("RSSID"))
            Dim sURL As String = SQLdr.GetString(SQLdr.GetOrdinal("Url"))
            Dim sName As String = SQLdr.GetString(SQLdr.GetOrdinal("Name"))

            Console.WriteLine("RSSID: {0}", iRSSID)
            Console.WriteLine("  URL: {0}", sURL)
            Console.WriteLine(" Name: {0}", sName)
        End While

        Console.ReadLine()
    End Sub
End Module