<%@LANGUAGE="VBSCRIPT"%> <% Dim TxtBookSearch Dim RecCount TxtBookSearch = " " RecCount = 0 set RsCategory = Server.CreateObject("ADODB.Recordset") RsCategory.ActiveConnection = cnCEPVideo Select Case Request("RSelect") Case 2 If (Request.Form("txtSearch") <> "") then TxtBookSearch = Request.Form("txtSearch") If (Request.Form("SearchCategory") <> 0) Then RsCategory.Source = "SELECT CategoryDesc, * FROM VideoLibraryCatalog INNER JOIN CATEGORY ON VideoLibraryCatalog.CategoryID = CATEGORY.Category WHERE CategoryID = " & Request("SearchCategory") & " AND Title Like '%" & Replace(TxtBookSearch, "'", "''") + "%'" Else RsCategory.Source = "SELECT CategoryDesc, * FROM VideoLibraryCatalog INNER JOIN CATEGORY ON VideoLibraryCatalog.CategoryID = CATEGORY.Category WHERE Title Like '%" + Replace(TxtBookSearch, "'", "''") + "%'" End If Else RsCategory.Source = "SELECT * FROM VideoLibraryCatalog Where CategoryID = 0" End If Case 3 If (Request.Form("txtSearch") <> "") then TxtBookSearch = Request.Form("txtSearch") If (Request.Form("SearchCategory") <> 0) Then RsCategory.Source = "SELECT CategoryDesc, * FROM VideoLibraryCatalog INNER JOIN CATEGORY ON VideoLibraryCatalog.CategoryID = CATEGORY.Category WHERE CategoryID = " & Request("SearchCategory") & " AND Author Like '%" & Replace(TxtBookSearch, "'", "''") + "%'" Else RsCategory.Source = "SELECT CategoryDesc, * FROM VideoLibraryCatalog INNER JOIN CATEGORY ON VideoLibraryCatalog.CategoryID = CATEGORY.Category WHERE Author Like '%" + Replace(TxtBookSearch, "'", "''") + "%'" End If Else RsCategory.Source = "SELECT * FROM VideoLibraryCatalog Where CategoryID = 0" End If Case 4 if (Request.Form("txtSearch") <> "") then TxtBookSearch = Request.Form("txtSearch") if (Request.Form("SearchCategory") <> 0) Then RsCategory.Source = "SELECT CategoryDesc, * FROM VideoLibraryCatalog INNER JOIN CATEGORY ON VideoLibraryCatalog.CategoryID = CATEGORY.Category WHERE CategoryID = " & Request("SearchCategory") & " AND ProducedBy Like '&" & Replace(TxtBookSearch, "'", "''") + "%'" else RsCategory.Source = "SELECT CategoryDesc, * FROM VideoLibraryCatalog INNER JOIN CATEGORY ON VideoLibraryCatalog.CategoryID = CATEGORY.Category WHERE ProducedBy Like '&" + Replace(TxtBookSearch, "'", "''") + "%'" end if else RsCategory.Source = "SELECT * FROM VideoLibraryCatalog Where CategoryID = 0" end if Case 5 if (Request.Form("txtSearch") <> "") then TxtBookSearch = Request.Form("txtSearch") If (Request.Form("SearchCategory") <> 0) Then RsCategory.Source = "SELECT CategoryDesc, * FROM VideoLibraryCatalog INNER JOIN CATEGORY ON VideoLibraryCatalog.CategoryID = CATEGORY.Category WHERE CategoryID = " & Request("SearchCategory") & " AND DetailedDesc Like '%" + Replace(TxtBookSearch, "'", "''") + "%'" else RsCategory.Source = "SELECT CategoryDesc, * FROM VideoLibraryCatalog INNER JOIN CATEGORY ON VideoLibraryCatalog.CategoryID = CATEGORY.Category WHERE DetailedDesc Like '%" + Replace(TxtBookSearch, "'", "''") + "%'" end if else RsCategory.Source = "SELECT * FROM VideoLibraryCatalog Where CategoryID = 0" end if Case Else If (Request.Form("SearchCategory") <> 0) Then RsCategory.Source = "SELECT CategoryDesc, * FROM VideoLibraryCatalog INNER JOIN CATEGORY ON VideoLibraryCatalog.CategoryID = CATEGORY.Category WHERE CategoryID = " & Request("SearchCategory") & "" Else RsCategory.Source = "SELECT * FROM VideoLibraryCatalog Where CategoryID = 0" End If End Select RsCategory.CursorType = 0 RsCategory.CursorLocation = 2 RsCategory.LockType = 3 RsCategory.Open() %> CEP Video Catalog


 Video Library Catalog
 

To search for a video follow the steps below.
Step 1: Enter search criteria
 

•Select a category from the drop down menu to view all the tapes in that category or

  
  •Enter a keyword and select those fields you want to search for that word or  
  •Select a category and enter a keyword  
  Category:
  Keyword:
  Search for the keyword in one of the following fields:
  Title Presenter Producer Description  
Step 2: Click the Submit button
Step 3: Scroll down to browse the list of videos returned by the search and
              Click the title of each video to view a more detailed description.
Step 4: Click here to inquire about membership or tape availability. Include your name, and the video names and dates your are interested in. Our video librarian will reply as quickly as possible

Videos listed are not necessarily endorsed by CEP and/or the PCA. 
Please contact our staff for assistance and recommendations.
<% Do Until RsCategory.EOF %> <% If RecCount = 0 Then %> <% End If %> <% RsCategory.MoveNext RecCount = RecCount + 1 Loop %>
Category Title Presenter Producer Tape Information
<%=(RsCategory.Fields.Item("CategoryDesc").Value)%> ', 'item_detail');"><%=(RsCategory.Fields.Item("Title").Value)%> <%=(RsCategory.Fields.Item("Author").Value)%> <%=(RsCategory.Fields.Item("ProducedBy").Value)%> <%=(RsCategory.Fields.Item("ShortDesc").Value)%>
<% RsCategory.Close() Set RsCategory = Nothing %>