Отражение головы мёртвого человека на дереве возле могилы в лесу
Гуляя в лесу я и мой друг обнаружили странный нарост в виде головы на дереве. Известно что деревья чувствительны к различным аномалиям энергитического плана в так называемых геопатогенных зонах деревья принимают неправильную форму растут зигзагообразно и т. п. Было установлено что примерно в 1-ом тысячлетии до р.х. в этом месте были заливные луга и степь хоть сегодня здесь лес. И в данном месте было захоронено тело царя одного из кочевых племен. И дерево уловив энергетику этого места отобразило, то что находится в глубинном слое. Из эзотерических источников так-же известно что места захоронений обладают сильной энергетикой . Она оказала воздействие на дерево и оно на стволе отобразило его результат.
Любопытно и дерево и история. Никогда такого не видел.
Обменссылками - Бесплатный обмен ссылками, каталог сайтов.
Весь биатлон России и мираАнализ сайта онлайн.
Бесплатная раскрутка сайта
ASP
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 <%@ CodePage=1251 Language="VBScript"%>
<% u = ""
if Request.ServerVariables("PATH_INFO")="/default.asp" then 'Подставить сюда ваш default-document
u = Request.ServerVariables("SERVER_NAME")
else
u = Request.ServerVariables("SERVER_NAME") + Request.ServerVariables("PATH_INFO")
if Request.ServerVariables("QUERY_STRING")<>"" then
u = u + "?" + Request.ServerVariables("QUERY_STRING")
end if
end if
REQUEST_STRING="http://universal.mainlink.ru/l.aspx?u="+Server.URLEncode(u)
Set xmlServerHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
xmlServerHttp.Open "GET", REQUEST_STRING, false
Call xmlServerHttp.Send()
respHTML = xmlServerHttp.responseTEXT
Set xmlServerHttp = Nothing
Response.CharSet = "windows-1251"
Response.Write(respHTML)
%>
.
Бесплатная раскрутка сайта
ASP
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 <%@ CodePage=1251 Language="VBScript"%>
<% u = ""
if Request.ServerVariables("PATH_INFO")="/default.asp" then 'Подставить сюда ваш default-document
u = Request.ServerVariables("SERVER_NAME")
else
u = Request.ServerVariables("SERVER_NAME") + Request.ServerVariables("PATH_INFO")
if Request.ServerVariables("QUERY_STRING")<>"" then
u = u + "?" + Request.ServerVariables("QUERY_STRING")
end if
end if
REQUEST_STRING="http://universal.mainlink.ru/l.aspx?u="+Server.URLEncode(u)
Set xmlServerHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
xmlServerHttp.Open "GET", REQUEST_STRING, false
Call xmlServerHttp.Send()
respHTML = xmlServerHttp.responseTEXT
Set xmlServerHttp = Nothing
Response.CharSet = "windows-1251"
Response.Write(respHTML)
%>
