<%
strTest = Trim(Request.Querystring("X"))
strTest = Cint(strTest)
Set db = Server.CreateObject("ADODB.Connection")
db.Open "wffdata", addopenstatic
qryFilms = "SELECT films.film_no, films.film_title, films.film_desc, films.film_year, films.film_country, films.film_length, films.website, films.synops_credit, color.color, screening_note.screening_note FROM color RIGHT JOIN (screening_note RIGHT JOIN films ON screening_note.screening_note_no = films.wff_screen_note) ON color.color_no = films.color WHERE (((films.film_no)=" & strTest & "));"
Set dbFilms = db.Execute(qryFilms)
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 people.f_name, people.l_name, position.position FROM [position] RIGHT JOIN (people INNER JOIN pep_tit ON people.people_no = pep_tit.people_no) ON position.pos_no = pep_tit.pos_no WHERE (((pep_tit.film_no)=" & strTest & ")) ORDER BY position.pos_rank, pep_tit.pep_tit_no;")
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, venues.venue_name 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, pictures.caption 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")& "
"
' Generate String for content
if dbCntCont.EOF then
else
strContent = "(" & dbCont("content")
dbCont.MoveNext
' Response.Write "Content "
While not dbCont.EOF
strContent = strContent & ", " & dbCont("content")
' Response.Write " | " & dbCont("content") & " "
dbCont.MoveNext
Wend
strContent = strContent & ")"
' Response.Write " |
"
end if
' Generate String for Year, Length, Country, Color and website link
strDetail = dbFilms("film_year")
IF dbFilms("film_length") <> "" THEN
IF strDetail <> "" THEN
strDetail = strDetail & ", " & dbFilms("film_length") & " min"
ELSE
strDetail = dbFilms("film_length") & " min"
END IF
END IF
IF dbFilms("film_country") <> "" THEN
IF strDetail <> "" THEN
strDetail = strDetail & ", " & dbFilms("film_country")
ELSE
strDetail = dbFilms("film_country")
END IF
END IF
IF dbFilms("color") <> "" THEN
IF strDetail <> "" THEN
strDetail = strDetail & ", " & dbFilms("color")
ELSE
strDetail = dbFilms("color")
END IF
END IF
IF strContent <> "" THEN
IF strDetail <> "" THEN
strDetail = strDetail & "
" & "" & strContent & ""
' Response.Write "" & strContent & "
"
ELSE
strDetail = "" & strContent & ""
END IF
END IF
IF dbFilms("website") <> "" THEN
IF strDetail <> "" THEN
strDetail = strDetail & "
" & "" & RIGHT(dbFilms("website"), LEN(dbFilms("website")) - 7) & ""
ELSE
strDetail = "" & RIGHT(dbFilms("website"), LEN(dbFilms("website")) - 7) & ""
END IF
END IF
Response.Write "" & dbCat("cat_desc") & "
"
IF dbFilms("screening_note") <> "" THEN
Response.Write "" & dbFilms("screening_note") & "
"
END IF
strFilmNotes = dbNotes("film_notes")
IF strFilmNotes <> "" THEN
Response.Write "" & strFilmNotes & " "
END IF
IF strDetail <> "" THEN
Response.Write "" & strDetail & " "
END IF
' Credits
'---------------
if dbCntPeople.EOF then
else
strPosition = ""
strPeople = ""
While not dbPeople.EOF
IF strPeople = "" THEN
strPosition = dbPeople("position")
Response.Write "" & strPosition & ": | "
strPeople = dbPeople("f_name") & " " & dbPeople("l_name")
ELSEIF dbPeople("position") <> strPosition THEN
strPosition = dbPeople("position")
Response.Write strPeople & " | " & strPosition & ": | "
strPeople = dbPeople("f_name") & " " & dbPeople("l_name")
ELSE
strPeople = strPeople & ", " & dbPeople("f_name") & " " & dbPeople("l_name")
END IF
dbPeople.MoveNext
Wend
Response.Write strPeople & " |
"
end if
'if dbCntCont.EOF then
'else
' Response.Write "Content "
' While not dbCont.EOF
' Response.Write " | " & dbCont("content") & " "
' dbCont.MoveNext
' Wend
' Response.Write " |
"
'end if
' Next Column is pics:
'---------------
strPics = ""
While not dbPics.EOF
strPics = strPics & "![](../images/") " & "
"
IF dbPics("caption") <> "" THEN
strPics = strPics & "" & dbPics("caption") & " "
ELSE
strPics = strPics & "
"
END IF
dbPics.MoveNext
Wend
' Only want to force 50% width if there are pics
'---------------
IF strPics <> "" THEN
Response.Write " | "
Response.Write strPics
ELSE
Response.Write " | "
' Response.Write " | "
END IF
'Close table
Response.Write " |