<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> River Hills Community Church--Janesville, WI <% Dim objRS, objConn, sqlText, strBook, strFromChapter, strToChapter, adOpenStatic, strGuestSpeaker, strGuestSpeakerName Dim adLockOptimistic, adUseClient, adCmdText, cellcolor, MMDDYYYY adOpenStatic = 3 'Cursor Type Best for web sites adLockOptimistic = 3 'Lock type for query only adUseClient = 3 'Must be used with adOpenStatic Cursor adCmdText = 1 'Option telling ADO that an SQL statement is being used to create the recordset 'Build SQL statement for use in creating recordset sqlText = "SELECT dateDelivered, seriesname, title, book, beginChapter, textLink, lessonLink, audioLink, guestSpeaker, guestSpeakerName FROM sermonlist " sqlText = sqltext & "WHERE dateDelivered > NOW()-150 " sqltext = sqltext & "ORDER BY dateDelivered DESC" 'Create the recordset object and open the recordset set objConn = Server.CreateObject("ADODB.Connection") set rsTexts = Server.CreateObject("ADODB.Recordset") rsTexts.CursorLocation = adUseClient objConn.Open strConnect rsTexts.Open sqlText, objConn, adOpenStatic, adLockOptimistic, adCmdText %>
 
  Home Calendars Ministries Resources Contact Us  

Sermon
 Schedule

Audio Sermons

Video Sermons

Sermon Texts
 & Lessons

Library Book Listing

Newsletters

Other Sites
Click here for membership class sermon transcripts

Resources to Grow By

Seeing and delighting in the glory of God is the purpose of human existence. God created us to know Him. The sermons we hear each Sunday give us insight into God's attributes and what our appropriate response to Him should be. This month's sermon titles are listed below.

Would you like to view what the River Hills library has in it? Or are you are looking for a Cassette Tape listing of the sermons Click Here

Other materials available in this section of the site--such as texts and lessons from past sermons, copies of past newsletters, and links to other helpful sites--are linked on the left side of this page.

Listen Now to River Hills Sermons

<% 'Create the Results table content Count = 0 While NOT rsTexts.EOF IF Count = 0 THEN cellcolor="#CCCCCC" ELSE cellcolor="#FFFFCC" END IF if rsTexts("guestSpeaker") then strGuestSpeakerName = "(Guest Speaker : " & rsTexts("guestSpeakerName") & ")" strGuestSpeaker = "&GuestSpeaker=1" else strGuestSpeakerName = "" strGuestSpeaker = "&GuestSpeaker=0" end if Response.Write ""& Chr(13) & Chr(10) Response.Write "" & Chr(13) & Chr(10) Response.Write "" end if Response.Write "" Response.Write "" & Chr(13) & Chr(10) Response.Write ""& Chr(13) & Chr(10) count = count + 1 IF count = 2 THEN count = 0 rsTexts.MoveNext Wend Response.Write "
Latest Sermons
Date
Topic
Audio Sermon
Scripture

" & rsTexts("dateDelivered") & "

" & rsTexts("seriesname") & " " & "-" & " " & rsTexts("title") & " " & strGuestSpeakerName & " Read" if not(Trim(rsTexts("lessonlink")) = "") Then Response.Write " Lesson

" if not(Trim(rsTexts("audiolink")) = "") Then Response.Write "" end if Response.Write "

" & rsTexts("book") & " " & rsTexts("beginChapter") & "

" 'Close the recordset and the connection rsTexts.close set rsTexts=nothing objConn.Close set objConn=nothing %>

 

 

 

  
  Home | Calendars | Ministries | Learning Resources | Contact Us