<%@ Language=VBScript %> <% ' **** DEBUG ' response.write Session("AdvancedQuery") CreateConnection() set rsProducts = Server.CreateObject("ADODB.Recordset") theCategory = UCASE(request("category")) SELECT CASE theCategory CASE "ALL" theSQLText = "SELECT * FROM qProductList" theColorCell = "#000000" thePageBackColor = "#FFFFFF" theGenreColorText = "#FFFFFF" theListFormat ="0" theCategoryText = "All" CASE "QUERY" theTerritory = Session("TerritoryString") if theTerritory <> "" then theTargettedQuery = "qProductListAndRights" else theTargettedQuery = "qProductList" end if if Request("advanced") = "on" then if (Session("AdvancedQuery") <> "") then theSQLText = "SELECT * FROM " & theTargettedQuery & " WHERE " & Session("AdvancedQuery") else theSQLText = "SELECT * FROM " & theTargettedQuery & " WHERE Id = -1" end if else if (Session("ProductIdList") <> "") then theSQLText = "SELECT * FROM qProductList WHERE Id IN " & Session("ProductIdList") else theSQLText = "SELECT * FROM qProductList WHERE Id = -1" end if end if theColorCell = "#000000" thePageBackColor = "#FFFFFF" theGenreColorText = "#FFFFFF" theListFormat ="0" theCategoryText = "Search result" CASE "FEATUREFILM" theSQLText = "SELECT * FROM qFeatureFilms" theColorCell = "#CC0019" thePageBackColor = "#FE2B37" theGenreColorText = "#FF9999" theListFormat ="0" theCategoryText = "Feature Films" CASE "TVMOVIE" theSQLText = "SELECT * FROM qTVMovies" theColorCell = "#0080C0" thePageBackColor = "#3BC2DF" theGenreColorText = "#99CCFF" theListFormat ="0" theCategoryText = "TV Movies" CASE "SERIE" theSQLText = "SELECT * FROM qSeries" theColorCell = "#C1B300" thePageBackColor = "#FFF87E" theGenreColorText = "#FFFF9A" theListFormat ="1" theCategoryText = "Series" CASE "MINISERIE" theSQLText = "SELECT * FROM qMiniSeries" theColorCell = "#666699" thePageBackColor = "#99A2CA" theGenreColorText = "#ABBFED" theListFormat ="1" theCategoryText = "Mini Series" CASE "SPECIAL" theSQLText = "SELECT * FROM qSpecials" theColorCell = "#6F9A00" thePageBackColor = "#EBF05D" theGenreColorText = "#EEF7B4" theListFormat ="1" theCategoryText = "Specials" 'CASE "ANIMATION" ' theSQLText = "SELECT * FROM qAnimation" ' theColorCell = "#D0A500" ' thePageBackColor = "#FFD714" ' theGenreColorText = "#FFFF66" ' theListFormat ="1" ' theCategoryText = "Animation" END SELECT %> CLT-UFA INTERNATIONAL - <% = theCategoryText %> .jpg">
<% fBool = GetRecordSet(rsProducts, theSQLText) %>

Catalogue - <% response.write theCategoryText %>  

Coloured_bars_50.gif (355 bytes)Coloured_bars_50.gif (355 bytes)
Coloured_bars_50.gif (355 bytes)Coloured_bars_50.gif (355 bytes)
Buttons bar
<% if theCategory = "QUERY" then if Session("SearchError") <> "" then response.write "Sorry, no matches were found containing
" & Session("TextQuery") & "
" 'response.write "" & Session("SearchError") & "

" if Session("ErrorText") <> "" and Session("ErrorText") <> Session("SearchError") then response.write "" & Session("ErrorText") & "

