<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> Kings Church - D2BD iPod
Welcome to the King's Church Newport

Choose How to Listen...

Option one: Listen via Podcasts using iTunes:


Here's how...

click here to subscribe to iTunes and
recieve the lastest messages as they are released


Get iTunes free

for Mac or Windows

To subscribe to the podcast
you will need the lastest free iTunes


Option Two: Scroll down and click the links to listen directly:
<% Dim adoCon 'Holds the Database Connection Object Dim rsSermon 'Holds the recordset for the records in the database Dim strSQL 'Holds the SQL query to query the database Set adoCon = Server.CreateObject("ADODB.Connection") 'Create an ADO connection object adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/db/msgDB.mdb")'Set an active connection to the Connection object using a DSN-less connection Set rsSermon = Server.CreateObject("ADODB.Recordset")'Create an ADO recordset object strSQL = "SELECT * FROM SermonInfo WHERE SermonInfo.ipod=True ORDER BY SermonInfo.Date DESC;"'Initialise the strSQL variable with an SQL statement to query the database rsSermon.Open strSQL, adoCon 'Open the recordset with the SQL query %> <% Do While not rsSermon.EOF %> <% rsSermon.MoveNext Loop %>
.m3u">.mp3"> '<% Response.Write (rsSermon("ServiceTitle")) %>' - <% Response.Write (rsSermon("Pastor")) %> , recorded on <% Response.Write (FormatDateTime(rsSermon("Date"),1))%>.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> Kings Church - D2BD iPod
Welcome to the King's Church Newport

Choose How to Listen...

Option one: Listen via Podcasts using iTunes:


Here's how...

click here to subscribe to iTunes and
recieve the lastest messages as they are released


Get iTunes free

for Mac or Windows

To subscribe to the podcast
you will need the lastest free iTunes


Option Two: Scroll down and click the links to listen directly:
<% Dim adoCon 'Holds the Database Connection Object Dim rsSermon 'Holds the recordset for the records in the database Dim strSQL 'Holds the SQL query to query the database Set adoCon = Server.CreateObject("ADODB.Connection") 'Create an ADO connection object adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/db/msgDB.mdb")'Set an active connection to the Connection object using a DSN-less connection Set rsSermon = Server.CreateObject("ADODB.Recordset")'Create an ADO recordset object strSQL = "SELECT * FROM SermonInfo WHERE SermonInfo.ipod=True ORDER BY SermonInfo.Date DESC;"'Initialise the strSQL variable with an SQL statement to query the database rsSermon.Open strSQL, adoCon 'Open the recordset with the SQL query %> <% Do While not rsSermon.EOF %> <% rsSermon.MoveNext Loop %>
.m3u">.mp3"> '<% Response.Write (rsSermon("ServiceTitle")) %>' - <% Response.Write (rsSermon("Pastor")) %> , recorded on <% Response.Write (FormatDateTime(rsSermon("Date"),1))%>.