<% Option Explicit on error resume next Sub RenderMovies (category, table) Dim sql Dim movieset Dim link if Len(Trim(category)) = 0 or (isnull(category)) then sql="select movieid, title, length, director, '-unfiled-' from " & table & " where isnull(category) or len(trim(category))=0 order by title " else sql="select movieid, title, length, director, category from " & table & " where category='"&category&"' order by title" end if 'response.write Len(Trim(category)) 'response.write sql 'response.end set movieset=Application("DBConn").Execute(sql) Do While movieset.eof = false if sYear <> "2005" then if category="COMPETITION SHORT LENGTH FILMS" or category="COMPETITION MEDIUM LENGTH FILMS" or category="COMPETITION FEATURE LENGTH FILMS" or category="PANORAMA" or category="TRIBUTES" or category="COMPETITION RAMSAR / MEDWET AWARD" or category="ANIMATION" then link="popup2005en.asp?Year=" + sYear else link="popup2005en_small.asp?Year=" + sYear end if else link="popup2005en.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") = "" then sTableName = "movies2010en" sYear = "2010" sColor2003 = "#416D92" sColor2004 = "#FB7D00" else if request("Year") = "2003" then sTableName = "movies2003en" sYear = "2003" sColor2003 = "#FB7D00" sColor2004 = "#416D92" elseif request("Year") = "2004" then sTableName = "movies2004en" sYear = "2004" sColor2003 = "#416D92" sColor2004 = "#FB7D00" elseif request("Year") = "2005" then sTableName = "movies2005en" sYear = "2005" sColor2003 = "#416D92" sColor2004 = "#416D92" elseif request("Year") = "2006" then sTableName = "movies2006en" sYear = "2006" sColor2003 = "#416D92" sColor2004 = "#416D92" elseif request("Year") = "2007" then sTableName = "movies2007en" sYear = "2007" sColor2003 = "#416D92" sColor2004 = "#416D92" elseif request("Year") = "2008" then sTableName = "movies2008en" sYear = "2008" sColor2003 = "#416D92" sColor2004 = "#416D92" elseif request("Year") = "2009" then sTableName = "movies2009en" sYear = "2009" sColor2003 = "#416D92" sColor2004 = "#416D92" end if end if set rsCategories = Application("DBConn").Execute ("select distinct category from " + sTableName + " order by category") %> ECOFILMS - Rodos International Film & Visual Arts Festival

 
 
 

 

 

 

screenings
meetings
and special events
on film
visual arts
and ecolo
gy

every June
join the prestigious Rodos Int. film festival

.......at the greek croisette

 


 

 

 

 
 films <%=sYear%> selected  |  schedule 2010
<%Do while rsCategories.eof=false%> <%Call RenderMovies (rsCategories("CATEGORY"), sTableName)%> <%rsCategories.MoveNext%> <%Loop%>
<%=rsCategories("CATEGORY")%>
 

 

 

designed by n.n.

ecofilms.gr2004