" end if end if end if %> <% If NOT rsProducts.EOF Then %>
<% if theListFormat = "1" then response.write "" end if %> <% if theListFormat = "1" then response.write " <% do theTitle = rsProducts("Title") Response.Write " "&vbCRLF else Response.Write HTML_HRef(_ "ID_CARD_dyn.asp?category=" & UCASE(request("category")) &"&ProductID="&rsProducts("ID"),_ theTitle)&"  
"&vbCRLF end if ' **** Write the GENRE **** ' ' FEATUREFILM ' theColorCell = "#CC0019" ' TVMOVIE ' theColorCell = "#0080C0" ' SERIE ' theColorCell = "#D0A500" ' MINISERIE ' theColorCell = "#D9CE35" ' SPECIAL ' theColorCell = "#6F9A00" ' ANIMATION ' theColorCell = "#666699" Response.Write "" ' **** Write the PRODUCTION COUNTRY **** ' Response.Write "" ' **** Write the PRODUCTION YEAR **** ' Response.Write "" ' **** Write the FORMAT **** ' if theListFormat = "1" then Response.Write "" end if Response.write "" ' **** Exit the loop **** ' rsProducts.MoveNext If rsProducts.EOF Then Exit Do loop %>
The following titles matched:  <% ' Write the query if theCategory <> "QUERY" then response.write "' "& theCategoryText & " '" else if theKeywords = "" then response.write Session("TextQuery") else response.write theKeywords end if end if %>
  <% if theCategory = "ALL" then response.write "category / genre" else response.write "genre" end if %> prod.country prod.yearformat
" else response.write "" end if %>
" ' **** Write the linked TITLE name **** ' if theCategory = "ALL" or theCategory = "QUERY" then Response.Write HTML_HRef(_ "ID_CARD_dyn.asp?category=" & UCASE(rsProducts("category")) &"&ProductID="&rsProducts("ID"),_ theTitle)&"  

 " if theCategory = "ALL" or theCategory = "QUERY" then if rsProducts("category") = "FeatureFilm" then theFormattedCategory = "Feature Film" theGenreColorText = "#CC0019" else if rsProducts("category") = "TVMovie" then theFormattedCategory = "TV Movie" theGenreColorText = "#0080C0" else if rsProducts("category") = "MiniSerie" then theFormattedCategory = "Mini Series" theGenreColorText = "#666699" else if rsProducts("category") = "Serie" then theFormattedCategory = "Series" theGenreColorText = "#D9CE35" else if rsProducts("category") = "Special" then theFormattedCategory = rsProducts("category") theGenreColorText = "#6F9A00" else if rsProducts("category") = "Animation" then theFormattedCategory = rsProducts("category") theGenreColorText = "#D0A500" else theFormattedCategory = rsProducts("category") end if end if end if end if end if end if Response.Write "" & theFormattedCategory & " 
" end if Response.Write UCASE(rsProducts("Genre"))&"" Response.Write " 


  " Response.Write rsProducts("ProductionCountry")&"" theProductionCountry2 = rsProducts("ProductionCountry2") if theProductionCountry2 <> "" then Response.Write" / " Response.Write HTML_BR(theProductionCountry2) end if Response.Write " 

" Response.Write HTML_BR(rsProducts("ProductionYear"))&"


" Response.Write HTML_BR(rsProducts("RunningTime"))&"" Response.Write "
<% else %> <% ' Error management in order to specify what was not found ' Works together with RW's error management in querytools.asp !!! FC if Session("SearchError") <> "" then else if Session("AdvancedQuery") <> "" then response.write "Sorry, no matches were found containing
" & Session("TextQuery") & "
" else response.write "Sorry, you did not type in a few words or did not select a Genre or a Format !

" end if end if %> <% end if ' NOT EOF%>
<% if theCategory = "QUERY" then %> Next Search <% end if %> <% 'response.write "theSQLText: " & theSQLText & "
" 'response.write "index search: " & Session("DebugMsg") & "
" 'response.write "Error: " & Session("Error") & "
" 'response.write "ErrorText: " & Session("ErrorText") & "
" %>