Catalogue - Product Sheet

<%@ Language=VBScript %> Catalogue - Product Sheet <% CreateConnection() theProductID = request("ProductID") set rsOwnRights = Server.CreateObject("ADODB.Recordset") theRightsSQLText = "SELECT * FROM qProductListAndRights WHERE ID=" & theProductID set rsOnlyExcept = Server.CreateObject("ADODB.Recordset") theOnlyExceptSQLText = "SELECT * FROM qCountryNameAndExcpet WHERE ID=" & theProductID ' *** DEBUG ' response.write theOnlyExceptSQLText set rsProducts = Server.CreateObject("ADODB.Recordset") theSQLText = "SELECT * FROM tProducts "&_ "WHERE ID="&theProductID 'theSQLText = "SELECT SubsidiaryName, SubsidiaryID, Business FROM qProducts "&_ ' "ORDER BY Title" fbool=GetRecordSet(rsProducts, theSQLText) theCategory = UCASE(request("category")) SELECT CASE theCategory CASE "FEATUREFILM" theColorCell = "#800000" theColorText = "#530000" thePageBackColor = "#FE2B37" theCategoryText = "Feature Films" CASE "TVMOVIE" theColorCell = "#0080C0" theColorText = "#004080" thePageBackColor = "#3BC2DF" theCategoryText = "TV Movie" CASE "SERIE" theColorCell = "#C1B300" theColorText = "#000000" thePageBackColor = "#FFF873" theCategoryText = "Series" CASE "MINISERIE" theColorCell = "#666699" theColorText = "#000000" thePageBackColor = "#99A2CA" theCategoryText = "Mini Series" CASE "SPECIAL" theColorCell = "#6F9A00" theColorText = "#000000" thePageBackColor = "#EBF05D" theCategoryText = "Specials" CASE "ANIMATION" theCategoryText = "Animation" theColorCell = "#D0A500" theColorText = "#000000" thePageBackColor = "#FFD714" end select '***Debug ' response.write theProductID %> .jpg">

Catalogue - <% response.write theCategoryText %>

<% ' **** Write the TITLE **** theTitle = rsProducts("Title") Response.Write theTitle %>

<% ' **** Does a MOVIE exists for this product ? **** if rsProducts("Movie") <> "" then response.write " " response.write " " end if %>

" else Response.Write "Sorry! No picture available
for this product !" Response.Write "" end if %>

<% ' **** Does a picture exist for the product ? *** ' if Rsproducts("Picture") <> "" then Thepicture = Rsproducts("Picture") Response.Write "" Response.Write "

<% ' **** Write the GENRE *** theGenre = rsProducts("Genre") Response.Write theGenre&" " %>

Running time: <% ' **** Write the RUNNING TIME *** theRunningTime = rsProducts("RunningTime") if len(theRunningTime) > 15 then Response.Write "
" & HTML_BR(theRunningTime) else Response.Write HTML_BR(theRunningTime) end if %>

<% '**** Write the product's datas (Country, year ...) **** %> <% if rsProducts("Starring") <> "" then %> <% end if %> <% if rsProducts("DirectedBy") <> "" then %> <% end if %> <% if rsProducts("ProducedBy") <> "" then %> <% end if %> <% if rsProducts("WrittenBy") <> "" then %> <% end if %> <% if rsProducts("ProductionCountry") <> "" then %> <% end if %> <% if rsProducts("ProductionYear") <> "" then %> <% end if %> <% if rsProducts("OriginalVersion") <> "" then %> <% end if %> <% if rsProducts("OtherVersion") <> "" then %> <% end if %> <% fbool=GetRecordSet(rsOwnRights, theRightsSQLText) theOwnRights = rsOwnRights("Territory") %> <% if theOwnRights <> "" then %> <% end if %>


STARRING
	<% theStarring = rsProducts("Starring") Response.Write HTML_BR(theStarring) %>
DIRECTED BY
	<% theDirectedBy = rsProducts("DirectedBy") Response.Write HTML_BR(theDirectedBy) %>
PRODUCED BY
	<% theProducedBy = rsProducts("ProducedBy") Response.Write HTML_BR(theProducedBy) %>
WRITTEN BY
	<% theWrittenBy = rsProducts("WrittenBy") Response.Write HTML_BR(theWrittenBy) %>
PRODUCTION COUNTRY
	<% theProductionCountry = rsProducts("ProductionCountry") theProductionCountry2 = rsProducts("ProductionCountry2") Response.Write HTML_BR(theProductionCountry) if theProductionCountry2 <> "" then Response.Write" / " Response.Write HTML_BR(theProductionCountry2) end if %>
PRODUCTION YEAR
	<% theProductionYear = rsProducts("ProductionYear") Response.Write HTML_BR(theProductionYear) %>
ORIGINAL VERSION
	<% theOriginalVersion = rsProducts("OriginalVersion") Response.Write HTML_BR(theOriginalVersion) %>
OTHER VERSION
	<% theOtherVersion = rsProducts("OtherVersion") Response.Write HTML_BR(theOtherVersion) %>
TERRITORIES
	<% Response.Write HTML_BR(theOwnRights) %>

<% theShortSynopsis = rsProducts("ShortSynopsis") if theShortSynopsis <> "" then Response.Write "" & HTML_BR(theShortSynopsis) & "

" end if theSynopsis = rsProducts("Synopsis") Response.Write HTML_BR(theSynopsis) theOriginalTitle = rsProducts("OriginalTitle") if theOriginalTitle <> "" then Response.Write "

Original title: " & theOriginalTitle & "" end if theOfficialWebsite = rsProducts("Website") if theOfficialWebsite <> "" then if Thepicture <> "" then Response.Write "

" end if Response.Write "

" & HTML_HRef(theOfficialWebsite,"Visit also the official website") &"" end if %>

<% if rsProducts("Movie") <> "" then %> <% end if %>

To view the video preview available for this product, you need the Real Player which is free and downloadable here