<% 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%> <% '' =================================================================================== '' =================================================================================== '' =================================================================================== %>
<%' '' ���� ��� ������ ���������� �� ������ �������� � �������� "����������" '' ����������� ��� ����� � ���� �� ������ ������� %>
����������� ������ ��������� ������ � ������������ ����� G8
<% intPage = Request("page") If IsNumeric(intPage) Then intPage = Int(intPage) Else intPage = 0 End If If intPage < 1 Or intPage > 4 Then intPage = 1 putinPath = Server.MapPath("putin") Select Case intPage Case 1 if isEmpty(Application("articles2007putin1")) Then FileText = GetFromFile(putinPath & "/1.htm") Application("articles2007putin1") = FileText end if Response.Write Application("articles2007putin1") Case 2 if isEmpty(Application("articles2007putin2")) Then FileText = GetFromFile(putinPath & "/2.htm") Application("articles2007putin2") = FileText end if Response.Write Application("articles2007putin2") Case 3 if isEmpty(Application("articles2007putin3")) Then FileText = GetFromFile(putinPath & "/3.htm") Application("articles2007putin3") = FileText end if Response.Write Application("articles2007putin3") Case 4 if isEmpty(Application("articles2007putin4")) Then FileText = GetFromFile(putinPath & "/4.htm") Application("articles2007putin4") = FileText end if Response.Write Application("articles2007putin4") End Select If intPage < 4 Then %> <% else %> <% End If %>
<% '======================================================================================================== %>
<% ''' ������ �� ����� ������ ������� ''' DrawLGFrame 304 %> <% '======================================================================================================== %>
<% ' end of left col %>
����������
<% Dim ArrCont ArrCont = Array ("����� ������", "����� ������", "����� ������", "����� ���������") %> <% For i = 1 To UBound(ArrCont) + 1 If intPage = i Then %> <% Else %> <% End If Next %>
<%=ArrCont(i - 1)%>
<%=ArrCont(i - 1)%>�������...

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

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