<%
Option Explicit
on error resume next
'response.write Application("strDBConn")
'response.end
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
set movieset=Application("DBConn").Execute(sql)
Do While movieset.eof = false
if sYear <> "2005" then
if category="ΔΙΑΓΩΝΙΣΤΙΚΟ ΜΙΚΡΟΥ ΜΗΚΟΥΣ" or category="ΔΙΑΓΩΝΙΣΤΙΚΟ ΜΕΓΑΛΟΥ ΜΗΚΟΥΣ" or category="ΕΚΤΟΣ ΣΥΝΑΓΩΝΙΣΜΟΥ" or category="ΔΙΑΓΩΝΙΣΤΙΚΟ ""ΒΡΑΒΕΙΟ MED WED"" ΓΙΑ ΤΟΥΣ ΥΔΑΤΙΝΟΥΣ ΠΟΡΟΥΣ" then
link="popup2005gr.asp?Year=" + sYear
else
link="popup2005gr_small.asp?Year=" + sYear
end if
else
link="popup2005gr.asp?Year=" + sYear
end if
%>
