ECOFILMS - Rhodes International Film and Visual Arts Festival

<% Option Explicit Sub RenderMovies (category, table) Dim sql Dim movieset Dim link sql="select movieid, title, length, director, category from " + table + " where category='"+category+"' order by title" set movieset=Application("DBConn").Execute(sql) Do While movieset.eof = false if category="COMPETITION SHORT FILMS" or category="COMPETITION FEATURE LENGTH FILMS" or category="OUT OF COMPETITION" or category="COMPETITION ""AWARD MED-WET"" ON WATER AND WETLANDS" then link="popup2005en.asp?Year=" + sYear else link="popup2005en_small.asp?Year=" + sYear end if %> ')"><%response.write(movieset("TITLE"))%>, <%response.write(movieset("LENGTH"))%> - <%response.write(movieset("DIRECTOR"))%> <% movieset.movenext Loop End Sub Dim rsCategories Dim sTableName Dim sYear Dim sColor2003 Dim sColor2004 if request("Year") = "2003" then sTableName = "movies2003en" sYear = "2003" sColor2003 = "#FB7D00" sColor2004 = "#416D92" else sTableName = "movies2004en" sYear = "2004" sColor2003 = "#416D92" sColor2004 = "#FB7D00" end if set rsCategories = Application("DBConn").Execute ("select distinct category from " + sTableName + " order by category") %> ECOFILMS - Rhodes International Film and Visual Arts Festival

ecofilms

entry form

films
2004 | 2003
juries
tributes
album

sponsors

rhodes

contact

search

screenings
meetings
and special events
on film
visual arts
and ecology
in June '05
join the prestigious Rhodes ecofilms festival
.......at the Greek croisette

<%Do while rsCategories.eof=false%> <%Call RenderMovies (rsCategories("CATEGORY"), sTableName)%> <%rsCategories.MoveNext%> <%Loop%>

<%=rsCategories("CATEGORY")%>