<% Dim dbconn
Dim rsSermons
set dbConn=Server.CreateObject("ADODB.Connection")
dbconn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/Anglican Parish/Database/Anglican Parish.mdb") & ";"
dbConn.Open
set rsSermons=server.CreateObject("ADODB.recordset")
SQLSermons = "SELECT * FROM tblSermons WHERE Sermon_Date;"
rsSermons.open SQLSermons, dbconn
if rsSermons.EOF then
else
DO WHILE NOT rsSermons.EOF
%>
|
<% strSermon = rsSermons("Position_Title")%>
<% strSermonPDF = "../PDF/"& strSermon &".pdf" %>
<% Response.Write rsSermons("Sermon_Name")%>
|
<% Response.Write rsSermons("Sermon_Date") %> |
|
<%
rsSermons.MoveNext
Loop
End if
%>
<%
rsSermons.close
%>
