<% @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 WHERE films.wff_year=2002;")
Set dbCat = db.Execute("SELECT categories.cat_no, categories.cat_desc, categories.cat_rank FROM categories ORDER BY (categories.cat_rank);")
%>
Untitled
(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
%>
