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