<%@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 strBook=Request.form("book") strFromChapter=Request.form("fromChapter") strToChapter=Request.form("toChapter") strSeries=Request.form("series") adOpenStatic = 3 'Cursor Type Best for web sites adLockOptimistic = 3 'Lock type for querry 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 if strSeries <> "" then sqlText = "SELECT dateDelivered, seriesname, title, book, " sqlText = sqlText & "beginChapter, textLink, lessonLink, audioLink, guestSpeaker, guestSpeakerName " sqlText = sqlText & " FROM sermonlist WHERE seriesname = '" & strSeries & "' " sqltext = sqltext & " ORDER BY dateDelivered, book, beginChapter " else sqlText = "SELECT dateDelivered, seriesname, title, book, " sqlText = sqlText & "beginChapter, textLink, lessonLink, audioLink, guestSpeaker, guestSpeakerName " sqlText = sqlText & " FROM sermonlist WHERE book = '" & strbook & "' AND beginChapter BETWEEN " sqltext = sqltext & strFromChapter & " AND " & strToChapter & " ORDER BY dateDelivered, book, beginChapter " end if '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

<% 'Test for an empty Recordset and return the appropriate message If rsTexts.EOF Then Response.Write "

" Response.Write "No Records Found for " & strSeries & strBook & " " & strFromChapter & " - " & strToChapter & "

" Response.Write "

Click here to try a new search.

" Response.End End IF 'Print page title Response.Write "

Sermons and Lessons on " Response.Write strSeries & strBook & " " & strFromChapter & "-" & strToChapter & ":" Response.Write "

" '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 "" 'Response.Write Chr(13) & Chr(10) 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 "

" ' if not(Trim(rsTexts("broadbandlink")) = "") 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