<% response.Expires=0 Response.Buffer=true Response.ContentType="text/html" Response.CharSet ="windows-1251" dim dbObj, strSql, rst, strMenu,i, rst1, strLeftMenu Set DBObj = Server.CreateObject("ADODB.Connection") DBObj.Open Application("dsnAD") ''' public nav_keyWords,nav_Description, nav_Title, nav_text, nav_titimg, strFoot actMenu=39 if Request("ser")<>"" then actSubMenu=Request("ser") actSubMenuHas=hasSubMenu(dbObj,actMenu) strmainMenu=CreateMainMenu(dbObj,actMenu,actSubMenuHas) ''' '' on error resume next if Request("nav")="" then actSubMenu=42 else actSubMenu=clng(Request("nav")) end if strLeftMenu=CreateLeftMenu(dbObj,actMenu,actSubMenu) ' создать строчку для прелоуда ' ширин, высот и названий dim outSrc,arW,arH,arD,rstPhoto,outSrc1,arW1,arH1,arD1, strNavigation,iii outSrc="" iii=0 sqlPhoto="Select * from tbl_Photos where pho_nav_ID=" & actSubMenu & " and pho_Visible=-1 and pho_version>0 order by pho_Number " set rstPhoto=DBObj.Execute(sqlPhoto) if not (rstPhoto.eof and rstPhoto.bof) then outSrc1= "Photos/P" & right("000000" & rstPhoto("pho_File"),6) & "_" & rstPhoto("pho_version") & ".jpg" arW1=rstPhoto("pho_width") arH1=rstPhoto("pro_height") arD1= replace(rstPhoto("pho_textRus"),"'","`") outSrc="''" arW="0" arH="0" arD="''" do until rstPhoto.eof iii=iii+1 outSrc=outSrc & "," & "'Photos/P" & right("000000" & rstPhoto("pho_File"),6) & "_" & rstPhoto("pho_version") & ".jpg'" arW = arW & "," & rstPhoto("pho_width") arH=arH & "," & rstPhoto("pro_height") arD=arD & "," & "'" & replace(rstPhoto("pho_textRus"),"'","`") & "'" ''' навигация strNavigation=strNavigation & "" & iii & "" rstPhoto.movenext loop rstPhoto.close end if %> Фотогалерея - <%=nav_Title%>


<%=nav_titimg%>
<% if strLeftMenu<>"" then%> <% end if%>
<%=strLeftMenu%> <% if nav_text<>"" then%> <% end if%>
<%=nav_text%>
<%=arD1%>
<%=strNavigation%>
© 2008, ООО ДСК «Авангард»
Все права защищены.
Карта сайта  |  Наши партнеры
Разработка сайта NevaStudio
Демонтаж зданий и сооруженийМонтаж перегородок, отделочные работы Демонтаж зданий и сооружений Дорожное строительствоДорожное строительство Озеленение и благоустройство территорий Озеленение и благоустройство территорий Аренда спецтехники и оборудования