%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim sDate dim sTitle dim cnContent dim rsArticle on error resume next sDate = GetToday Set cnContent = Server.CreateObject("ADODB.Connection") cnContent.open MM_Content_ConnectionString if err.number <> 0 then response.Redirect c_SQLServerDownPage Set rsArticle = Server.CreateObject("ADODB.Recordset") Set rsArticle = GetSermonsArchives(sDate, cnContent) %>