%
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
%>
� ����������� ��� �����-��������� ����
��������� �� ���������� ��������� ��������� ��� ����
��������. ��������� ��� ��� ���� �� ������ ����������
������� ��� ������� �� ���� ��� ���� ������ ��� ���� ���
��� �������� ��� �� ���������� ���� ������� �����. �����
������ � ������� ��� ���������� ��� ��������� ��� ���
��������� ����� ��� ��������� ��������� ��� ������������
�������� ���, ���, ��� ����������� ������. �������
100.000 ������ ��������� ������ �� ��� ��������
��������� ��� ����� ��� � �������� ���� ��������� �� ��
������ ����� ��� ���������.
����� �� ��������� 30 ������ ���� ��� ��
��� ����� ��� ��������� ��� ������������ ���� �����,
����� ���� ��������� �� ������������ ���� ��� ����
���������. �� ��� ���������� ��� �������� ������ �� ����
��� �� ���� ���������� to 2005
�� ������������ ����������� �� ����������� � �������
Hawr Al Hawizah ��� ����������
���� ��� �����, �� ���������� �������� ��������.
��� ������� ��� ����������� ��� ���
�������� ��� ��������� ��� ������������ ����
������������� �������� ��� ������ ��� ��������
�����������. �� ��� ���������� ��� �������� ������ ���
��� ��������� ��� ��������� ������������ ��� ������ ���
�� ���� ��� �� ���� � �������
Hawr Al Hawizah
�� ��������� �������� ��������.
������� ���� �������� ����������� ��
��������� ��� ������, ��� ������ ��� ���� ��� �����
����, ���� ��� ����� ��� ��������� ��� �������� ���� ��
�������� ��������� ��� ��������������� ��� �������� ��
2005. � ����������, ��������� ����� ���������� ����
�������� ��� ����������� ��� ������� ��� ������ -
�������� ������������ ��� ���� ���������� (CIMI)
��� ���� ������������� �� ����� ��� ������������ ���
���������.
�� ���������� ������ ��� ��������
����������� �� ����������� ��� ������. �� �������� ���
��������� �� ����� �������� ��� ���� ������ �������� ���
�������� ��� ����� ��� ������� ���� ����� ���� ��� �����.
������� ��� ������� ����� � �������� ���
������, ��� �� ���������� ��� ������������ ��
MedWet,
��������
Ecofilms ��� � ��������
������������.
ecofilms.gr©2004

����������
'06 |
'05
|
'04
<%Do while rsCategories.eof=false%>
<%Call RenderMovies (rsCategories("CATEGORY"), sTableName)%>
<%rsCategories.MoveNext%>
����: ���������
��� ������������
�
����������� ������ ����: ��������� ��� ������������
���-������������� ��� ��
MedWet, ���
�������� ��� ������ ��� ���
���������� ������������ ��������� �����������
������������� �����������,
��������� �� �� ��������, ��� 20 ����� ��� 26 �������,
��� ������� �������� ���� ��� �������.
σχεδιασμός
n.n.