<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'#include file="Include/search.asp"
'archives_text_QandA.asp
dim sDate
dim rsList
dim rsRecent
dim sKeywords, iYear, iSpeakerID, iByYear
dim iRecordCount
dim sErrMsg
dim sAction
sDate = GetToday
on error resume next
Set cnContent = Server.CreateObject("ADODB.Connection")
cnContent.connectiontimeout = c_DBTimeout
err.number = 0
cnContent.open MM_Content_ConnectionString
if err.number <> 0 then response.Redirect c_SQLServerDownPage
'usp_GetEquippingSchedule
Set rsRecent = Server.CreateObject("ADODB.Recordset")
Set rsRecent = GetEquippingSchedule(sDate, cnContent)
%>
Lutheran Hour Ministries - Equipping to Share
