<% dim docid, isthemes, iscorpnews, id_news, page_themes, maxpage dim corp_q Response.Expires = 0 bGazetaIndexPage = FALSE '' �������� �� �������������� ������� ������ withExtraRightColumn = false isNewsPage = FALSE dim level, needcheck level = GetInt(Request("level"), 1) if level=1 then Session("levelrank")="" Session("testleveldone")="" end if needcheck = false needcheck = "" & Request("todo") = "checkme" leveldone = GetInt(Session("testleveldone"), 0) levelrank = Session("levelrank") %> <%if withExtraRightColumn then%>
<%end if%> <% '' =================================================================================== '' =================================================================================== '' =================================================================================== %>
<%' '' ���� ��� ������ ���������� �� ������ �������� � �������� "����������" '' ����������� ��� ����� � ���� �� ������ ������� %>
��������� ������ ������������ �� ���� ���������� ����������
<% intPage = Request("page") If IsNumeric(intPage) Then intPage = Int(intPage) Else intPage = 0 End If If intPage < 1 Or intPage > 5 Then intPage = 1 Select Case intPage Case 1 %><% Case 2 %><% Case 3 %><% Case 4 %><% Case 5 %><% End Select If intPage < 5 Then %> <% else %> <% End If %>
<% ' end of left col %>
����������
<% Dim ArrCont ArrCont = Array ("������� �1", "������� �2", "������� �3", "������� �4", "������� �5 � �6") %> <% For i = 1 To UBound(ArrCont) + 1 If intPage = i Then %> <% Else %> <% End If Next %>
<%=ArrCont(i - 1)%>
<%=ArrCont(i - 1)%>�������...

<% Call ForumLink(96807) %> <% '' ���� 239-�� ����� (�������� adWatch) DrawBannerByPlace 256, False %>

������ �� ����
31/03/07  ����� ����������� �������� �����������  >>  
01/02/07  ��������-��� ���� ���� ���������� ����������  >>  
31/01/07  � ���������� ���������� ����� ��������������� �� ����������� ������������  >>  
21/12/06  ����� ���������� ���������� ���������� �, ��� ������ �� ���   >>  
04/12/06  ������� ������ ������. ������ ���������� ���������� ����������  >>  
25/11/06  ��������� ���������� ������� � ����� ������ ��������� ������  >>  
<% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' �������������� ������� ������ ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' if withExtraRightColumn then%> <% end if %> <%if extention = "news" then %><% end if If 1 = 2 Then %> <% End If %> <%if extention = "news" then %><% end if %> <% CloseConnection(conn) set rs = nothing set LinkChecker = nothing %>