|
|
<% @LANGUAGE = VBScript %>
<%
strYear = Trim(Request.Querystring("Year"))
Set db = Server.CreateObject("ADODB.Connection")
db.Open "wffdata"
Set dbFilms = db.Execute("SELECT show_ven.show_ven_no, films.film_no, showings.showing_time, venues.venue_desc, venues.venue_name, films.film_title, Format([showings].[showing_time], 'dddd mmmm dd"", ""yyyy') AS day, Format([showings].[showing_time],'Medium Time') AS showtime, show_ven.show_note, categories.cat_desc, categories.cat_no FROM categories RIGHT JOIN (showings RIGHT JOIN (venues RIGHT JOIN (films INNER JOIN show_ven ON films.film_no = show_ven.film_no) ON venues.venue_no = show_ven.venue_no) ON showings.showing_no = show_ven.showing_no) ON categories.cat_no = films.cat_no WHERE (((categories.cat_no)<>10) AND ((films.wff_year)=" & strYear & ")) ORDER BY showings.showing_time, venues.venue_name, films.film_title;")
'Set dbDays = db.Execute("SELECT DISTINCT FORMAT([showings].[showing_time], 'dddd mmmm dd"", ""yyyy') AS day, FORMAT([showings].[showing_time], 'Short Date') AS shortdate FROM showings INNER JOIN (films INNER JOIN show_ven ON films.film_no = show_ven.film_no) ON showings.showing_no = show_ven.showing_no WHERE (((films.wff_year)=" & strYear & ")) ORDER BY FORMAT([showings].[showing_time], 'Short Date');")
Set dbDays = db.Execute("SELECT DISTINCT FORMAT([showings].[showing_time], 'dddd mmmm dd"", ""yyyy') AS day, DAY([showings].[showing_time]) AS shortdate FROM showings INNER JOIN (films INNER JOIN show_ven ON films.film_no = show_ven.film_no) ON showings.showing_no = show_ven.showing_no WHERE (((films.wff_year)=" & strYear & ")) ORDER BY DAY([showings].[showing_time]);")
Set dbTimes = db.Execute("SELECT DISTINCT FORMAT([showings].[showing_time],'dddd mmmm dd"", ""yyyy') AS day, FORMAT([showings].[showing_time], 'Medium Time') AS showtime, Format([showings].[showing_time],'Short Time') AS shorttime FROM showings INNER JOIN (films INNER JOIN show_ven ON films.film_no = show_ven.film_no) ON showings.showing_no = show_ven.showing_no WHERE (((films.wff_year)=" & strYear & "))ORDER BY Format([showings].[showing_time],'dddd mmmm dd"", ""yyyy'), Format([showings].[showing_time],'Short Time');")
Set dbVenues = db.Execute("SELECT DISTINCT venues.venue_name, venues.venue_desc, venues.venue_no FROM venues RIGHT JOIN (films LEFT JOIN show_ven ON films.film_no = show_ven.film_no) ON venues.venue_no = show_ven.venue_no WHERE (((films.wff_year)=" & strYear & ") AND ((venues.venue_no) Is Not Null));")
%>
 |
<%
Response.Write ""
%>
|  |
 |
|
<%
Response.Write " * Venue legend at bottom of page "
While not dbDays.EOF
Response.Write "" & dbDays("day") & " "
While not dbTimes.EOF
If dbTimes("day") = dbDays("day") then
Response.Write "" & dbTimes("showtime") & " "
While not dbFilms.EOF
If (dbFilms("day") = dbTimes("day") AND dbFilms("showtime") = dbTimes("showtime")) then
strFilmName = "" & dbFilms("film_title") & " (" & dbFilms("cat_desc") & ", " & dbFilms("venue_name") & ")"
' strShortSynops = dbFilms("film_synop_short")
' IF strShortSynops <> "" THEN
' strSynops = " - " & strShortSynops & ""
' ELSE
' strSynops = ""
' END IF
' Response.Write strFilmName & strSynops & "
"
Response.Write strFilmName & "
"
end if
dbFilms.MoveNext
Wend
end if
dbFilms.MoveFirst
dbTimes.MoveNext
Wend
dbTimes.MoveFirst
dbDays.MoveNext
Wend
' Venue Legend
Response.Write "
| Venue | Location |
|---|
"
While not dbVenues.EOF
Response.Write "| " & dbVenues("venue_name") & " | " & dbVenues("venue_desc") & " | "
dbVenues.MoveNext
Wend
Response.Write "
"
db.Close
Set db = Nothing
%>
|
|
|
|
|
