Установка кода на сайт работающий на ASP

Вот и за отсутствия готового решения, разработал такой вариант автоматического размещения ссылок на сайте с поддержкой ASP

Код разместите на всех страницах, где требуется вывод ссылок:

Код:

---

<%
Response.write "<!--3ahgfq4e--> <!--3ahgfq4e-->" 'Строка для определения кода биржи
urlM=replace(Request.ServerVariables("HTTP_Url"),"default.asp","")
Set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.async = False
if xml.Load("http://db.linkfeed.ru/97c0194702c65656565656rett/ВашСайт.ru/DEFAULT.xml") then
xmlN=0
Set link = xml.getElementsByTagName("pages")
For i = 0 To xml.getElementsByTagName("page").Length-1
url=link.item(0).childNodes(i).getAttribute("url")
slk=right(link.item(0).childNodes(i).text,len(link.item(0).childNodes(i).text)-1)
if url=urlM then
Set objItem = link.item(0).childNodes(i)
Set sil = objItem.getElementsByTagName("link")
For j = 0 To sil.Length-1
Response.write sil.item(j).text
Response.write "<br>" 'Разделитель ссылок (в данном случае переход на новою строку)
next
xmlN=xmlN+1
end if
next
end if
%>

---

Код максимально упрощен, но работает.
Данные ссылок берутся из файла XML генерируемый биржей.
Замените "Строку для определения кода биржи" на Ваш код в личном кабинете
Так же не забудьте поменять "ВашСайт.ru" на имя Вашего сайта без http://

Если не хотите, чтобы при открытие страницы Ваш сайт каждый раз подгружал файл XML из биржи, то можно заменить:

xml.Load("http://db.linkfeed.ru/97c0194702c65656565656rett/ВашСайт.ru/DEFAULT.xml")

на xml.Load(server.mappath("DEFAULT.xml"))

в этом случае файл DEFAULT.xml надо будет в ручную или программно загружать в корень сайта.

Вот в принципе и всё надеюсь кому то будет полезно, код тестировал на себе на двух своих сайтах.