<% 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 %>

 
 

 

 

 

προβολές
συναντήσεις
και ειδικές εκδηλώσεις

για το σινεμά
τη τέχνη και την οικολογία

τον Ιούνιο 2005
στο
διεθνές φεστιβάλ της Ρόδου

 


eco '05
<%Do while rsCategories.eof=false%> <%Call RenderMovies (rsCategories("CATEGORY"), sTableName)%> <%rsCategories.MoveNext%> <%Loop%>
 
     
     
     
     
     
     

[1] [2] [3] [4] [5] [6]

photo Stefania Mitzara

 

σχεδιασμός n.n.

ecofilms.gr©2004