<% 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 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 else link="popup2005en.asp?Year=" + sYear end if %>

 
 
 

 

 

screenings
meetings
and special events
on film
visual arts
and ecology

in June '05
join the prestigious
Rhodes ecofilms festival
.......at the Greek croisette

 

 


 
 tributes '07|'06|'05|'04
 
<%Do while rsCategories.eof=false%> <%Call RenderMovies (rsCategories("CATEGORY"), sTableName)%> <%rsCategories.MoveNext%> <%Loop%>
 TRIBUTE TO DODECANNESO "1927- 1955": ISTITUTO LUCE archives
 Documentaries 1927-1955

Curator Nikolas Nikolaidis
in collaboration with CinemAmbiente - Environmental Film Festival, Torino
and
Edoardo Ceccutti, Gaetano Capizzi και Sergio Toffetti

 
   
   
   
   
   
   
   
 

 

designed by n.n.

ecofilms.gr2004