<% 'Шапка для вторых страниц ' + меню ' sub Header(ByVal mnu) ' mnu - идентификатор меню pic=" " If RSQ.state<>0 then RSQ.close If Trim(mnu)="" then mnu="1" strSQL="select TipId#, Link, Menu, Alt, Mid# from Menu where ParentMid#='" & mnu & "' and menuLevel=2 order by Sort" RSQ.open strSQL, Da, 1 i=0 Dim Menu2() 'Response.write(RSQ.RecordCount) If Not(RSQ.eof) then ReDim Menu2(RSQ.RecordCount) cl="" Do until RSQ.eof Link=Trim(RSQ("Link")) TipId1=RSQ("TipId#") Menu=RSQ("Menu") Alt=RSQ("Alt") Mid1=RSQ("Mid#") If sm&""=Mid1&"" then cl="" else cl="'amenu'" ' if cl="" then WindowTitle=Menu & " | " & WindowTitle lnk="" If Link<>"" then ' Есть ссылка на другую страницу lnk=Link else ' Стандартная страница с текстом lnk="/demidoff.asp?m="&mnu&"&sm="&mid1&"&t="&TipId1 end if i=i+1 Menu2(i)= pic & "" & menu & " " RSQ.movenext Loop else ' Нет меню для данного пункта ReDim Menu2(1) Menu2(1)=" " end if RSQ.close 'Response.write(mnu & " windowTitle = " & WindowTitle) If mnu&""<>"" and WindowTitle="" then strSQL="select menu from Menu where MId#="&mnu RSQ.open strSQL, Da If Not(RSQ.eof) then WindowTitle=RSQ("Menu") & " | МДФ " end if RSQ.close end if if windowTitle="" then WindowTitle="Международный Демидовский Фонд" %> <%=windowtitle%>
<% '333333 WPage=980 LWidth=78 RWidth=76 bgcolor=" bgcolor='#EBD8A3' " %> > > >
<% strSQL="select Mid#, TipId#, Link, Alt, Sort from Menu where menuLevel=1 and ParentMid#=0 order by Sort" RSQ.open strSQL, Da i=0 If Not(RSQ.eof) then Do until RSQ.eof i=i+1 Mid1=RSQ("Mid#") Alt=RSQ("Alt") TipId1=RSQ("TipId#") Link=Trim(RSQ("Link")) Sort=RSQ("Sort") If Link="" then lnk="/default.asp?m="&mid1&"&t="&tipid1 else lnk=link end if %><% RSQ.movenext Loop else ' end if RSQ.close %>
width='<%=WPage-178%>' colspan='2'>
<% ' Меню 2-го уровня ' Формирование меню второго уровня for i=1 to UBound(Menu2) %><%=Menu2(i)%><% next %>  
 
<% end sub Sub Footer %>
 
Рейтинг@Mail.ru
Штаб-квартира МДФ : 119517, Москва, ул. Нежинская, 14, корп. 5. Тел.: (095) 441-11-80. Факс: (095) 441-11-82. E-mail indf@rambler.ru

 
<% end sub sub AdmHeader If windowTitle="" then windowTitle="Администратовная часть ""Демидовского фонда""" %> <%=windowtitle%>
Работа с меню Работа с текстом Работа с новостями


<% end sub sub AdmFooter %><% end sub %>