As we make these messages available freely, to bless and encourage you, it really helps us to know if you are watching, so please consider sending us a quick comment via our feedback form if you enjoy these programmes!
You may also donate here if you wish
You may also donate here if you wish
<%
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 SermonInfo.Pastor, SermonInfo.ServiceTitle, SermonInfo.MorningOrEvening, SermonInfo.Date, SermonInfo.ImageLink FROM SermonInfo WHERE SermonInfo.vid=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
%>
<%
rsSermon.Close
Set rsSermon = Nothing
Set adoCon = Nothing
%>
| Please scroll down to find a recent message you would like to watch | |||
<% Set fs=Server.CreateObject("Scripting.FileSystemObject")
If (fs.FileExists(Server.MapPath("/VideoPodcastMessages/" & rsSermon("ImageLink")& ".wmv")))=true Then %>
.wmv">
<% End If
set fs=nothing %> |
<% Response.Write (rsSermon("Pastor")) %> '<% Response.Write (rsSermon("ServiceTitle")) %>' <% Response.Write (rsSermon("MorningOrEvening")) %> <% Response.Write (FormatDateTime(rsSermon("Date"),1)) %> |
<% rsSermon.MoveNext
If NOT rsSermon.EOF then
%>
<% Set fs=Server.CreateObject("Scripting.FileSystemObject")
If (fs.FileExists(Server.MapPath("/VideoPodcastMessages/" & rsSermon("ImageLink")& ".wmv")))=true Then %>
.wmv">
<% End If
set fs=nothing %> |
<% Response.Write (rsSermon("Pastor")) %> '<% Response.Write (rsSermon("ServiceTitle")) %>' <% Response.Write (rsSermon("MorningOrEvening")) %> <% Response.Write (FormatDateTime(rsSermon("Date"),1)) %> |
<% rsSermon.MoveNext
End If
%>
| The King's Church 69 Lower Dock Street Newport Wales U.K. NP20 1EH Tel:+44(0)1633 244453 | |||