|
|
<% @LANGUAGE = VBScript %>
<%
strYear = Trim(Request.Querystring("Year"))
Set db = Server.CreateObject("ADODB.Connection")
db.Open "wffdata"
Set dbFilms = db.Execute("SELECT films.film_no, films.film_title, films.cat_no, films.film_synop_short FROM films WHERE films.wff_year=" & strYear & " ORDER BY (films.film_title);")
Set dbCat = db.Execute("SELECT DISTINCTROW categories.cat_no, categories.cat_desc FROM categories INNER JOIN films ON categories.cat_no = films.cat_no WHERE (((films.wff_year)=" & strYear & ")) ORDER BY (categories.cat_rank);")
Set dbTimes = db.Execute("SELECT DISTINCTROW show_ven.film_no, showings.showing_time, Format([showings].[showing_time],'ddd m/d@h:nnam/pm') AS [long_time], Format([showings].[showing_time],'ddd m/d@ham/pm') AS [short_time], Format([showings].[showing_time],'n') AS [min_time] FROM films INNER JOIN (showings INNER JOIN show_ven ON showings.showing_no = show_ven.showing_no) ON films.film_no = show_ven.film_no WHERE (((films.wff_year)=" & strYear & ")) ORDER BY show_ven.film_no, showings.showing_time;")
%>
<%
%>
 |
<%
Response.Write ""
%>
|  |
 |
|
<%
While not dbCat.EOF
Response.Write "" & dbCat("cat_desc") & ""
While not dbFilms.EOF
If dbFilms("cat_no") = dbCat("cat_no") then
strFilmName = "" & dbFilms("film_title") & ""
strShortSynops = dbFilms("film_synop_short")
IF strShortSynops <> "" THEN
strSynops = " - " & strShortSynops & ""
ELSE
strSynops = ""
END IF
IF dbTimes.EOF then
ELSE
strTimeData = ""
strTimes = ""
While not dbTimes.EOF
IF dbTimes("film_no") = dbFilms("film_no") THEN
IF strTimeData <> "" THEN
IF dbTimes("min_time") = "0" THEN
strTimeData = strTimeData & "; " & dbTimes("short_time")
ELSE
strTimeData = strTimeData & "; " & dbTimes("long_time")
END IF
ELSE
IF dbTimes("min_time") = "0" THEN
strTimeData = dbTimes("short_time")
ELSE
strTimeData = dbTimes("long_time")
END IF
END IF
END IF
dbTimes.MoveNext
Wend
dbTimes.MoveFirst
END IF
IF strTimeData <> "" THEN
strTimes = " (" & strTimeData & ")"
ELSE
strTimes = ""
END IF
Response.Write strFilmName & strSynops & strTimes & "
"
end if
dbFilms.MoveNext
Wend
dbFilms.MoveFirst
dbCat.MoveNext
Wend
db.Close
Set db = Nothing
%>
|
|
|
|
|
