<%
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
<%Do while rsCategories.eof=false%>
<%Call RenderMovies (rsCategories("CATEGORY"), sTableName)%>
<%rsCategories.MoveNext%>
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
