<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsTexts__MMColParam rsTexts__MMColParam = "1" If (Request.QueryString("id") <> "") Then rsTexts__MMColParam = Request.QueryString("id") End If %> <% Dim rsTexts Dim rsTexts_numRows Set rsTexts = Server.CreateObject("ADODB.Recordset") rsTexts.ActiveConnection = MM_connTexts_STRING rsTexts.Source = "SELECT * FROM texts WHERE id = " + Replace(rsTexts__MMColParam, "'", "''") + "" rsTexts.CursorType = 0 rsTexts.CursorLocation = 2 rsTexts.LockType = 3 rsTexts.Open() rsTexts_numRows = 0 %> River Hills Community Church--Janesville, WI

	Home Calendars Ministries Resources Contact Us

Sermon
Schedule

Sermon Texts
& Lessons

Newsletters

Other Sites

Sermon and Lesson Archive

You can seach for sermons an lessons by entering information below:

dateDelivered	<%=(rsTexts.Fields.Item("dateDelivered").Value)%>
seriesName	<%=(rsTexts.Fields.Item("seriesName").Value)%>
title	<%=(rsTexts.Fields.Item("title").Value)%>
book	<%=(rsTexts.Fields.Item("book").Value)%>
chapter	<%=(rsTexts.Fields.Item("chapter").Value)%>
textLink	<%=(rsTexts.Fields.Item("textLink").Value)%>
lessonLink	<%=(rsTexts.Fields.Item("lessonLink").Value)%>

Home | Calendars | Ministries | Learning Resources | Contact Us

<% rsTexts.Close() Set rsTexts = Nothing %>