|
|
 |
|
 |
 |
|
Film Synopsis
<%
strTest = Trim(Request.Querystring("X"))
strTest = Cint(strTest)
Set db = Server.CreateObject("ADODB.Connection")
db.Open "wffdata", addopenstatic
Set dbFilms = db.Execute("SELECT films.film_no, films.film_title, films.film_desc FROM films WHERE (((films.film_no)=" & strTest & "));")
Set dbCat = db.Execute("SELECT categories.cat_desc FROM categories INNER JOIN films ON categories.cat_no = films.cat_no WHERE (((films.film_no)=" & strTest & "));")
Set dbPeople = db.Execute("SELECT films.film_no, pep_tit.film_no, pep_tit.people_no, pep_tit.pos_no, people.f_name, people.l_name, position.position FROM position INNER JOIN (people INNER JOIN (films INNER JOIN pep_tit ON films.film_no = pep_tit.film_no) ON people.people_no = pep_tit.people_no) ON position.pos_no = pep_tit.pos_no WHERE (((films.film_no)=" & strTest & "));")
Set dbCntPeople = db.Execute("SELECT Count(position.position) AS CountOfposition FROM people INNER JOIN (position INNER JOIN pep_tit ON position.pos_no = pep_tit.pos_no) ON people.people_no = pep_tit.people_no GROUP BY pep_tit.film_no HAVING (((pep_tit.film_no)="& strTest & "));")
Set dbShows = db.Execute("SELECT DISTINCTROW films.film_no, show_ven.film_no, show_ven.showing_no, show_ven.venue_no, showings.showing_no, showings.showing_time, venues.venue_no, venues.venue_desc FROM films INNER JOIN (venues INNER JOIN (showings INNER JOIN show_ven ON showings.showing_no =show_ven.showing_no) ON venues.venue_no = show_ven.venue_no) ON films.film_no = show_ven.film_no WHERE (((films.film_no)=" & strTest & "));")
Set dbPics = db.Execute("SELECT DISTINCTROW films.film_no, pictures.film_no, pictures.picture FROM films INNER JOIN pictures ON films.film_no = pictures.film_no WHERE (((films.film_no)=" & strTest & "));")
Set dbCont = db.Execute("SELECT films.film_no, Content.content, film_cont.film_no, film_cont.content_no FROM Content INNER JOIN (films INNER JOIN film_cont ON films.film_no = film_cont.film_no) ON Content.content_no = film_cont.content_no WHERE (((films.film_no)=" & strTest & "));")
Set dbCntCont = db.Execute("SELECT Count(Content.content) AS CountOfcontent FROM Content INNER JOIN film_cont ON Content.content_no = film_cont.content_no GROUP BY film_cont.film_no HAVING (((film_cont.film_no)=" & strTest & "));")
Set dbNotes = db.Execute("SELECT films.film_no, films.film_notes FROM films WHERE (((films.film_no)=" & strTest & "));")
Response.Write "" & dbFilms("film_title") & ""
Response.Write " | "
Response.Write "" & dbCat("cat_desc") & ""
Response.Write ""
if dbCntPeople.EOF then
else
Response.Write "Credits "
While not dbPeople.EOF
Response.Write " | " & dbPeople("position") & " | " & dbPeople("f_name") & " " & dbPeople("l_name") & " "
dbPeople.MoveNext
Wend
Response.Write " |
"
end if
Response.Write " | "
if dbCntCont.EOF then
else
Response.Write "Content "
While not dbCont.EOF
Response.Write " | " & dbCont("content") & " "
dbCont.MoveNext
Wend
Response.Write " |
"
end if
Response.Write " |
"
dbFilms.MoveFirst
Response.Write "" & dbFilms("film_desc") & " " & "" & dbNotes("film_notes") & " "
Response.Write "Scheduled Presentation"
While not dbShows.EOF
Response.Write "" & fncFmtDate(dbShows("showing_time"), "%A, %B %d at %h%n %P") & " at the " & dbShows("venue_desc") & " "
dbShows.MoveNext
Wend
Response.Write " | "
While not dbPics.EOF
Response.Write "![](../images/") " & "
"
dbPics.MoveNext
Wend
Response.Write " | "
db.Close
Set db = Nothing
%>
|
|
|
