<% 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="ΠΑΝΟΡΑΜΑ" or category="ΑΦΙΕΡΩΜΑΤΑ" or category="ΔΙΑΓΩΝΙΣΤΙΚΟ ΤΑΙΝΙΩΝ ΒΡΑΒΕΙΟ RAMSAR / MEDWED" or category="ΚΙΝΟΥΜΕΝΑ ΣΧΕΔΙΑ" then link="popup2005gr.asp?Year=" + sYear else link="popup2005gr_small.asp?Year=" + sYear end if else link="popup2005gr.asp?Year=" + sYear end if %> ')"><%response.write(movieset("TITLE"))%>, <%response.write(movieset("LENGTH"))%> - <%response.write(movieset("DIRECTOR"))%> <% movieset.movenext Loop End Sub Dim rsCategories Dim sTableName Dim sYear Dim sColor2003 Dim sColor2004 if request("Year") = "" then sTableName = "movies2010gr" sYear = "2010" sColor2003 = "#416D92" sColor2004 = "#FB7D00" else if request("Year") = "2003" then sTableName = "movies2003gr" sYear = "2003" sColor2003 = "#FB7D00" sColor2004 = "#416D92" elseif request("Year") = "2004" then sTableName = "movies2004gr" sYear = "2004" sColor2003 = "#416D92" sColor2004 = "#FB7D00" elseif request("Year") = "2005" then sTableName = "movies2005gr" sYear = "2005" sColor2003 = "#416D92" sColor2004 = "#416D92" elseif request("Year") = "2006" then sTableName = "movies2006gr" sYear = "2006" sColor2003 = "#416D92" sColor2004 = "#416D92" elseif request("Year") = "2007" then sTableName = "movies2007gr" sYear = "2007" sColor2003 = "#416D92" sColor2004 = "#FB7D00" elseif request("Year") = "2008" then sTableName = "movies2008gr" sYear = "2008" sColor2003 = "#416D92" sColor2004 = "#FB7D00" elseif request("Year") = "2009" then sTableName = "movies2009gr" sYear = "2009" sColor2003 = "#416D92" sColor2004 = "#FB7D00" end if end if set rsCategories = Application("DBConn").Execute ("select distinct category from " + sTableName + " order by category") %> ECOFILMS - Rodos International Film & Visual Arts Festival

 
 
 

 

 

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

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

τον Ιούνιο

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

 

 

 

 
 ταινίες <%=sYear%>    |  προβολές 2010
<%Do while rsCategories.eof=false%> <%Call RenderMovies (rsCategories("CATEGORY"), sTableName)%> <%rsCategories.MoveNext%> <%Loop%>
<%=rsCategories("CATEGORY")%>
 

 

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

ecofilms.gr©2004