<% @LANGUAGE = VBScript %> <% if 0 = Len(Request.ServerVariables("QUERY_STRING")) Then Response.Redirect ("http://www.waterfrontfilm.com/test/films2002.asp") End if %> The 2002 Waterfront Film Festival in Saugatuck, Michigan (June 6-9) - Join Our Mailing List



<% 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 "" & "

" dbPics.MoveNext Wend Response.Write "
" db.Close Set db = Nothing %>



[Home][Contact Us][Films][Schedule][Buy Tickets][Sponsor][Volunteer]