Если Вам не удалось что-то найти, попробуйте поиск Яндекса.
<%
c="moscowmap" 'Хеш код Вашего сайта
web="moscowmap.ru" 'Домен
k="CP1251" 'Кодировка сайта (CP1251 или UTF-8)
up=25 'Время обновления кеша ссылок в минутах
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Получаем значение текущей страницы
urlM=lcase(Request.ServerVariables("HTTP_Url"))
if urlM="/default.asp" and Request.ServerVariables("QUERY_STRING")<>"" then urlM="/?" & lcase(Request.ServerVariables("QUERY_STRING"))
Set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.async = False
xml.setProperty "ServerHTTPRequest", true
'Проверяем кеш
dt=now():dt1=0
p=server.mappath("trustlink.asp")
p=left(p,len(p)-14)
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
Set Folder=FSO.GetFolder(p)
FOR EACH f1 in Folder.Files
if CStr(f1.Name)=k & ".xml" then dt=f1.DateLastModified:dt1=1
Next
up1=cint(DateDiff("n", dt, now()))
if up1>=up or dt1=0 then
'Подключаемся к серверу TrustLink
xml.Load("http://db.trustlink.ru/" & c & "/" & web & "/" & k & ".xml")
xml.save(server.mappath(k & ".xml"))
else
xml.Load(server.mappath(k & ".xml"))
end if
If xml.parseError.errorCode=0 Then
'Получаем настройки ссылок
Set cod = xml.getElementsByTagName("config")
s=cod.item(0).childNodes(0).text
e=cod.item(0).childNodes(2).text
Response.write s
'Выводим список ссылок
Set link = xml.getElementsByTagName("pages")
For i = 0 To xml.getElementsByTagName("page").Length-1
url=replace(lcase(link.item(0).childNodes(i).getAttribute("url")),web,"")
if urlM=url then
Set ob = link.item(0).childNodes(i)
Set ob1 = ob.getElementsByTagName("link")
For j = 0 To ob1.Length-1
u=ob1.item(j).childNodes(2).text
t=ob1.item(j).childNodes(1).text
a=ob1.item(j).childNodes(0).text
w=replace(u,"http://","")
if instr(1,w,"/",1)>0 then w=left(w,instr(1,w,"/",1)-1)
Response.write "
Карта Москвы представляет собой превосходный ресурс для того, чтобы в кратчайшие сроки легко и просто проложить оптимальный маршрут к необходимому объекту. Карта Москвы – это навигатор в пространстве. На представленной нами карте вы всегда мож ете найти официальные учреждения и организации, бизнес-центры , подобрать подходящи й ресторан или кафе для деловой встречи, найти любой магазин или кинотеатр, музеи или памятник и культуры, парк или романтическое место для первого свидания. Карта Москвы всегда поможет сделать правильный выбор, сориентироваться в столице . Карта будет полезна не только приезжим , но и коренным жителям мегаполиса . С ее помощью даже самые незнакомые улицы представлены как на ладони. Известно также, что Москва – расширяется стремительными темпами, но с помощью нашей карты вы будете осведомлены даже о самых новых объектах.
Карта Москвы дает возможность наглядно представить туристические маршруты и месторасположение объект ов культуры и досуга (театры, музеи, кинотеатры, парки, театры, площади , спорт клубы и стадионы ), найти аптеки , больницы, клиники и иные как медицинские , так и социальные учреждения, определиться с гостиницами или необходимыми организациями, обозначить нужные бизнес-центры, сориентироваться в рынк ах , магазинах и супермаркетах, наметить план и время проезда к железнодорожны м и речно му вокзал ам , аэропорт ам . Воспользовавшись нашей картой Москвы , вы всегда окажетесь в нужном месте.