<%
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
%>
A photographic exhibition on Eden:
Marshlands of Messopotamia
jointly organised by MedWet,
the Embassy of Canada
and the
Prefecture of the Dodecanese islands
will take place during the course
of the
Ecofilms Rodos International Film +
Visual Ats Festival, 20-25 June, Greece, in the "French
Lodging".
