<%
'Dim intNoOfRecords
Dim strSQL
Dim objRS
' Open the table and display the records in a table.
Set objRS = Server.CreateObject("ADODB.Recordset")
'objRS.Open "tblTitles", strConnect, adOpenStatic, adLockReadOnly, adCmdTable does not work
' Organize the list so the latest stuff is up at the top and filter out only the weekly sermons stuff
strSQL = "SELECT * FROM tblArticles WHERE ArticleAreaId=5" ' ORDER BY ArticleFileName"
'objRS.Open "tblTitles", strConnect, adOpenKeyset, adLockPessimistic, adCmdTable
objRS.Open strSQL, strConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
'intNoOfRecords = objRS.RecordCount
While Not objRS.EOF
' loop over records and show them
%>