|
 |
|
|
<% @LANGUAGE = VBScript %> <% Set db = Server.CreateObject("ADODB.Connection") db.Open "wffdata" Set dbFilms = db.Execute("SELECT films.film_no, films.film_title, films.cat_no FROM films;") Set dbCat = db.Execute("SELECT categories.cat_no, categories.cat_desc, categories.cat_rank FROM categories ORDER BY (categories.cat_rank);") %>
(For more information on a film, click on the film title in the list below)
<% While not dbCat.EOF Response.Write "" & dbCat("cat_desc") & "
" While not dbFilms.EOF If dbFilms("cat_no") = dbCat("cat_no") then strOutput = "" & dbFilms("film_title") & "" Response.Write strOutput & "" end if dbFilms.MoveNext Wend dbFilms.MoveFirst dbCat.MoveNext Wend db.Close Set db = Nothing %>