Творческий Союз АПозиция

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1251"%> <% set myXml=Server.CreateObject("Microsoft.XMLDOM") myXML.async=false 'fileName=Request("src") fileName="siteMap.xml" fileUrl=Server.MapPath(fileName) myXml.load(fileUrl) if myXml.parseError<>0 then Response.Write (myXml.parseError.reason) end if set root=myXml.documentElement set pagesList=root.getElementsByTagName("pages") if pagesList.length>1 then response.write "

ОШИБКА:
Карта сайта не может содержать более 1 элемента Pages

" else set pages=pagesList.item(0) end if 'Определяем текущую страницу if (request ("uid") & "" = "") and (request ("src") & "" = "") then fileName = pages.childNodes.item(0).getAttribute("src") elseif request ("src") & "" <> "" then fileName = request ("src") else qs="//page[@uid='" & request ("uid") & "']" fileName = root.selectSingleNode(qs).getAttribute("src") end if 'Формируем нижнее меню Function displayLink (base) src=base.getAttribute("src") id=Replace(base.getAttribute("id"), " ", " ") uid=base.getAttribute("uid") 'Формируем ссылку displayLink = displayLink & "[" & id & "] " for i=0 to base.childNodes.length-1 displayLink=displayLink & displayLink(base.childNodes.item(i)) next end function for j=0 to pages.childNodes.length-1 menuText=menuText+displayLink(pages.childNodes.item(j)) next %> Ионно-плазменное азотирование (ИПА) :::: <% =title %>

hotel san francisco ca toronto hotel make a free web site car repair out of order car dealer used drug hydrocodone online online learning order vicodin noodles and company game programming software business business contractor

Вид рабочей камеры установки ионно-плазменного азотирования (ИПА)

Оборудование и технология ионно-плазменного азотирования (ИПА)

Главная

Что такое ИПА

Применение ИПА

Оборудование

О компании

<% =title %>

.: Специалисту на заметку

<%=server.Execute("articleList.asp")%>

Архив >>>

.: Опрос:

<% server.Execute("_optionsLib/vote.asp")%>

<% 'Получаем и выводим тело страницы filespec = server.mapPath(fileName) set fs = server.createobject("scripting.fileSystemObject") if fs.FileExists (filespec) then 'Определяем тип файла 'if right (fileName, 3) <> "asp" then 'set f = fs.openTextFile(filespec) 'curentBody = f.readall 'set f=nothing 'startInd=inStr(1, LCase(curentBody), "") + 1 'endInd=inStr(1, LCase(curentBody), "") 'substrLen=endInd - startInd 'curentBody=mid (curentBody, startInd, substrLen) 'response.Write(curentBody) 'else server.Execute(fileName) 'response.Write(fileName) 'end if else curentBody = "Извините!
Запрошенная страница находится в стадии разработки...." response.Write(curentBody) end if set fs=nothing %>

<% for j = 0 to UBound(arrResponse)- 1 %>

.: <%=arrResponse(j)("Название_автоответчика")%>

" target="_blank"><%=arrResponse(j)("Текст_запроса")%>

<% next %>

<% 'response.Write(menuText) %>

ОШИБКА: Карта сайта не может содержать более 1 элемента Pages

ОШИБКА:
Карта сайта не может содержать более 1 элемента Pages